aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman1995-06-26 20:45:48 +0000
committerRichard M. Stallman1995-06-26 20:45:48 +0000
commit7392e4d332c89da6d61eabb07c2ff7b2d02125a1 (patch)
tree5e264982cc4b3d19ca76b6e594974e65f901e134 /lisp
parent837a3add98712d8b70de9cd489e79ff29116e68b (diff)
downloademacs-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.el10
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.
204C-n moves down lines vertically. 204C-n moves down lines vertically.
205C-p moves upward lines vertically. 205C-p moves upward lines vertically.
206C-l recenters the screen. 206C-l recenters the screen.
207q or C-c exit view-mode and return to previous buffer. 207q exit view-mode and return to previous buffer.
208 208
209Entry to this mode runs the normal hook `view-mode-hook'. 209Entry to this mode runs the normal hook `view-mode-hook'.
210 210