Commit a18ff5ac authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

Fixed a spelling error. lyskom-trim-buffer-hook isn't run for non-kom-buffers.

parent 89ce6264
2000-09-03 Ulrik Haugen <qha@lysator.liu.se>
* buffers.el (kill-buffer-hook): Moved the adding to kill-buffer-hook
here and added a check for the major-moded; this should keep it from
affecting all buffers.
* english-strings.el (lyskom-custom-strings): Fixed a spelling error.
2000-09-02 Ulrik Haugen <qha@lysator.liu.se>
* startup.el (lyskom-mode): kill-buffer-hook runs the
......
......@@ -182,6 +182,13 @@ the children object"
(add-hook 'kill-buffer-hook
'lyskom-buffer-hierarchy-kill-hook)
(add-hook 'kill-buffer-hook
'(lambda ()
(when (eq major-mode 'lyskom-mode)
(let ((lyskom-trim-buffer-delete-to
(point-max)))
(run-hooks 'lyskom-trim-buffer-hook))))
nil t)
(add-hook 'kill-buffer-query-functions
'lyskom-buffer-hierarchy-query-kill-function)
......
......@@ -3186,7 +3186,7 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-trim-buffer-minimum-doc . "\
If you have limited the LysKOM buffer size, this variable determines
how much larget than the limit the buffer has to be before it is
how much larger than the limit the buffer has to be before it is
trimmed back to the maximum size. The variable must be an integer;
the default is 4096.")
......
......@@ -815,11 +815,6 @@ 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