Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 394:7d59cb494b73 r21-2-12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-12
author cvs
date Mon, 13 Aug 2007 11:11:37 +0200
parents 1f50e6fe4f3f
children 6719134a07c2
comparison
equal deleted inserted replaced
393:2e030b8965b1 394:7d59cb494b73
135 :active last-kbd-macro] 135 :active last-kbd-macro]
136 "----" 136 "----"
137 ["Show Message Log" show-message-log] 137 ["Show Message Log" show-message-log]
138 ) 138 )
139 139
140 ,@(if (featurep 'mule) 140 ,@(when (featurep 'mule)
141 '(("Mule" 141 '(("Mule"
142 ("Describe language support") 142 ("Describe language support")
143 ("Set language environment") 143 ("Set language environment")
144 "--" 144 "--"
145 ["Toggle input method" toggle-input-method] 145 ["Toggle input method" toggle-input-method]
146 ["Select input method" select-input-method] 146 ["Select input method" select-input-method]
147 ["Describe input method" describe-input-method] 147 ["Describe input method" describe-input-method]
148 "--" 148 "--"
149 ["Describe current coding systems" 149 ["Describe current coding systems"
150 describe-current-coding-system] 150 describe-current-coding-system]
151 ["Set coding system of buffer file" 151 ["Set coding system of buffer file"
152 set-buffer-file-coding-system] 152 set-buffer-file-coding-system]
153 ;; not implemented yet 153 ;; not implemented yet
154 ["Set coding system of terminal" 154 ["Set coding system of terminal"
155 set-terminal-coding-system :active nil] 155 set-terminal-coding-system :active nil]
156 ;; not implemented yet 156 ;; not implemented yet
157 ["Set coding system of keyboard" 157 ["Set coding system of keyboard"
158 set-keyboard-coding-system :active nil] 158 set-keyboard-coding-system :active nil]
159 ;; not implemented yet 159 ["Set coding system of process"
160 ["Set coding system of process" 160 set-buffer-process-coding-system
161 set-current-process-coding-system :active nil] 161 :active (get-buffer-process (current-buffer))]
162 "--" 162 "--"
163 ["Show character table" view-charset-by-menu] 163 ["Show character table" view-charset-by-menu]
164 ;; not implemented yet 164 ;; not implemented yet
165 ["Show diagnosis for MULE" mule-diag :active nil] 165 ["Show diagnosis for MULE" mule-diag :active nil]
166 ["Show many languages" view-hello-file]))) 166 ["Show many languages" view-hello-file])))
167 167
168 ("Apps" 168 ("Apps"
169 ["Read Mail (VM)..." vm 169 ["Read Mail (VM)..." vm
170 :active (fboundp 'vm)] 170 :active (fboundp 'vm)]
171 ["Read Mail (MH)..." (mh-rmail t) 171 ["Read Mail (MH)..." (mh-rmail t)
228 ["Face..." customize-face] 228 ["Face..." customize-face]
229 ["Saved..." customize-saved] 229 ["Saved..." customize-saved]
230 ["Set..." customize-customized] 230 ["Set..." customize-customized]
231 ["Apropos..." customize-apropos] 231 ["Apropos..." customize-apropos]
232 ["Browse..." customize-browse]) 232 ["Browse..." customize-browse])
233 233
234 ("Manage Packages" 234 ("Manage Packages"
235 ("Add Download Site" 235 ("Add Download Site"
236 :filter (lambda (&rest junk) 236 :filter (lambda (&rest junk)
237 (package-get-download-menu))) 237 (package-get-download-menu)))
238 ["Update Package Index" package-get-update-base] 238 ["Update Package Index" package-get-update-base]
242 (cdr (custom-menu-create 'packages)))) 242 (cdr (custom-menu-create 'packages))))
243 ["Update" package-get-custom]) 243 ["Update" package-get-custom])
244 ["Help" (Info-goto-node "(xemacs)Packages")]) 244 ["Help" (Info-goto-node "(xemacs)Packages")])
245 245
246 "---" 246 "---"
247 247
248 ("Editing Options" 248 ("Editing Options"
249 ["Overstrike" 249 ["Overstrike"
250 (progn 250 (progn
251 (setq overwrite-mode (if overwrite-mode nil 'overwrite-mode-textual)) 251 (setq overwrite-mode (if overwrite-mode nil 'overwrite-mode-textual))
252 (customize-set-variable 'overwrite-mode overwrite-mode)) 252 (customize-set-variable 'overwrite-mode overwrite-mode))
253 :style toggle :selected overwrite-mode] 253 :style toggle :selected overwrite-mode]
254 ["Case Sensitive Search" 254 ["Case Sensitive Search"
255 (customize-set-variable 'case-fold-search 255 (customize-set-variable 'case-fold-search
256 (setq case-fold-search (not case-fold-search))) 256 (setq case-fold-search (not case-fold-search)))
257 :style toggle :selected (not case-fold-search)] 257 :style toggle :selected (not case-fold-search)]
258 ["Case Matching Replace" 258 ["Case Matching Replace"
259 (customize-set-variable 'case-replace (not case-replace)) 259 (customize-set-variable 'case-replace (not case-replace))
260 :style toggle :selected case-replace] 260 :style toggle :selected case-replace]
261 ["Auto Delete Selection" 261 ["Auto Delete Selection"
262 (customize-set-variable 'pending-delete-mode (not pending-delete-mode)) 262 (customize-set-variable 'pending-delete-mode (not pending-delete-mode))
263 :style toggle 263 :style toggle
264 :selected (and (boundp 'pending-delete-mode) pending-delete-mode) 264 :selected (and (boundp 'pending-delete-mode) pending-delete-mode)
265 :active (boundp 'pending-delete-mode)] 265 :active (boundp 'pending-delete-mode)]
266 ["Active Regions" 266 ["Active Regions"
267 (customize-set-variable 'zmacs-regions (not zmacs-regions)) 267 (customize-set-variable 'zmacs-regions (not zmacs-regions))
268 :style toggle :selected zmacs-regions] 268 :style toggle :selected zmacs-regions]
269 ["Mouse Paste At Text Cursor" 269 ["Mouse Paste At Text Cursor"
270 (customize-set-variable 'mouse-yank-at-point (not mouse-yank-at-point)) 270 (customize-set-variable 'mouse-yank-at-point (not mouse-yank-at-point))
271 :style toggle :selected mouse-yank-at-point] 271 :style toggle :selected mouse-yank-at-point]
272 ("Newline at end of file..." 272 ("Newline at end of file..."
273 ["Don't require" 273 ["Don't require"
274 (customize-set-variable 'require-final-newline nil) 274 (customize-set-variable 'require-final-newline nil)
278 :style radio :selected (eq require-final-newline t)] 278 :style radio :selected (eq require-final-newline t)]
279 ["Ask" 279 ["Ask"
280 (customize-set-variable 'require-final-newline 'ask) 280 (customize-set-variable 'require-final-newline 'ask)
281 :style radio :selected (and require-final-newline 281 :style radio :selected (and require-final-newline
282 (not (eq require-final-newline t)))]) 282 (not (eq require-final-newline t)))])
283 ["Add Newline When Moving Past End" 283 ["Add Newline When Moving Past End"
284 (customize-set-variable 'next-line-add-newlines 284 (customize-set-variable 'next-line-add-newlines
285 (not next-line-add-newlines)) 285 (not next-line-add-newlines))
286 :style toggle :selected next-line-add-newlines] 286 :style toggle :selected next-line-add-newlines]
287 ) 287 )
288 ("General Options" 288 ("General Options"
289 ["Teach Extended Commands" 289 ["Teach Extended Commands"
290 (customize-set-variable 'teach-extended-commands-p 290 (customize-set-variable 'teach-extended-commands-p
291 (not teach-extended-commands-p)) 291 (not teach-extended-commands-p))
292 :style toggle :selected teach-extended-commands-p] 292 :style toggle :selected teach-extended-commands-p]
293 ["Debug On Error" 293 ["Debug On Error"
294 (customize-set-variable 'debug-on-error (not debug-on-error)) 294 (customize-set-variable 'debug-on-error (not debug-on-error))
295 :style toggle :selected debug-on-error] 295 :style toggle :selected debug-on-error]
296 ["Debug On Quit" 296 ["Debug On Quit"
297 (customize-set-variable 'debug-on-quit (not debug-on-quit)) 297 (customize-set-variable 'debug-on-quit (not debug-on-quit))
298 :style toggle :selected debug-on-quit] 298 :style toggle :selected debug-on-quit]
299 ) 299 )
300 ("Printing Options" 300 ("Printing Options"
301 ["Command-Line Switches for `lpr'/`lp'..." 301 ["Command-Line Switches for `lpr'/`lp'..."
323 ["Statement" 323 ["Statement"
324 (customize-set-variable 'ps-paper-type 'statement) 324 (customize-set-variable 'ps-paper-type 'statement)
325 :style radio 325 :style radio
326 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'statement)) 326 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'statement))
327 :active (boundp 'ps-paper-type)] 327 :active (boundp 'ps-paper-type)]
328 ["Executive" 328 ["Executive"
329 (customize-set-variable 'ps-paper-type 'executive) 329 (customize-set-variable 'ps-paper-type 'executive)
330 :style radio 330 :style radio
331 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'executive)) 331 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'executive))
332 :active (boundp 'ps-paper-type)] 332 :active (boundp 'ps-paper-type)]
333 ["Tabloid" 333 ["Tabloid"
334 (customize-set-variable 'ps-paper-type 'tabloid) 334 (customize-set-variable 'ps-paper-type 'tabloid)
335 :style radio 335 :style radio
336 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'tabloid)) 336 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'tabloid))
337 :active (boundp 'ps-paper-type)] 337 :active (boundp 'ps-paper-type)]
338 ["Ledger" 338 ["Ledger"
339 (customize-set-variable 'ps-paper-type 'ledger) 339 (customize-set-variable 'ps-paper-type 'ledger)
340 :style radio 340 :style radio
341 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'ledger)) 341 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'ledger))
342 :active (boundp 'ps-paper-type)] 342 :active (boundp 'ps-paper-type)]
343 ["A3" 343 ["A3"
344 (customize-set-variable 'ps-paper-type 'a3) 344 (customize-set-variable 'ps-paper-type 'a3)
345 :style radio 345 :style radio
346 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'a3)) 346 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'a3))
347 :active (boundp 'ps-paper-type)] 347 :active (boundp 'ps-paper-type)]
348 ["A4" 348 ["A4"
349 (customize-set-variable 'ps-paper-type 'a4) 349 (customize-set-variable 'ps-paper-type 'a4)
350 :style radio 350 :style radio
351 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'a4)) 351 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'a4))
352 :active (boundp 'ps-paper-type)] 352 :active (boundp 'ps-paper-type)]
353 ["A4small" 353 ["A4small"
354 (customize-set-variable 'ps-paper-type 'a4small) 354 (customize-set-variable 'ps-paper-type 'a4small)
355 :style radio 355 :style radio
356 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'a4small)) 356 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'a4small))
357 :active (boundp 'ps-paper-type)] 357 :active (boundp 'ps-paper-type)]
358 ["B4" 358 ["B4"
359 (customize-set-variable 'ps-paper-type 'b4) 359 (customize-set-variable 'ps-paper-type 'b4)
360 :style radio 360 :style radio
361 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'b4)) 361 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'b4))
362 :active (boundp 'ps-paper-type)] 362 :active (boundp 'ps-paper-type)]
363 ["B5" 363 ["B5"
364 (customize-set-variable 'ps-paper-type 'b5) 364 (customize-set-variable 'ps-paper-type 'b5)
365 :style radio 365 :style radio
366 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'b5)) 366 :selected (and (boundp 'ps-paper-type) (eq ps-paper-type 'b5))
367 :active (boundp 'ps-paper-type)] 367 :active (boundp 'ps-paper-type)]
368 ) 368 )
373 (and (boundp 'original-face-background) 373 (and (boundp 'original-face-background)
374 original-face-background 374 original-face-background
375 (set-face-background 'default original-face-background))) 375 (set-face-background 'default original-face-background)))
376 (t 376 (t
377 (customize-set-variable 'ps-print-color-p t) 377 (customize-set-variable 'ps-print-color-p t)
378 (setq original-face-background 378 (setq original-face-background
379 (face-background-instance 'default)) 379 (face-background-instance 'default))
380 (set-face-background 'default "white"))) 380 (set-face-background 'default "white")))
381 :style toggle 381 :style toggle
382 :selected (and (boundp 'ps-print-color-p) ps-print-color-p) 382 :selected (and (boundp 'ps-print-color-p) ps-print-color-p)
383 :active (boundp 'ps-print-color-p)]) 383 :active (boundp 'ps-print-color-p)])
384 ("\"Other Window\" Location" 384 ("\"Other Window\" Location"
385 ["Always in Same Frame" 385 ["Always in Same Frame"
386 (customize-set-variable 386 (customize-set-variable
387 'get-frame-for-buffer-default-instance-limit nil) 387 'get-frame-for-buffer-default-instance-limit nil)
388 :style radio 388 :style radio
389 :selected (null get-frame-for-buffer-default-instance-limit)] 389 :selected (null get-frame-for-buffer-default-instance-limit)]
390 ["Other Frame (2 Frames Max)" 390 ["Other Frame (2 Frames Max)"
391 (customize-set-variable 'get-frame-for-buffer-default-instance-limit 2) 391 (customize-set-variable 'get-frame-for-buffer-default-instance-limit 2)
407 (customize-set-variable 'get-frame-for-buffer-default-instance-limit 0) 407 (customize-set-variable 'get-frame-for-buffer-default-instance-limit 0)
408 :style radio 408 :style radio
409 :selected (eq 0 get-frame-for-buffer-default-instance-limit)] 409 :selected (eq 0 get-frame-for-buffer-default-instance-limit)]
410 "-----" 410 "-----"
411 ["Temp Buffers Always in Same Frame" 411 ["Temp Buffers Always in Same Frame"
412 (customize-set-variable 'temp-buffer-show-function 412 (customize-set-variable 'temp-buffer-show-function
413 'show-temp-buffer-in-current-frame) 413 'show-temp-buffer-in-current-frame)
414 :style radio 414 :style radio
415 :selected (eq temp-buffer-show-function 415 :selected (eq temp-buffer-show-function
416 'show-temp-buffer-in-current-frame)] 416 'show-temp-buffer-in-current-frame)]
417 ["Temp Buffers Like Other Buffers" 417 ["Temp Buffers Like Other Buffers"
425 :selected (and (boundp 'gnuserv-frame) (eq gnuserv-frame t)) 425 :selected (and (boundp 'gnuserv-frame) (eq gnuserv-frame t))
426 :active (boundp 'gnuserv-frame)] 426 :active (boundp 'gnuserv-frame)]
427 ) 427 )
428 "-----" 428 "-----"
429 ("Syntax Highlighting" 429 ("Syntax Highlighting"
430 ["In This Buffer" 430 ["In This Buffer"
431 (progn ;; becomes buffer local 431 (progn ;; becomes buffer local
432 (font-lock-mode) 432 (font-lock-mode)
433 (customize-set-variable 'font-lock-mode font-lock-mode)) 433 (customize-set-variable 'font-lock-mode font-lock-mode))
434 :style toggle 434 :style toggle
435 :selected (and (boundp 'font-lock-mode) font-lock-mode) 435 :selected (and (boundp 'font-lock-mode) font-lock-mode)
436 :active (boundp 'font-lock-mode)] 436 :active (boundp 'font-lock-mode)]
437 ["Automatic" 437 ["Automatic"
438 (customize-set-variable 'font-lock-auto-fontify 438 (customize-set-variable 'font-lock-auto-fontify
439 (not font-lock-auto-fontify)) 439 (not font-lock-auto-fontify))
440 :style toggle 440 :style toggle
441 :selected (and (boundp 'font-lock-auto-fontify) font-lock-auto-fontify) 441 :selected (and (boundp 'font-lock-auto-fontify) font-lock-auto-fontify)
442 :active (fboundp 'font-lock-mode)] 442 :active (fboundp 'font-lock-mode)]
443 "-----" 443 "-----"
444 ["Fonts" 444 ["Fonts"
445 (progn 445 (progn
446 (require 'font-lock) 446 (require 'font-lock)
447 (font-lock-use-default-fonts) 447 (font-lock-use-default-fonts)
448 (customize-set-variable 'font-lock-use-fonts t) 448 (customize-set-variable 'font-lock-use-fonts t)
449 (customize-set-variable 'font-lock-use-colors nil) 449 (customize-set-variable 'font-lock-use-colors nil)
477 :selected (and (boundp 'font-lock-maximium-decoration) 477 :selected (and (boundp 'font-lock-maximium-decoration)
478 (or (and (not (integerp font-lock-maximum-decoration)) 478 (or (and (not (integerp font-lock-maximum-decoration))
479 (not (eq t font-lock-maximum-decoration))) 479 (not (eq t font-lock-maximum-decoration)))
480 (and (integerp font-lock-maximum-decoration) 480 (and (integerp font-lock-maximum-decoration)
481 (<= font-lock-maximum-decoration 0))))] 481 (<= font-lock-maximum-decoration 0))))]
482 ["More" 482 ["More"
483 (progn 483 (progn
484 (require 'font-lock) 484 (require 'font-lock)
485 (if (and (integerp font-lock-maximum-decoration) 485 (if (and (integerp font-lock-maximum-decoration)
486 (= 1 font-lock-maximum-decoration)) 486 (= 1 font-lock-maximum-decoration))
487 nil 487 nil
490 :style radio 490 :style radio
491 :active (fboundp 'font-lock-mode) 491 :active (fboundp 'font-lock-mode)
492 :selected (and (boundp 'font-lock-maximium-decoration) 492 :selected (and (boundp 'font-lock-maximium-decoration)
493 (integerp font-lock-maximum-decoration) 493 (integerp font-lock-maximum-decoration)
494 (= 1 font-lock-maximum-decoration))] 494 (= 1 font-lock-maximum-decoration))]
495 ["Even More" 495 ["Even More"
496 (progn 496 (progn
497 (require 'font-lock) 497 (require 'font-lock)
498 (if (and (integerp font-lock-maximum-decoration) 498 (if (and (integerp font-lock-maximum-decoration)
499 (= 2 font-lock-maximum-decoration)) 499 (= 2 font-lock-maximum-decoration))
500 nil 500 nil
527 (customize-set-variable 'lazy-shot-mode lazy-shot-mode) 527 (customize-set-variable 'lazy-shot-mode lazy-shot-mode)
528 ;; this shouldn't be necessary so there has to 528 ;; this shouldn't be necessary so there has to
529 ;; be a redisplay bug lurking somewhere (or 529 ;; be a redisplay bug lurking somewhere (or
530 ;; possibly another event handler bug) 530 ;; possibly another event handler bug)
531 (redraw-modeline)) 531 (redraw-modeline))
532 :active (and (boundp 'font-lock-mode) (boundp 'lazy-shot-mode) 532 :active (and (boundp 'font-lock-mode) (boundp 'lazy-shot-mode)
533 font-lock-mode) 533 font-lock-mode)
534 :style toggle 534 :style toggle
535 :selected (and (boundp 'lazy-shot-mode) lazy-shot-mode)] 535 :selected (and (boundp 'lazy-shot-mode) lazy-shot-mode)]
536 ["Caching" 536 ["Caching"
537 (progn ;; becomes buffer local 537 (progn ;; becomes buffer local
547 :selected (and (boundp 'fast-lock-mode) fast-lock-mode)] 547 :selected (and (boundp 'fast-lock-mode) fast-lock-mode)]
548 ) 548 )
549 ("Paren Highlighting" 549 ("Paren Highlighting"
550 ["None" 550 ["None"
551 (customize-set-variable 'paren-mode nil) 551 (customize-set-variable 'paren-mode nil)
552 :style radio 552 :style radio
553 :selected (and (boundp 'paren-mode) (not paren-mode)) 553 :selected (and (boundp 'paren-mode) (not paren-mode))
554 :active (boundp 'paren-mode)] 554 :active (boundp 'paren-mode)]
555 ["Blinking Paren" 555 ["Blinking Paren"
556 (customize-set-variable 'paren-mode 'blink-paren) 556 (customize-set-variable 'paren-mode 'blink-paren)
557 :style radio 557 :style radio
558 :selected (and (boundp 'paren-mode) (eq paren-mode 'blink-paren)) 558 :selected (and (boundp 'paren-mode) (eq paren-mode 'blink-paren))
559 :active (boundp 'paren-mode)] 559 :active (boundp 'paren-mode)]
560 ["Steady Paren" 560 ["Steady Paren"
561 (customize-set-variable 'paren-mode 'paren) 561 (customize-set-variable 'paren-mode 'paren)
562 :style radio 562 :style radio
563 :selected (and (boundp 'paren-mode) (eq paren-mode 'paren)) 563 :selected (and (boundp 'paren-mode) (eq paren-mode 'paren))
564 :active (boundp 'paren-mode)] 564 :active (boundp 'paren-mode)]
565 ["Expression" 565 ["Expression"
566 (customize-set-variable 'paren-mode 'sexp) 566 (customize-set-variable 'paren-mode 'sexp)
567 :style radio 567 :style radio
568 :selected (and (boundp 'paren-mode) (eq paren-mode 'sexp)) 568 :selected (and (boundp 'paren-mode) (eq paren-mode 'sexp))
569 :active (boundp 'paren-mode)] 569 :active (boundp 'paren-mode)]
570 ;; ["Nested Shading" 570 ;; ["Nested Shading"
571 ;; (customize-set-variable 'paren-mode 'nested) 571 ;; (customize-set-variable 'paren-mode 'nested)
572 ;; :style radio 572 ;; :style radio
573 ;; :selected (and (boundp 'paren-mode) (eq paren-mode 'nested)) 573 ;; :selected (and (boundp 'paren-mode) (eq paren-mode 'nested))
574 ;; :active (boundp 'paren-mode)] 574 ;; :active (boundp 'paren-mode)]
575 ) 575 )
576 "-----" 576 "-----"
577 ("Frame Appearance" 577 ("Frame Appearance"
578 ["Frame-Local Font Menu" 578 ["Frame-Local Font Menu"
579 (customize-set-variable 'font-menu-this-frame-only-p 579 (customize-set-variable 'font-menu-this-frame-only-p
580 (not font-menu-this-frame-only-p)) 580 (not font-menu-this-frame-only-p))
581 :style toggle 581 :style toggle
582 :selected (and (boundp 'font-menu-this-frame-only-p) 582 :selected (and (boundp 'font-menu-this-frame-only-p)
583 font-menu-this-frame-only-p)] 583 font-menu-this-frame-only-p)]
584 ,@(if (featurep 'scrollbar) 584 ,@(if (featurep 'scrollbar)
585 '(["Scrollbars" 585 '(["Scrollbars"
586 (customize-set-variable 'scrollbars-visible-p 586 (customize-set-variable 'scrollbars-visible-p
587 (not scrollbars-visible-p)) 587 (not scrollbars-visible-p))
588 :style toggle 588 :style toggle
589 :selected scrollbars-visible-p])) 589 :selected scrollbars-visible-p]))
590 ;; I don't think this is of any interest. - dverna apr. 98 590 ;; I don't think this is of any interest. - dverna apr. 98
591 ;; #### I beg to differ! Many FSFmacs converts hate the 3D 591 ;; #### I beg to differ! Many FSFmacs converts hate the 3D
592 ;; modeline, and it was perfectly fine to be able to turn them 592 ;; modeline, and it was perfectly fine to be able to turn them
593 ;; off through the Options menu. I would have uncommented this 593 ;; off through the Options menu. I would have uncommented this
594 ;; source, but the code for saving options would not save the 594 ;; source, but the code for saving options would not save the
595 ;; modeline 3D-ness. Grrr. --hniksic 595 ;; modeline 3D-ness. Grrr. --hniksic
596 ;; ["3D Modeline" 596 ;; ["3D Modeline"
597 ;; (progn 597 ;; (progn
598 ;; (if (zerop (specifier-instance modeline-shadow-thickness)) 598 ;; (if (zerop (specifier-instance modeline-shadow-thickness))
599 ;; (set-specifier modeline-shadow-thickness 2) 599 ;; (set-specifier modeline-shadow-thickness 2)
600 ;; (set-specifier modeline-shadow-thickness 0)) 600 ;; (set-specifier modeline-shadow-thickness 0))
601 ;; (redraw-modeline t)) 601 ;; (redraw-modeline t))
602 ;; :style toggle 602 ;; :style toggle
603 ;; :selected (let ((thickness 603 ;; :selected (let ((thickness
604 ;; (specifier-instance modeline-shadow-thickness))) 604 ;; (specifier-instance modeline-shadow-thickness)))
605 ;; (and (integerp thickness) 605 ;; (and (integerp thickness)
606 ;; (> thickness 0)))] 606 ;; (> thickness 0)))]
607 ["Truncate Lines" 607 ["Truncate Lines"
608 (progn ;; becomes buffer-local 608 (progn ;; becomes buffer-local
614 (customize-set-variable 'blink-cursor-mode (not blink-cursor-mode)) 614 (customize-set-variable 'blink-cursor-mode (not blink-cursor-mode))
615 :style toggle 615 :style toggle
616 :selected (and (boundp 'blink-cursor-mode) blink-cursor-mode) 616 :selected (and (boundp 'blink-cursor-mode) blink-cursor-mode)
617 :active (boundp 'blink-cursor-mode)] 617 :active (boundp 'blink-cursor-mode)]
618 "-----" 618 "-----"
619 ["Block cursor" 619 ["Block cursor"
620 (progn 620 (progn
621 (customize-set-variable 'bar-cursor nil) 621 (customize-set-variable 'bar-cursor nil)
622 (force-cursor-redisplay)) 622 (force-cursor-redisplay))
623 :style radio 623 :style radio
624 :selected (null bar-cursor)] 624 :selected (null bar-cursor)]
625 ["Bar cursor (1 pixel)" 625 ["Bar cursor (1 pixel)"
626 (progn 626 (progn
627 (customize-set-variable 'bar-cursor t) 627 (customize-set-variable 'bar-cursor t)
628 (force-cursor-redisplay)) 628 (force-cursor-redisplay))
629 :style radio 629 :style radio
630 :selected (eq bar-cursor t)] 630 :selected (eq bar-cursor t)]
631 ["Bar cursor (2 pixels)" 631 ["Bar cursor (2 pixels)"
632 (progn 632 (progn
633 (customize-set-variable 'bar-cursor 2) 633 (customize-set-variable 'bar-cursor 2)
634 (force-cursor-redisplay)) 634 (force-cursor-redisplay))
635 :style radio 635 :style radio
636 :selected (and bar-cursor (not (eq bar-cursor t)))] 636 :selected (and bar-cursor (not (eq bar-cursor t)))]
637 "------" 637 "------"
638 ["Line Numbers" 638 ["Line Numbers"
639 (progn 639 (progn
640 (customize-set-variable 'line-number-mode (not line-number-mode)) 640 (customize-set-variable 'line-number-mode (not line-number-mode))
650 ("Menubar Appearance" 650 ("Menubar Appearance"
651 ["Buffers Menu Length..." 651 ["Buffers Menu Length..."
652 (customize-set-variable 652 (customize-set-variable
653 'buffers-menu-max-size 653 'buffers-menu-max-size
654 ;; would it be better to open a customization buffer ? 654 ;; would it be better to open a customization buffer ?
655 (let ((val 655 (let ((val
656 (read-number 656 (read-number
657 "Enter number of buffers to display (or 0 for unlimited): "))) 657 "Enter number of buffers to display (or 0 for unlimited): ")))
658 (if (eq val 0) nil val)))] 658 (if (eq val 0) nil val)))]
659 ["Multi-Operation Buffers Sub-Menus" 659 ["Multi-Operation Buffers Sub-Menus"
660 (customize-set-variable 'complex-buffers-menu-p 660 (customize-set-variable 'complex-buffers-menu-p
676 :style radio 676 :style radio
677 :selected (eq 'sort-buffers-menu-alphabetically 677 :selected (eq 'sort-buffers-menu-alphabetically
678 buffers-menu-sort-function)] 678 buffers-menu-sort-function)]
679 ["By Major Mode, Then Alphabetically" 679 ["By Major Mode, Then Alphabetically"
680 (progn 680 (progn
681 (customize-set-variable 681 (customize-set-variable
682 'buffers-menu-sort-function 682 'buffers-menu-sort-function
683 'sort-buffers-menu-by-mode-then-alphabetically) 683 'sort-buffers-menu-by-mode-then-alphabetically)
684 (customize-set-variable 684 (customize-set-variable
685 'buffers-menu-grouping-function 685 'buffers-menu-grouping-function
686 'group-buffers-menu-by-mode-then-alphabetically)) 686 'group-buffers-menu-by-mode-then-alphabetically))
687 :style radio 687 :style radio
688 :selected (eq 'sort-buffers-menu-by-mode-then-alphabetically 688 :selected (eq 'sort-buffers-menu-by-mode-then-alphabetically
689 buffers-menu-sort-function)]) 689 buffers-menu-sort-function)])
694 :selected buffers-menu-submenus-for-groups-p] 694 :selected buffers-menu-submenus-for-groups-p]
695 "---" 695 "---"
696 ["Ignore Scaled Fonts" 696 ["Ignore Scaled Fonts"
697 (customize-set-variable 'font-menu-ignore-scaled-fonts 697 (customize-set-variable 'font-menu-ignore-scaled-fonts
698 (not font-menu-ignore-scaled-fonts)) 698 (not font-menu-ignore-scaled-fonts))
699 :style toggle 699 :style toggle
700 :selected (and (boundp 'font-menu-ignore-scaled-fonts) 700 :selected (and (boundp 'font-menu-ignore-scaled-fonts)
701 font-menu-ignore-scaled-fonts)] 701 font-menu-ignore-scaled-fonts)]
702 ) 702 )
703 ,@(if (featurep 'toolbar) 703 ,@(if (featurep 'toolbar)
704 '(("Toolbar Appearance" 704 '(("Toolbar Appearance"
705 ["Visible" 705 ["Visible"
706 (customize-set-variable 'toolbar-visible-p 706 (customize-set-variable 'toolbar-visible-p
707 (not toolbar-visible-p)) 707 (not toolbar-visible-p))
708 :style toggle 708 :style toggle
709 :selected toolbar-visible-p] 709 :selected toolbar-visible-p]
710 ["Captioned" 710 ["Captioned"
711 (customize-set-variable 'toolbar-captioned-p 711 (customize-set-variable 'toolbar-captioned-p
712 (not toolbar-captioned-p)) 712 (not toolbar-captioned-p))
713 :style toggle 713 :style toggle
714 :selected toolbar-captioned-p] 714 :selected toolbar-captioned-p]
715 ("Default Location" 715 ("Default Location"
716 ["Top" 716 ["Top"
717 (customize-set-variable 'default-toolbar-position 'top) 717 (customize-set-variable 'default-toolbar-position 'top)
718 :style radio 718 :style radio
719 :selected (eq default-toolbar-position 'top)] 719 :selected (eq default-toolbar-position 'top)]
720 ["Bottom" 720 ["Bottom"
721 (customize-set-variable 'default-toolbar-position 'bottom) 721 (customize-set-variable 'default-toolbar-position 'bottom)
722 :style radio 722 :style radio
723 :selected (eq default-toolbar-position 'bottom)] 723 :selected (eq default-toolbar-position 'bottom)]
724 ["Left" 724 ["Left"
725 (customize-set-variable 'default-toolbar-position 'left) 725 (customize-set-variable 'default-toolbar-position 'left)
731 :selected (eq default-toolbar-position 'right)] 731 :selected (eq default-toolbar-position 'right)]
732 ) 732 )
733 ))) 733 )))
734 ("Mouse" 734 ("Mouse"
735 ["Avoid Text..." 735 ["Avoid Text..."
736 (customize-set-variable 'mouse-avoidance-mode 736 (customize-set-variable 'mouse-avoidance-mode
737 (if mouse-avoidance-mode nil 'banish)) 737 (if mouse-avoidance-mode nil 'banish))
738 :style toggle 738 :style toggle
739 :selected (and (boundp 'mouse-avoidance-mode) mouse-avoidance-mode) 739 :selected (and (boundp 'mouse-avoidance-mode) mouse-avoidance-mode)
740 :active (and (boundp 'mouse-avoidance-mode) 740 :active (and (boundp 'mouse-avoidance-mode)
741 (device-on-window-system-p))] 741 (device-on-window-system-p))]
745 :selected (and (boundp 'strokes-mode) strokes-mode) 745 :selected (and (boundp 'strokes-mode) strokes-mode)
746 :active (and (boundp 'strokes-mode) 746 :active (and (boundp 'strokes-mode)
747 (device-on-window-system-p))] 747 (device-on-window-system-p))]
748 ) 748 )
749 ("Open URLs With" 749 ("Open URLs With"
750 ["Emacs-W3" 750 ["Emacs-W3"
751 (customize-set-variable 'browse-url-browser-function 'browse-url-w3) 751 (customize-set-variable 'browse-url-browser-function 'browse-url-w3)
752 :style radio 752 :style radio
753 :selected (and (boundp 'browse-url-browser-function) 753 :selected (and (boundp 'browse-url-browser-function)
754 (eq browse-url-browser-function 'browse-url-w3)) 754 (eq browse-url-browser-function 'browse-url-w3))
755 :active (and (boundp 'browse-url-browser-function) 755 :active (and (boundp 'browse-url-browser-function)
756 (fboundp 'browse-url-w3) 756 (fboundp 'browse-url-w3)
757 (fboundp 'w3-fetch))] 757 (fboundp 'w3-fetch))]
758 ["Netscape" 758 ["Netscape"
759 (customize-set-variable 'browse-url-browser-function 759 (customize-set-variable 'browse-url-browser-function
760 'browse-url-netscape) 760 'browse-url-netscape)
761 :style radio 761 :style radio
762 :selected (and (boundp 'browse-url-browser-function) 762 :selected (and (boundp 'browse-url-browser-function)
763 (eq browse-url-browser-function 'browse-url-netscape)) 763 (eq browse-url-browser-function 'browse-url-netscape))
764 :active (and (boundp 'browse-url-browser-function) 764 :active (and (boundp 'browse-url-browser-function)
765 (fboundp 'browse-url-netscape))] 765 (fboundp 'browse-url-netscape))]
766 ["Mosaic" 766 ["Mosaic"
767 (customize-set-variable 'browse-url-browser-function 767 (customize-set-variable 'browse-url-browser-function
768 'browse-url-mosaic) 768 'browse-url-mosaic)
769 :style radio 769 :style radio
770 :selected (and (boundp 'browse-url-browser-function) 770 :selected (and (boundp 'browse-url-browser-function)
771 (eq browse-url-browser-function 'browse-url-mosaic)) 771 (eq browse-url-browser-function 'browse-url-mosaic))
772 :active (and (boundp 'browse-url-browser-function) 772 :active (and (boundp 'browse-url-browser-function)
773 (fboundp 'browse-url-mosaic))] 773 (fboundp 'browse-url-mosaic))]
774 ["Mosaic (CCI)" 774 ["Mosaic (CCI)"
775 (customize-set-variable 'browse-url-browser-function 'browse-url-cci) 775 (customize-set-variable 'browse-url-browser-function 'browse-url-cci)
776 :style radio 776 :style radio
777 :selected (and (boundp 'browse-url-browser-function) 777 :selected (and (boundp 'browse-url-browser-function)
778 (eq browse-url-browser-function 'browse-url-cci)) 778 (eq browse-url-browser-function 'browse-url-cci))
779 :active (and (boundp 'browse-url-browser-function) 779 :active (and (boundp 'browse-url-browser-function)
780 (fboundp 'browse-url-cci))] 780 (fboundp 'browse-url-cci))]
781 ["IXI Mosaic" 781 ["IXI Mosaic"
782 (customize-set-variable 'browse-url-browser-function 782 (customize-set-variable 'browse-url-browser-function
783 'browse-url-iximosaic) 783 'browse-url-iximosaic)
784 :style radio 784 :style radio
785 :selected (and (boundp 'browse-url-browser-function) 785 :selected (and (boundp 'browse-url-browser-function)
786 (eq browse-url-browser-function 'browse-url-iximosaic)) 786 (eq browse-url-browser-function 'browse-url-iximosaic))
787 :active (and (boundp 'browse-url-browser-function) 787 :active (and (boundp 'browse-url-browser-function)
788 (fboundp 'browse-url-iximosaic))] 788 (fboundp 'browse-url-iximosaic))]
789 ["Lynx (xterm)" 789 ["Lynx (xterm)"
790 (customize-set-variable 'browse-url-browser-function 790 (customize-set-variable 'browse-url-browser-function
791 'browse-url-lynx-xterm) 791 'browse-url-lynx-xterm)
792 :style radio 792 :style radio
793 :selected (and (boundp 'browse-url-browser-function) 793 :selected (and (boundp 'browse-url-browser-function)
794 (eq browse-url-browser-function 'browse-url-lynx-xterm)) 794 (eq browse-url-browser-function 'browse-url-lynx-xterm))
800 :style radio 800 :style radio
801 :selected (and (boundp 'browse-url-browser-function) 801 :selected (and (boundp 'browse-url-browser-function)
802 (eq browse-url-browser-function 'browse-url-lynx-emacs)) 802 (eq browse-url-browser-function 'browse-url-lynx-emacs))
803 :active (and (boundp 'browse-url-browser-function) 803 :active (and (boundp 'browse-url-browser-function)
804 (fboundp 'browse-url-lynx-emacs))] 804 (fboundp 'browse-url-lynx-emacs))]
805 ["Grail" 805 ["Grail"
806 (customize-set-variable 'browse-url-browser-function 806 (customize-set-variable 'browse-url-browser-function
807 'browse-url-grail) 807 'browse-url-grail)
808 :style radio 808 :style radio
809 :selected (and (boundp 'browse-url-browser-function) 809 :selected (and (boundp 'browse-url-browser-function)
810 (eq browse-url-browser-function 'browse-url-grail)) 810 (eq browse-url-browser-function 'browse-url-grail))
811 :active (and (boundp 'browse-url-browser-function) 811 :active (and (boundp 'browse-url-browser-function)
812 (fboundp 'browse-url-grail))] 812 (fboundp 'browse-url-grail))]
813 ["Kfm"
814 (customize-set-variable 'browse-url-browser-function
815 'browse-url-kfm)
816 :style radio
817 :selected (and (boundp 'browse-url-browser-function)
818 (eq browse-url-browser-function 'browse-url-kfm))
819 :active (and (boundp 'browse-url-browser-function)
820 (fboundp 'browse-url-kfm))]
813 ) 821 )
814 "-----" 822 "-----"
815 ["Edit Faces..." (customize-face nil)] 823 ["Edit Faces..." (customize-face nil)]
816 ("Font" :filter font-menu-family-constructor) 824 ("Font" :filter font-menu-family-constructor)
817 ("Size" :filter font-menu-size-constructor) 825 ("Size" :filter font-menu-size-constructor)