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)