diff options
| author | Richard M. Stallman | 1995-06-26 20:45:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-26 20:45:48 +0000 |
| commit | 7392e4d332c89da6d61eabb07c2ff7b2d02125a1 (patch) | |
| tree | 5e264982cc4b3d19ca76b6e594974e65f901e134 /lisp | |
| parent | 837a3add98712d8b70de9cd489e79ff29116e68b (diff) | |
| download | emacs-7392e4d332c89da6d61eabb07c2ff7b2d02125a1.tar.gz emacs-7392e4d332c89da6d61eabb07c2ff7b2d02125a1.zip | |
(view-file-other-window): Re-add missing argument to
switch-to-buffer-other-window.
(view-mode-map): Leave C-c alone!
(view-mode): Doc fix.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/view.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/view.el b/lisp/view.el index 5eaff500172..2f9eb44e68a 100644 --- a/lisp/view.el +++ b/lisp/view.el | |||
| @@ -33,7 +33,7 @@ | |||
| 33 | nil | 33 | nil |
| 34 | (setq view-mode-map (make-keymap)) | 34 | (setq view-mode-map (make-keymap)) |
| 35 | (fillarray (nth 1 view-mode-map) 'View-undefined) | 35 | (fillarray (nth 1 view-mode-map) 'View-undefined) |
| 36 | (define-key view-mode-map "\C-c" 'view-exit) | 36 | (define-key view-mode-map "\C-c" (lookup-key global-map "\C-c")) |
| 37 | (define-key view-mode-map "q" 'view-exit) | 37 | (define-key view-mode-map "q" 'view-exit) |
| 38 | (define-key view-mode-map "-" 'negative-argument) | 38 | (define-key view-mode-map "-" 'negative-argument) |
| 39 | (define-key view-mode-map "0" 'digit-argument) | 39 | (define-key view-mode-map "0" 'digit-argument) |
| @@ -110,6 +110,8 @@ This command runs the normal hook `view-mode-hook'." | |||
| 110 | (let ((old-buf (current-buffer)) | 110 | (let ((old-buf (current-buffer)) |
| 111 | (had-a-buf (get-file-buffer file-name)) | 111 | (had-a-buf (get-file-buffer file-name)) |
| 112 | (buf-to-view (find-file-noselect file-name))) | 112 | (buf-to-view (find-file-noselect file-name))) |
| 113 | ;; This used to pass t as second argument, | ||
| 114 | ;; but then the buffer did not show up in the Buffers menu. | ||
| 113 | (switch-to-buffer buf-to-view had-a-buf) | 115 | (switch-to-buffer buf-to-view had-a-buf) |
| 114 | (view-mode old-buf | 116 | (view-mode old-buf |
| 115 | (and (not had-a-buf) (not (buffer-modified-p buf-to-view)) | 117 | (and (not had-a-buf) (not (buffer-modified-p buf-to-view)) |
| @@ -130,9 +132,7 @@ This command runs the normal hook `view-mode-hook'." | |||
| 130 | (let ((old-arrangement (current-window-configuration)) | 132 | (let ((old-arrangement (current-window-configuration)) |
| 131 | (had-a-buf (get-file-buffer file-name)) | 133 | (had-a-buf (get-file-buffer file-name)) |
| 132 | (buf-to-view (find-file-noselect file-name))) | 134 | (buf-to-view (find-file-noselect file-name))) |
| 133 | ;; This used to pass t as second argument, | 135 | (switch-to-buffer-other-window buf-to-view) |
| 134 | ;; but then the buffer did not show up in the Buffers menu. | ||
| 135 | (switch-to-buffer-other-window) | ||
| 136 | (view-mode old-arrangement | 136 | (view-mode old-arrangement |
| 137 | (and (not had-a-buf) (not (buffer-modified-p buf-to-view)) | 137 | (and (not had-a-buf) (not (buffer-modified-p buf-to-view)) |
| 138 | 'kill-buffer)))) | 138 | 'kill-buffer)))) |
| @@ -204,7 +204,7 @@ C-r or r do reverse incremental search. | |||
| 204 | C-n moves down lines vertically. | 204 | C-n moves down lines vertically. |
| 205 | C-p moves upward lines vertically. | 205 | C-p moves upward lines vertically. |
| 206 | C-l recenters the screen. | 206 | C-l recenters the screen. |
| 207 | q or C-c exit view-mode and return to previous buffer. | 207 | q exit view-mode and return to previous buffer. |
| 208 | 208 | ||
| 209 | Entry to this mode runs the normal hook `view-mode-hook'. | 209 | Entry to this mode runs the normal hook `view-mode-hook'. |
| 210 | 210 | ||