comparison lisp/view.el @ 931:f23882d7315a

entered into RCS

930:1dac458b5117

      (set-window-configuration view-return-here)))
    (if action (funcall action viewed-buffer))))

(defun view-helpful-message ()
  (message
   (if (and (eq (key-binding (char-to-string help-char)) 'Helper-help)
	    (eq (key-binding "?") 'Helper-describe-bindings)
	    (eq (key-binding "\C-c") 'view-exit))
       "Type \\[Helper-help] for help, ? for commands, C-c to quit"
     (substitute-command-keys
      "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[view-exit] to quit."))))

(defun View-undefined ()
  (interactive)
  (ding)
  (view-helpful-message))

931:f23882d7315a

      (set-window-configuration view-return-here)))
    (if action (funcall action viewed-buffer))))

(defun view-helpful-message ()
  (message
     (substitute-command-keys
      "Type \\[Helper-help] for help, \\[Helper-describe-bindings] for commands, \\[view-exit] to quit.")))

(defun View-undefined ()
  (interactive)
  (ding)
  (view-helpful-message))