Mercurial > emacs
comparison lisp/bindings.el @ 27151:a3f5452f911e
(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 |