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 |