Commit 89ce6264 authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

The lyskom-trim-buffer-hook is run "on" the whole buffer when it is killed.

parent a0710453
2000-09-02 Ulrik Haugen <qha@lysator.liu.se>
* startup.el (lyskom-mode): kill-buffer-hook runs the
lyskom-trim-buffer-hook on the whole buffer.
2000-09-02 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46
......
......@@ -3587,8 +3587,8 @@ One parameter - the prompt string."
`(kom-show-unread-in-frame-title
(lyskom-session-has-unreads
(" ("
((lyskom-session-has-unreads ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-unread) 'iso-8859-1 t))
(lyskom-session-has-unread-letters ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-letters) 'iso-8859-1 t)))
((lyskom-session-has-unreads ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-unread) 'iso-8859-1))
(lyskom-session-has-unread-letters ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-letters) 'iso-8859-1)))
")"))))
(add-hook 'kill-buffer-hook 'lyskom-remove-buffer-from-lists)
......
......@@ -815,6 +815,12 @@ to see, set of call."
(use-local-map lyskom-mode-map)
(lyskom-set-menus 'lyskom-mode lyskom-mode-map)
(run-hooks 'lyskom-mode-hook)
(add-hook 'kill-buffer-hook '(lambda ()
(let ((lyskom-trim-buffer-delete-to
(point-max)))
(run-hooks 'lyskom-trim-buffer-hook)))
nil t)
(buffer-disable-undo (current-buffer))
(setq buffer-read-only t))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment