Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 84b14dcb0985
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
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]
239 ["List & Install" pui-list-packages] 239 ["List & Install" pui-list-packages]
240 ["Update Installed Packages" package-get-update-all] 240 ["Update Installed Packages" package-get-update-all]
241 ;; hack-o-matic, we can't force a laod of package-base here 241 ;; hack-o-matic, we can't force a load of package-base here
242 ;; since it triggers dialog box interactions which we can't 242 ;; since it triggers dialog box interactions which we can't
243 ;; deal while using a menu 243 ;; deal with while using a menu
244 ("Using Custom" 244 ("Using Custom"
245 :filter (lambda (&rest junk) 245 :filter (lambda (&rest junk)
246 (if package-get-base 246 (if package-get-base
247 (cdr (custom-menu-create 'packages)) 247 (cdr (custom-menu-create 'packages))
248 '(["Please load Package Index" (lamda (&rest junk) ()) nil])))) 248 '(["Please load Package Index" (lamda (&rest junk) ()) nil]))))
373 :active (boundp 'ps-paper-type)] 373 :active (boundp 'ps-paper-type)]
374 ) 374 )
375 ["Color Printing" 375 ["Color Printing"
376 (cond (ps-print-color-p 376 (cond (ps-print-color-p
377 (customize-set-variable 'ps-print-color-p nil) 377 (customize-set-variable 'ps-print-color-p nil)
378 ;; I'm wondering whether all this muck is usefull. 378 ;; I'm wondering whether all this muck is useful.
379 (and (boundp 'original-face-background) 379 (and (boundp 'original-face-background)
380 original-face-background 380 original-face-background
381 (set-face-background 'default original-face-background))) 381 (set-face-background 'default original-face-background)))
382 (t 382 (t
383 (customize-set-variable 'ps-print-color-p t) 383 (customize-set-variable 'ps-print-color-p t)
993 (load-user-init-file-p nil) 993 (load-user-init-file-p nil)
994 ((file-exists-p (expand-file-name ".emacs" "~")) 994 ((file-exists-p (expand-file-name ".emacs" "~"))
995 (add-menu-button nil 995 (add-menu-button nil
996 ["Load .emacs" 996 ["Load .emacs"
997 (progn (delete-menu-item '("Load .emacs")) 997 (progn (delete-menu-item '("Load .emacs"))
998 (load-user-init-file (user-login-name))) 998 (load-user-init-file))
999 ] 999 ]
1000 "Help")) 1000 "Help"))
1001 (t nil))) 1001 (t nil)))
1002 1002
1003 (add-hook 'before-init-hook 'maybe-add-init-button) 1003 (add-hook 'before-init-hook 'maybe-add-init-button)
1250 ) 1250 )
1251 (vector "Save As..." 1251 (vector "Save As..."
1252 (list 'buffer-menu-write-file name) t) 1252 (list 'buffer-menu-write-file name) t)
1253 (vector "Delete Buffer" (list 'kill-buffer name) 1253 (vector "Delete Buffer" (list 'kill-buffer name)
1254 t))) 1254 t)))
1255 ;; ### We don't want buffer names to be translated, 1255 ;; #### We don't want buffer names to be translated,
1256 ;; ### so we put the buffer name in the suffix. 1256 ;; #### so we put the buffer name in the suffix.
1257 ;; ### Also, avoid losing with non-ASCII buffer names. 1257 ;; #### Also, avoid losing with non-ASCII buffer names.
1258 ;; ### We still lose, however, if complex-buffers-menu-p. --mrb 1258 ;; #### We still lose, however, if complex-buffers-menu-p. --mrb
1259 (vector "" 1259 (vector ""
1260 (list buffers-menu-switch-to-buffer-function 1260 (list buffers-menu-switch-to-buffer-function
1261 (buffer-name buffer)) 1261 (buffer-name buffer))
1262 t line)))) 1262 t line))))
1263 buffers))) 1263 buffers)))
1414 This is appended to the default items in `global-popup-menu'. 1414 This is appended to the default items in `global-popup-menu'.
1415 See the function `popup-menu' for a description of menu syntax.") 1415 See the function `popup-menu' for a description of menu syntax.")
1416 (make-variable-buffer-local 'mode-popup-menu) 1416 (make-variable-buffer-local 'mode-popup-menu)
1417 1417
1418 ;; In an effort to avoid massive menu clutter, this mostly worthless menu is 1418 ;; In an effort to avoid massive menu clutter, this mostly worthless menu is
1419 ;; superceded by any local popup menu... 1419 ;; superseded by any local popup menu...
1420 (setq-default mode-popup-menu default-popup-menu) 1420 (setq-default mode-popup-menu default-popup-menu)
1421 1421
1422 (defvar activate-popup-menu-hook nil 1422 (defvar activate-popup-menu-hook nil
1423 "Function or functions run before a mode-specific popup menu is made visible. 1423 "Function or functions run before a mode-specific popup menu is made visible.
1424 These functions are called with no arguments, and should interrogate and 1424 These functions are called with no arguments, and should interrogate and