Mercurial > emacs

comparison lisp/bindings.el @ 27151:a3f5452f911e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-mode-line-mouse-sensitive): Fix the toggle menu items.
author Dave Love <fx@gnu.org>
date Tue, 04 Jan 2000 18:44:01 +0000
parents 32ebef66c1be
children bfb9906d58b5
comparison
equal deleted inserted replaced
27150:d8fd3814d591 27151:a3f5452f911e
199 (not mode-line-mouse-sensitive-p)) 199 (not mode-line-mouse-sensitive-p))
200 (setq mode-line-mouse-sensitive-p t) 200 (setq mode-line-mouse-sensitive-p t)
201 (let ((map (make-sparse-keymap "Minor Modes"))) 201 (let ((map (make-sparse-keymap "Minor Modes")))
202 (define-key map [abbrev-mode] 202 (define-key map [abbrev-mode]
203 '(menu-item "Abbrev" abbrev-mode 203 '(menu-item "Abbrev" abbrev-mode
204 :active t :style toggle :selected abbrev-mode)) 204 :button (:toggle . abbrev-mode)))
205 (define-key map [auto-revert-mode] 205 (define-key map [auto-revert-mode]
206 '(menu-item "Auto revert" auto-revert-mode 206 '(menu-item "Auto revert" auto-revert-mode
207 :active t :style toggle 207 :button (:toggle . (bound-and-true-p auto-revert-mode))))
208 :selected (bound-and-true-p auto-revert-mode)))
209 (define-key map [auto-fill-mode] 208 (define-key map [auto-fill-mode]
210 '(menu-item "Auto-fill" auto-fill-mode 209 '(menu-item "Auto-fill" auto-fill-mode
211 :active t :style toggle :selected auto-fill-function)) 210 :button (:toggle . auto-fill-function)))
212 (define-key map [column-number-mode] 211 (define-key map [column-number-mode]
213 '(menu-item "Column number" column-number-mode 212 '(menu-item "Column number" column-number-mode
214 :active t :style toggle :selected column-number-mode)) 213 :button (:toggle . column-number-mode)))
215 (define-key map [flyspell-mode] 214 (define-key map [flyspell-mode]
216 '(menu-item "Flyspell" flyspell-mode 215 '(menu-item "Flyspell" flyspell-mode
217 :active t :style toggle 216 :button (:toggle . (bound-and-true-p flyspell-mode))))
218 :selected (bound-and-true-p flyspell-mode)))
219 (define-key map [font-lock-mode] 217 (define-key map [font-lock-mode]
220 '(menu-item "Font-lock" font-lock-mode 218 '(menu-item "Font-lock" font-lock-mode
221 :active t :style toggle :selected font-lock-mode)) 219 :button (:toggle . font-lock-mode)))
222 (define-key map [hide-ifdef-mode] 220 (define-key map [hide-ifdef-mode]
223 '(menu-item "Hide ifdef" hide-ifdef-mode 221 '(menu-item "Hide ifdef" hide-ifdef-mode
224 :active t :style toggle 222 :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
225 :selected (bound-and-true-p hide-ifdef-mode)))
226 (define-key map [highlight-changes-mode] 223 (define-key map [highlight-changes-mode]
227 '(menu-item "Highlight changes" highlight-changes-mode 224 '(menu-item "Highlight changes" highlight-changes-mode
228 :active t :style toggle 225 :button (:toggle . (bound-and-true-p highlight-changes-mode))))
229 :selected (bound-and-true-p highlight-changes-mode)))
230 (define-key map [line-number-mode] 226 (define-key map [line-number-mode]
231 '(menu-item "Line number" line-number-mode 227 '(menu-item "Line number" line-number-mode
232 :active t :style toggle :selected line-number-mode)) 228 :button (:toggle . line-number-mode)))
233 (define-key map [outline-minor-mode] 229 (define-key map [outline-minor-mode]
234 '(menu-item "Outline" outline-minor-mode 230 '(menu-item "Outline" outline-minor-mode
235 :active t :style toggle 231 :button (:toggle . (bound-and-true-p outline-minor-mode))))
236 :selected (bound-and-true-p outline-minor-mode)))
237 (define-key map [overwrite-mode] 232 (define-key map [overwrite-mode]
238 '(menu-item "Overwrite" overwrite-mode 233 '(menu-item "Overwrite" overwrite-mode
239 :active t :style toggle :selected overwrite-mode)) 234 :button (:toggle . overwrite-mode)))
240 (setq mode-line-mode-menu (copy-keymap map)) 235 (setq mode-line-mode-menu (copy-keymap map))
241 (defun mode-line-mode-menu (event) 236 (defun mode-line-mode-menu (event)
242 (interactive "@e") 237 (interactive "@e")
243 (x-popup-menu event mode-line-mode-menu))) 238 (x-popup-menu event mode-line-mode-menu)))
244 239