Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 850242ba4a81
children
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
153 ;; we're all pagans at heart ... 153 ;; we're all pagans at heart ...
154 ["Phases of the Moon" phases-of-moon t] 154 ["Phases of the Moon" phases-of-moon t]
155 ["Sunrise/Sunset" sunrise-sunset t] 155 ["Sunrise/Sunset" sunrise-sunset t]
156 ) 156 )
157 ("Games" 157 ("Games"
158 ["Mine Game" xmine t] 158 ["Mine Game" xmine (fboundp 'xmine)]
159 ["Tetris" tetris t] 159 ["Tetris" tetris (fboundp 'tetris)]
160 ["Quote from Zippy" yow t] 160 ["Quote from Zippy" yow (fboundp 'yow)]
161 ["Psychoanalyst" doctor t] 161 ["Psychoanalyst" doctor (fboundp 'doctor)]
162 ["Psychoanalyze Zippy!" psychoanalyze-pinhead t] 162 ["Psychoanalyze Zippy!" psychoanalyze-pinhead (fboundp 'psychoanalyze-pinhead)]
163 ["Random Flames" flame t] 163 ["Random Flames" flame (fboundp 'flame)]
164 ["Dunnet (Adventure)" dunnet t] 164 ["Dunnet (Adventure)" dunnet (fboundp 'dunnet)]
165 ["Towers of Hanoi" hanoi t] 165 ["Towers of Hanoi" hanoi (fboundp 'hanoi)]
166 ["Game of Life" life t] 166 ["Game of Life" life (fboundp 'life)]
167 ["Multiplication Puzzle" mpuz t] 167 ["Multiplication Puzzle" mpuz (fboundp 'mpuz)]
168 ) 168 )
169 ) 169 )
170 170
171 ("Options" 171 ("Options"
172 ("Customize" 172 ("Customize"
400 :selected (and font-lock-mode 400 :selected (and font-lock-mode
401 (or (eq font-lock-maximum-decoration t) 401 (or (eq font-lock-maximum-decoration t)
402 (and (integerp font-lock-maximum-decoration) 402 (and (integerp font-lock-maximum-decoration)
403 (>= font-lock-maximum-decoration 3))))] 403 (>= font-lock-maximum-decoration 3))))]
404 "-----" 404 "-----"
405 ["Lazy" (progn (require 'lazy-lock) 405 ["Lazy" (progn (require 'lazy-shot)
406 (if (and (boundp 'lazy-lock-mode) lazy-lock-mode) 406 (if (and (boundp 'lazy-shot-mode) lazy-shot-mode)
407 (progn 407 (progn
408 (lazy-lock-mode 0) 408 (lazy-shot-mode 0)
409 ;; this shouldn't be necessary so there has to 409 ;; this shouldn't be necessary so there has to
410 ;; be a redisplay bug lurking somewhere (or 410 ;; be a redisplay bug lurking somewhere (or
411 ;; possibly another event handler bug) 411 ;; possibly another event handler bug)
412 (redraw-modeline) 412 (redraw-modeline)
413 (remove-hook 'font-lock-mode-hook 413 (remove-hook 'font-lock-mode-hook
414 'turn-on-lazy-lock)) 414 'turn-on-lazy-shot))
415 (if font-lock-mode 415 (if font-lock-mode
416 (progn 416 (progn
417 (lazy-lock-mode 1) 417 (lazy-shot-mode 1)
418 (redraw-modeline) 418 (redraw-modeline)
419 (add-hook 'font-lock-mode-hook 419 (add-hook 'font-lock-mode-hook
420 'turn-on-lazy-lock))))) 420 'turn-on-lazy-shot)))))
421 :active font-lock-mode 421 :active font-lock-mode
422 :style toggle 422 :style toggle
423 :selected (and (boundp 'lazy-lock-mode) lazy-lock-mode)] 423 :selected (and (boundp 'lazy-shot-mode) lazy-shot-mode)]
424 ["Caching" (progn (require 'fast-lock) 424 ["Caching" (progn (require 'fast-lock)
425 (if fast-lock-mode 425 (if fast-lock-mode
426 (progn 426 (progn
427 (fast-lock-mode 0) 427 (fast-lock-mode 0)
428 ;; this shouldn't be necessary so there has to 428 ;; this shouldn't be necessary so there has to
1154 `(setq-default overwrite-mode ,(default-value 'overwrite-mode)) 1154 `(setq-default overwrite-mode ,(default-value 'overwrite-mode))
1155 (if (default-value 'overwrite-mode) 1155 (if (default-value 'overwrite-mode)
1156 '(overwrite-mode 1)) 1156 '(overwrite-mode 1))
1157 `(setq-default case-fold-search ,(default-value 'case-fold-search)) 1157 `(setq-default case-fold-search ,(default-value 'case-fold-search))
1158 case-replace 1158 case-replace
1159 (if pending-delete-mode 1159 (if (and (boundp 'pending-delete-mode)
1160 pending-delete-mode)
1160 '(pending-delete-mode 1)) 1161 '(pending-delete-mode 1))
1161 zmacs-regions 1162 zmacs-regions
1162 mouse-yank-at-point 1163 mouse-yank-at-point
1163 require-final-newline 1164 require-final-newline
1164 next-line-add-newlines 1165 next-line-add-newlines
1197 (if (and (boundp 'font-lock-mode-hook) 1198 (if (and (boundp 'font-lock-mode-hook)
1198 (memq 'turn-on-fast-lock font-lock-mode-hook)) 1199 (memq 'turn-on-fast-lock font-lock-mode-hook))
1199 '(add-hook 'font-lock-mode-hook 'turn-on-fast-lock) 1200 '(add-hook 'font-lock-mode-hook 'turn-on-fast-lock)
1200 '(remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)) 1201 '(remove-hook 'font-lock-mode-hook 'turn-on-fast-lock))
1201 (if (and (boundp 'font-lock-mode-hook) 1202 (if (and (boundp 'font-lock-mode-hook)
1202 (memq 'turn-on-lazy-lock font-lock-mode-hook)) 1203 (memq 'turn-on-lazy-shot font-lock-mode-hook))
1203 '(add-hook 'font-lock-mode-hook 'turn-on-lazy-lock) 1204 '(add-hook 'font-lock-mode-hook 'turn-on-lazy-shot)
1204 '(remove-hook 'font-lock-mode-hook 'turn-on-lazy-lock)) 1205 '(remove-hook 'font-lock-mode-hook 'turn-on-lazy-shot))
1205 1206
1206 ;; Paren Highlighting 1207 ;; Paren Highlighting
1207 (if paren-mode 1208 (if paren-mode
1208 `(progn (require 'paren) (paren-set-mode ',paren-mode))) 1209 `(progn (require 'paren) (paren-set-mode ',paren-mode)))
1209 1210
1557 )) 1558 ))
1558 1559
1559 (global-set-key 'button3 'popup-mode-menu) 1560 (global-set-key 'button3 'popup-mode-menu)
1560 ;; shift button3 and shift button2 are reserved for Hyperbole 1561 ;; shift button3 and shift button2 are reserved for Hyperbole
1561 (global-set-key '(meta control button3) 'popup-buffer-menu) 1562 (global-set-key '(meta control button3) 'popup-buffer-menu)
1562 (global-set-key '(meta shift button3) 'popup-menubar-menu) 1563 ;; The following command is way too dangerous with Custom.
1564 ;; (global-set-key '(meta shift button3) 'popup-menubar-menu)
1563 1565
1564 ;; Here's a test of the cool new menu features (from Stig). 1566 ;; Here's a test of the cool new menu features (from Stig).
1565 1567
1566 ;(setq mode-popup-menu 1568 ;(setq mode-popup-menu
1567 ; '("Test Popup Menu" 1569 ; '("Test Popup Menu"