diff options
| author | Karl Heuer | 1995-08-15 01:50:33 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-08-15 01:50:33 +0000 |
| commit | 73479d0224b85b392f2fc2f878ff9935c788ec28 (patch) | |
| tree | de86bffc23dd6ab0ce1aea8e4fac068e82741464 | |
| parent | bab0c3c1bf2e8f4918f18c8a54bd9fcffb8ece88 (diff) | |
| download | emacs-73479d0224b85b392f2fc2f878ff9935c788ec28.tar.gz emacs-73479d0224b85b392f2fc2f878ff9935c788ec28.zip | |
*** 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'. | |||
| 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'. | |||
| 237 | If you viewed an existing buffer, that buffer returns to its previous mode. | 229 | If you viewed an existing buffer, that buffer returns to its previous mode. |
| 238 | If you viewed a file that was not present in Emacs, its buffer is killed." | 230 | If 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 | ||