aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-08-15 01:50:33 +0000
committerKarl Heuer1995-08-15 01:50:33 +0000
commit73479d0224b85b392f2fc2f878ff9935c788ec28 (patch)
treede86bffc23dd6ab0ce1aea8e4fac068e82741464
parentbab0c3c1bf2e8f4918f18c8a54bd9fcffb8ece88 (diff)
downloademacs-73479d0224b85b392f2fc2f878ff9935c788ec28.tar.gz
emacs-73479d0224b85b392f2fc2f878ff9935c788ec28.zip
*** empty log message ***
-rw-r--r--lisp/view.el10
1 files changed, 0 insertions, 10 deletions
diff --git a/lisp/view.el b/lisp/view.el
index c2aae6e7c15..b7cdb00d2fb 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -187,9 +187,6 @@ Entry to this mode runs the normal hook `view-mode-hook'.
187; if you call it without passing a buffer as argument 187; if you call it without passing a buffer as argument
188; and they are not easy to fix. 188; and they are not easy to fix.
189; (interactive) 189; (interactive)
190 (make-local-variable 'view-old-mode-line-buffer-identification)
191 (setq view-old-mode-line-buffer-identification
192 mode-line-buffer-identification)
193 (make-local-variable 'view-old-buffer-read-only) 190 (make-local-variable 'view-old-buffer-read-only)
194 (setq view-old-buffer-read-only buffer-read-only) 191 (setq view-old-buffer-read-only buffer-read-only)
195 (make-local-variable 'view-old-local-map) 192 (make-local-variable 'view-old-local-map)
@@ -199,11 +196,6 @@ Entry to this mode runs the normal hook `view-mode-hook'.
199 (and (boundp 'Helper-return-blurb) Helper-return-blurb)) 196 (and (boundp 'Helper-return-blurb) Helper-return-blurb))
200 197
201 (setq buffer-read-only t) 198 (setq buffer-read-only t)
202 (setq mode-line-buffer-identification
203 (list
204 (if (buffer-file-name)
205 "Viewing %f"
206 "Viewing %b")))
207 (setq view-mode t) 199 (setq view-mode t)
208 (setq Helper-return-blurb 200 (setq Helper-return-blurb
209 (format "continue viewing %s" 201 (format "continue viewing %s"
@@ -237,8 +229,6 @@ Entry to this mode runs the normal hook `view-mode-hook'.
237If you viewed an existing buffer, that buffer returns to its previous mode. 229If you viewed an existing buffer, that buffer returns to its previous mode.
238If you viewed a file that was not present in Emacs, its buffer is killed." 230If you viewed a file that was not present in Emacs, its buffer is killed."
239 (interactive) 231 (interactive)
240 (setq mode-line-buffer-identification
241 view-old-mode-line-buffer-identification)
242 (use-local-map view-old-local-map) 232 (use-local-map view-old-local-map)
243 (setq buffer-read-only view-old-buffer-read-only) 233 (setq buffer-read-only view-old-buffer-read-only)
244 234