Mercurial > emacs
diff lisp/view.el @ 909:4c6cdb66c74c
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 03 Aug 1992 02:02:37 +0000 |
parents | 113281b361ec |
children | 1dac458b5117 |
line wrap: on
line diff
--- a/lisp/view.el Mon Aug 03 01:04:04 1992 +0000 +++ b/lisp/view.el Mon Aug 03 02:02:37 1992 +0000 @@ -287,7 +287,7 @@ (eq (key-binding "\C-c") 'view-exit)) "Type C-h for help, ? for commands, C-c to quit" (substitute-command-keys - "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[exit-recursive-edit] to quit.")))) + "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[view-exit] to quit.")))) (defun View-undefined () (interactive) @@ -330,7 +330,7 @@ Arg is number of lines to scroll." (interactive "P") (if (pos-visible-in-window-p (point-max)) - (exit-recursive-edit)) + (view-exit)) (setq lines (if lines (prefix-numeric-value lines) (view-scroll-size))) @@ -344,7 +344,7 @@ (goto-char (point-max)) (recenter -1) (message (substitute-command-keys - "End. Type \\[exit-recursive-edit] to quit viewing.")))) + "End. Type \\[view-exit] to quit viewing.")))) (move-to-window-line -1) (beginning-of-line)) @@ -435,12 +435,6 @@ (sit-for 4)))) -;;;###autoload -(define-key ctl-x-map "v" 'view-file) - -;;;###autoload -(define-key ctl-x-4-map "v" 'view-file-other-window) - (provide 'view) ;;; view.el ends here