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