Mercurial > emacs

comparison lisp/view.el @ 38758:a86b8b3e96fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(toplevel): Use mode-line-minor-mode-keymap for the minor mode name.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 09 Aug 2001 14:51:48 +0000
parents b174db545cfd
children abd085bfec0c
comparison
equal deleted inserted replaced
38757:75666bd5d498 38758:a86b8b3e96fd
1 ;;; view.el --- peruse file or buffer without editing 1 ;;; view.el --- peruse file or buffer without editing
2 2
3 ;; Copyright (C) 1985, 1989, 1994, 1995, 1997, 2000 3 ;; Copyright (C) 1985, 1989, 1994, 1995, 1997, 2000, 2001
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: K. Shane Hartman 6 ;; Author: K. Shane Hartman
7 ;; Maintainer: Inge Frick <inge@nada.kth.se> 7 ;; Maintainer: Inge Frick <inge@nada.kth.se>
8 8
155 (defvar view-overlay nil 155 (defvar view-overlay nil
156 "Overlay used to display where a search operation found its match. 156 "Overlay used to display where a search operation found its match.
157 This is local in each buffer, once it is used.") 157 This is local in each buffer, once it is used.")
158 (make-variable-buffer-local 'view-overlay) 158 (make-variable-buffer-local 'view-overlay)
159 159
160 (or (assq 'view-mode minor-mode-alist) 160 (unless (assq 'view-mode minor-mode-alist)
161 (setq minor-mode-alist 161 (setq minor-mode-alist
162 (cons (list 'view-mode 162 (cons (list 'view-mode
163 (propertize " View" 163 (propertize " View"
164 'help-echo "mouse-2: exit View mode" 164 'local-map mode-line-minor-mode-keymap
165 'local-map (make-mode-line-mouse2-map 165 'help-echo "mouse-3: minor mode menu"))
166 #'view-mode))) 166 minor-mode-alist)))
167 minor-mode-alist)))
168 167
169 ;; Define keymap inside defvar to make it easier to load changes. 168 ;; Define keymap inside defvar to make it easier to load changes.
170 ;; Some redundant "less"-like key bindings below have been commented out. 169 ;; Some redundant "less"-like key bindings below have been commented out.
171 (defvar view-mode-map 170 (defvar view-mode-map
172 (let ((map (make-sparse-keymap))) 171 (let ((map (make-sparse-keymap)))