diff --git a/hemlock/filecoms.lisp b/hemlock/filecoms.lisp index d01066629eb2b3c68f2ca3537bf68e60df56a6c4..791cd162fd26aa6aa4f823ff06a00acc46bc19d4 100644 --- a/hemlock/filecoms.lisp +++ b/hemlock/filecoms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/filecoms.lisp,v 1.1.1.6 1991/04/25 20:28:41 chiles Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/filecoms.lisp,v 1.1.1.7 1991/06/22 13:54:06 chiles Exp $") ;;; ;;; ********************************************************************** ;;; @@ -275,8 +275,8 @@ (unless (eq b buffer) (let ((bpn (buffer-pathname b))) (when (equal bpn buffer-pn) - (message "Buffer ~A also contains ~A." - (buffer-name b) (namestring buffer-pn)) + (loud-message "Buffer ~A also contains ~A." + (buffer-name b) (namestring buffer-pn)) (return))))))) @@ -286,15 +286,15 @@ (defcommand "Revert File" (p) "Unless in Save Mode, reads in the last saved version of the file in - the current buffer. When in Save Mode, reads in the last checkpoint or - the last saved version, whichever is more recent. An argument will always - force Revert File to use the last saved version. In either case, if the - buffer has been modified and \"Revert File Confirm\" is true, then Revert - File will ask for confirmation beforehand. An attempt is made to maintain - the point's relative position." + the current buffer. When in Save Mode, reads in the last checkpoint or + the last saved version, whichever is more recent. An argument will always + force Revert File to use the last saved version. In either case, if the + buffer has been modified and \"Revert File Confirm\" is true, then Revert + File will ask for confirmation beforehand. An attempt is made to maintain + the point's relative position." "With an argument reverts to the last saved version of the file in the - current buffer. Without, reverts to the last checkpoint or last saved - version, whichever is more recent." + current buffer. Without, reverts to the last checkpoint or last saved + version, whichever is more recent." (let* ((buffer (current-buffer)) (buffer-pn (buffer-pathname buffer)) (point (current-point)) @@ -344,11 +344,11 @@ (defcommand "Find File" (p &optional pathname) "Visit a file in its own buffer. - If the file is already in some buffer, select that buffer, - otherwise make a new buffer with the same name as the file and - read the file into it." + If the file is already in some buffer, select that buffer, + otherwise make a new buffer with the same name as the file and + read the file into it." "Make a buffer containing the file Pathname current, creating a buffer - if necessary. The buffer is returned." + if necessary. The buffer is returned." (declare (ignore p)) (let* ((pn (or pathname (prompt-for-file