Changeset 6770 for branches

Timestamp:

Jun 20, 2007, 11:30:35 AM (17 years ago)

Author:

Gary Byers

Message:

Don't complain about compulsive use of c-x c-s to save unmodified buffers.

File:

• branches/ide-1.0/ccl/hemlock/src/filecoms.lisp (modified) (3 diffs)

branches/ide-1.0/ccl/hemlock/src/filecoms.lisp

@@ -46 +46 @@
    \"Mode\" mode option is specified, then this tries to invoke the appropriate
    file type hook."
+  (#_NSLog #@"processing file options")
   (let* ((string
           (line-string (mark-line (buffer-start-mark buffer))))
@@ -146 +147 @@
   (setf (buffer-major-mode buffer) "Pascal"))
 
-(define-file-type-hook ("lisp" "slisp" "l" "lsp" "mcl") (buffer type)
+(define-file-type-hook ("lisp" "slisp" "l" "lsp" "mcl" "cl") (buffer type)
   (declare (ignore type))
   (setf (buffer-major-mode buffer) "Lisp"))
@@ -647 +648 @@
   (let* ((document (hi::buffer-document buffer)))
     (when document
-      (when (or (buffer-modified buffer)
-                (prompt-for-y-or-n 
-                 :prompt "Buffer is unmodified, write it anyway? "
-                 :default t))
-          (hi::save-hemlock-document document)))))
+      (when (buffer-modified buffer)
+        (hi::save-hemlock-document document)))))
 
 (defhvar "Save All Files Confirm"