[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv12374

Modified Files:
	misc-commands.lisp file-commands.lisp 
Log Message:
Made `find-file' use `evaluate-attributes-line' and removed the now
obsolete `com-reload-local-options-line'.


--- /project/climacs/cvsroot/climacs/misc-commands.lisp	2006/05/04 20:30:29	1.9
+++ /project/climacs/cvsroot/climacs/misc-commands.lisp	2006/05/06 15:38:42	1.10
@@ -28,13 +28,6 @@
 
 (in-package :climacs-gui)
 
-(define-command (com-reload-local-options-line
-                 :name t
-                 :command-table buffer-table)
-    ()
-  "Reload the local options line."
-  (evaluate-local-options-line (current-buffer)))
-
 (define-command (com-overwrite-mode :name t :command-table editing-table) ()
   "Toggle overwrite mode for the current mode.
 When overwrite is on, an object entered on the keyboard will replace the object after the point. When overwrite is off (the default), objects are inserted at point. In both cases point is positioned after the new object."
--- /project/climacs/cvsroot/climacs/file-commands.lisp	2006/05/06 11:41:57	1.12
+++ /project/climacs/cvsroot/climacs/file-commands.lisp	2006/05/06 15:38:42	1.13
@@ -256,7 +256,7 @@
 		   (setf (file-write-time buffer) (file-write-date filepath))
                    ;; A file! That means we may have a local options
                    ;; line to parse.
-                   (evaluate-local-options-line buffer))
+                   (evaluate-attributes-line buffer))
                  ;; If the local options line didn't set a syntax, do
                  ;; it now.
                  (when (null (syntax buffer))
@@ -486,7 +486,7 @@
 
 (set-key 'com-save-buffer
 	 'buffer-table
-	 '((#\x :control) (#\s :control)))
+n	 '((#\x :control) (#\s :control)))
 
 (defmethod frame-exit :around ((frame climacs) #-mcclim &key)
   (loop for buffer in (buffers frame)