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

src/ChangeLog

+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

src/buffers.el

@@ -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)
 

src/english-strings.el

@@ -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.")
 

src/startup.el

@@ -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))