diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/view.el | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0bb4307abf6..4927167ae97 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2004-02-06 Andreas Schwab <schwab@suse.de> | ||
| 2 | |||
| 3 | * view.el (view-mode-enable): Add view-mode-map to | ||
| 4 | minor-mode-overriding-map-alist. | ||
| 5 | |||
| 1 | 2004-02-05 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> | 6 | 2004-02-05 Jan Dj,Ad(Brv <jan.h.d@swipnet.se> |
| 2 | 7 | ||
| 3 | * x-dnd.el (x-dnd-get-local-file-name): Fix byte compiler warning | 8 | * x-dnd.el (x-dnd-get-local-file-name): Fix byte compiler warning |
diff --git a/lisp/view.el b/lisp/view.el index 1ee6014c73a..6d7ad4aa468 100644 --- a/lisp/view.el +++ b/lisp/view.el | |||
| @@ -463,6 +463,9 @@ Entry to view-mode runs the normal hook `view-mode-hook'." | |||
| 463 | (if (buffer-file-name) | 463 | (if (buffer-file-name) |
| 464 | (file-name-nondirectory (buffer-file-name)) | 464 | (file-name-nondirectory (buffer-file-name)) |
| 465 | (buffer-name)))) | 465 | (buffer-name)))) |
| 466 | ;; Override major mode's scrolling commands. | ||
| 467 | (add-to-list 'minor-mode-overriding-map-alist | ||
| 468 | (cons 'view-mode view-mode-map)) | ||
| 466 | (force-mode-line-update) | 469 | (force-mode-line-update) |
| 467 | (run-hooks 'view-mode-hook)) | 470 | (run-hooks 'view-mode-hook)) |
| 468 | 471 | ||