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. |