Mercurial > emacs

comparison lisp/view.el @ 18335:6f48844ce1a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(view-mode): Add autoload cookie to this variable. (View-exit-and-edit): Add autoload cookie.
author Kenichi Handa <handa@m17n.org>
date Thu, 19 Jun 1997 11:19:24 +0000
parents ead435447ea4
children 7cf9cdba062d
comparison
equal deleted inserted replaced
18334:d03c1b315e76 18335:6f48844ce1a9
73 Commands that restore windows apply to all windows displaying buffer. 73 Commands that restore windows apply to all windows displaying buffer.
74 Buffer is removed from all windows displaying it, by using information in 74 Buffer is removed from all windows displaying it, by using information in
75 `view-return-to-alist' if that is available, otherwise by using 75 `view-return-to-alist' if that is available, otherwise by using
76 `replace-buffer-in-windows'.") 76 `replace-buffer-in-windows'.")
77 77
78 ;;;###autoload
78 (defvar view-mode nil "Non-nil if View mode is enabled.") 79 (defvar view-mode nil "Non-nil if View mode is enabled.")
80 ;;;###autoload
79 (make-variable-buffer-local 'view-mode) 81 (make-variable-buffer-local 'view-mode)
80 82
81 (defvar view-mode-hook nil 83 (defvar view-mode-hook nil
82 "Normal hook run when starting to view a buffer or file.") 84 "Normal hook run when starting to view a buffer or file.")
83 85
517 (defun View-exit () 519 (defun View-exit ()
518 "Exit View mode but stay in current buffer." 520 "Exit View mode but stay in current buffer."
519 (interactive) 521 (interactive)
520 (view-mode-exit)) 522 (view-mode-exit))
521 523
524 ;;;###autoload
522 (defun View-exit-and-edit () 525 (defun View-exit-and-edit ()
523 "Exit View mode and make the current buffer editable." 526 "Exit View mode and make the current buffer editable."
524 (interactive) 527 (interactive)
525 (view-mode-exit) 528 (view-mode-exit)
526 (setq buffer-read-only nil)) 529 (setq buffer-read-only nil))