/[cmucl]/src/hemlock/filecoms.lisp
ViewVC logotype

Diff of /src/hemlock/filecoms.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.6 by chiles, Thu Apr 25 20:28:41 1991 UTC revision 1.1.1.7 by chiles, Sat Jun 22 13:54:06 1991 UTC
# Line 275  Line 275 
275        (unless (eq b buffer)        (unless (eq b buffer)
276          (let ((bpn (buffer-pathname b)))          (let ((bpn (buffer-pathname b)))
277            (when (equal bpn buffer-pn)            (when (equal bpn buffer-pn)
278              (message "Buffer ~A also contains ~A."              (loud-message "Buffer ~A also contains ~A."
279                       (buffer-name b) (namestring buffer-pn))                            (buffer-name b) (namestring buffer-pn))
280              (return)))))))              (return)))))))
281    
282    
# Line 286  Line 286 
286    
287  (defcommand "Revert File" (p)  (defcommand "Revert File" (p)
288    "Unless in Save Mode, reads in the last saved version of the file in    "Unless in Save Mode, reads in the last saved version of the file in
289    the current buffer. When in Save Mode, reads in the last checkpoint or     the current buffer. When in Save Mode, reads in the last checkpoint or
290    the last saved version, whichever is more recent. An argument will always     the last saved version, whichever is more recent. An argument will always
291    force Revert File to use the last saved version. In either case, if the     force Revert File to use the last saved version. In either case, if the
292    buffer has been modified and \"Revert File Confirm\" is true, then Revert     buffer has been modified and \"Revert File Confirm\" is true, then Revert
293    File will ask for confirmation beforehand. An attempt is made to maintain     File will ask for confirmation beforehand. An attempt is made to maintain
294    the point's relative position."     the point's relative position."
295    "With an argument reverts to the last saved version of the file in the    "With an argument reverts to the last saved version of the file in the
296    current buffer. Without, reverts to the last checkpoint or last saved     current buffer. Without, reverts to the last checkpoint or last saved
297    version, whichever is more recent."     version, whichever is more recent."
298    (let* ((buffer (current-buffer))    (let* ((buffer (current-buffer))
299           (buffer-pn (buffer-pathname buffer))           (buffer-pn (buffer-pathname buffer))
300           (point (current-point))           (point (current-point))
# Line 344  Line 344 
344    
345  (defcommand "Find File" (p &optional pathname)  (defcommand "Find File" (p &optional pathname)
346    "Visit a file in its own buffer.    "Visit a file in its own buffer.
347    If the file is already in some buffer, select that buffer,     If the file is already in some buffer, select that buffer,
348    otherwise make a new buffer with the same name as the file and     otherwise make a new buffer with the same name as the file and
349    read the file into it."     read the file into it."
350    "Make a buffer containing the file Pathname current, creating a buffer    "Make a buffer containing the file Pathname current, creating a buffer
351    if necessary.  The buffer is returned."     if necessary.  The buffer is returned."
352    (declare (ignore p))    (declare (ignore p))
353    (let* ((pn (or pathname    (let* ((pn (or pathname
354                   (prompt-for-file                   (prompt-for-file

Legend:
Removed from v.1.1.1.6  
changed lines
  Added in v.1.1.1.7

  ViewVC Help
Powered by ViewVC 1.1.5