diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-08-15 01:50:33 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-08-15 01:50:33 +0000 |
| commit | c1f5112bf97b213631a7dbe6ec55d00ab9142479 (patch) | |
| tree | 8f7baea2e4cd09d372e2ba3785ec96e936544195 | |
| parent | 436de4b0797c5af3b35afdb9cfabc5226fcc1d13 (diff) | |
| download | emacs-c1f5112bf97b213631a7dbe6ec55d00ab9142479.tar.gz | |
*** empty log message ***
| -rw-r--r-- | lisp/view.el | 10 |
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'. ; if you call it without passing a buffer as argument ; and they are not easy to fix. ; (interactive) - (make-local-variable 'view-old-mode-line-buffer-identification) - (setq view-old-mode-line-buffer-identification - mode-line-buffer-identification) (make-local-variable 'view-old-buffer-read-only) (setq view-old-buffer-read-only buffer-read-only) (make-local-variable 'view-old-local-map) @@ -199,11 +196,6 @@ Entry to this mode runs the normal hook `view-mode-hook'. (and (boundp 'Helper-return-blurb) Helper-return-blurb)) (setq buffer-read-only t) - (setq mode-line-buffer-identification - (list - (if (buffer-file-name) - "Viewing %f" - "Viewing %b"))) (setq view-mode t) (setq Helper-return-blurb (format "continue viewing %s" @@ -237,8 +229,6 @@ Entry to this mode runs the normal hook `view-mode-hook'. If you viewed an existing buffer, that buffer returns to its previous mode. If you viewed a file that was not present in Emacs, its buffer is killed." (interactive) - (setq mode-line-buffer-identification - view-old-mode-line-buffer-identification) (use-local-map view-old-local-map) (setq buffer-read-only view-old-buffer-read-only) |