1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
;;;;; -*-coding: raw-text;-*-
;;;;;
;;;;; Copyright (C) 1991-2002 Lysator Academic Computer Association.
;;;;;
;;;;; This file is part of the LysKOM Emacs LISP client.
;;;;;
;;;;; LysKOM is free software; you can redistribute it and/or modify it
;;;;; under the terms of the GNU General Public License as published by
;;;;; the Free Software Foundation; either version 2, or (at your option)
;;;;; any later version.
;;;;;
;;;;; LysKOM is distributed in the hope that it will be useful, but WITHOUT
;;;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;;;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
;;;;; for more details.
;;;;;
;;;;; You should have received a copy of the GNU General Public License
;;;;; along with LysKOM; see the file COPYING. If not, write to
;;;;; Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
;;;;; or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
;;;;; MA 02139, USA.
;;;;;
;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se.
;;;;;
;;;; ================================================================
;;;; ================================================================
;;;;
;;;; File: view-mode.el
;;;;
;;;; LysKOM view mode, a simple move for viewing buffers.
;;;;
(defvar lyskom-view-mode-map nil
"Keymap for LysKOM view mode")
(eval-when-compile (defvar view-mode-map nil))
(lyskom-external-function view-major-mode)
(defun lyskom-view-base-mode ()
(cond ((fboundp 'view-major-mode) (view-major-mode))
((assq 'view-mode minor-mode-alist)
(let* ((keymap (copy-keymap lyskom-view-mode-map)))
(make-local-variable 'minor-mode-map-alist)
(lyskom-set-keymap-parent keymap view-mode-map)
(setq minor-mode-map-alist (cons (cons 'view-mode keymap)
minor-mode-map-alist))
(view-mode)))
(t (view-mode))))
(if lyskom-view-mode-map
nil
(setq lyskom-view-mode-map (make-sparse-keymap))
(define-key lyskom-view-mode-map "*" 'kom-button-press)
(define-key lyskom-view-mode-map "=" 'kom-menu-button-press)
(define-key lyskom-view-mode-map "\t" 'kom-next-link)
(define-key lyskom-view-mode-map [(meta tab)] 'kom-previous-link)
(define-key lyskom-view-mode-map (kbd (lyskom-keys 'button2up)) 'kom-button-click)
(define-key lyskom-view-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
(define-key lyskom-view-mode-map "q" 'lyskom-view-mode-quit))
(defun lyskom-view-mode-quit ()
(interactive)
(let ((buf (current-buffer)))
(lyskom-undisplay-buffer buf)
(kill-buffer buf)))
(define-derived-mode lyskom-view-mode
lyskom-view-base-mode
"LysKOM View"
"Major mode for viewing buffers")
|
