/[emacs]/emacs/lisp/emerge.el
ViewVC logotype

Diff of /emacs/lisp/emerge.el

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

revision 1.47 by lektu, Tue Feb 4 11:16:05 2003 UTC revision 1.48 by jpw, Mon Mar 24 08:52:20 2003 UTC
# Line 3106  SPC, it is ignored; if it is anything el Line 3106  SPC, it is ignored; if it is anything el
3106          (setq name "Buffer has no file name."))          (setq name "Buffer has no file name."))
3107      (save-window-excursion      (save-window-excursion
3108        (select-window (minibuffer-window))        (select-window (minibuffer-window))
3109        (erase-buffer)        (unwind-protect
3110        (insert name)            (progn
3111        (if (not (pos-visible-in-window-p))              (erase-buffer)
3112            (let ((echo-keystrokes 0))              (insert name)
3113              (while (and (not (pos-visible-in-window-p))              (if (not (pos-visible-in-window-p))
3114                          (> (1- (frame-height)) (window-height)))                  (while (and (not (pos-visible-in-window-p))
3115                (enlarge-window 1))                              (> (1- (frame-height)) (window-height)))
3116              (let ((c (read-event)))                    (enlarge-window 1)))
3117                (let* ((echo-keystrokes 0)
3118                       (c (read-event)))
3119                (if (not (eq c 32))                (if (not (eq c 32))
3120                    (setq unread-command-events (list c)))))))))                    (setq unread-command-events (list c)))))
3121            (erase-buffer)))))
3122    
3123  ;; Improved auto-save file names.  ;; Improved auto-save gfile names.
3124  ;; This function fixes many problems with the standard auto-save file names:  ;; This function fixes many problems with the standard auto-save file names:
3125  ;; Auto-save files for non-file buffers get put in the default directory  ;; Auto-save files for non-file buffers get put in the default directory
3126  ;; for the buffer, whether that makes sense or not.  ;; for the buffer, whether that makes sense or not.

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26