Mercurial > emacs
comparison lisp/view.el @ 584:4cd7543be581
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 16 Mar 1992 20:39:07 +0000 |
parents | 23984354573b |
children | fec3f9a1e3e5 |
comparison
equal
deleted
inserted
replaced
583:3c0c1cd8428a | 584:4cd7543be581 |
---|---|
16 | 16 |
17 ;; You should have received a copy of the GNU General Public License | 17 ;; You should have received a copy of the GNU General Public License |
18 ;; along with GNU Emacs; see the file COPYING. If not, write to | 18 ;; along with GNU Emacs; see the file COPYING. If not, write to |
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | 19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. |
20 | 20 |
21 | |
22 (provide 'view) | |
23 | 21 |
24 (defvar view-mode-map nil) | 22 (defvar view-mode-map nil) |
25 (if view-mode-map | 23 (if view-mode-map |
26 nil | 24 nil |
27 (setq view-mode-map (make-keymap)) | 25 (setq view-mode-map (make-keymap)) |
436 ;;;###autoload | 434 ;;;###autoload |
437 (define-key ctl-x-map "v" 'view-file) | 435 (define-key ctl-x-map "v" 'view-file) |
438 | 436 |
439 ;;;###autoload | 437 ;;;###autoload |
440 (define-key ctl-x-4-map "v" 'view-file-other-window) | 438 (define-key ctl-x-4-map "v" 'view-file-other-window) |
439 | |
440 (provide 'view) | |
441 |