Skip to content
Snippets Groups Projects
Commit 6a7cc613 authored by chiles's avatar chiles
Browse files

Modified "Visit File" to issue a loud message whenever another buffer already
contains the file visited.  The quiet message often went unnoticed defeating
its purpose.
parent 29211df9
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment