LABEL-LENGTH characters of value."
(mapcar #'(lambda (x)
(if (<= (length x) label-length)
- (list x x)
- (list
- (concat "..." (substring x (- label-length))) x)))
+ (list x x)
+ (list
+ (concat "..." (substring x (- label-length))) x)))
(if (<= (length list) count)
list
(butlast list (- (length list) count)))))
(menu-split-long-menu
(submenu-generate-accelerator-spec
(package-ui-download-menu)))))
- ("%_Pre-Releases"
- :filter (lambda (&rest junk)
- (menu-split-long-menu
- (submenu-generate-accelerator-spec
- (package-ui-pre-release-download-menu)))))
("%_Site Releases"
:filter (lambda (&rest junk)
(menu-split-long-menu
menu
(let ((items
(submenu-generate-accelerator-spec
- (mapcar #'(lambda (label-value)
+ (mapcar #'(lambda (label-value)
(vector (first label-value)
(list 'grep (second label-value))))
(Menubar-items-truncate-history
- grep-history 10 50)))))
+ grep-history 10 50)))))
(append menu '("---") items))))
["%_Grep..." grep :active (fboundp 'grep)]
["%_Kill Grep" kill-compilation
(vector (first label-value)
(list 'compile (second label-value))))
(Menubar-items-truncate-history
- compile-history 10 50)))))
+ compile-history 10 50)))))
(append menu '("---") items))))
["%_Compile..." compile :active (fboundp 'compile)]
["%_Repeat Compilation" recompile :active (fboundp 'recompile)]
:active (and (boundp 'browse-url-browser-function)
(fboundp 'browse-url-w3)
(fboundp 'w3-fetch))]
- ["Emacs-%_W3 (gnudoit)"
- (customize-set-variable 'browse-url-browser-function 'browse-url-w3-gnudoit)
- :style radio
- :selected (and (boundp 'browse-url-browser-function)
- (eq browse-url-browser-function
- 'browse-url-w3-gnudoit))
+ ["Emacs-%_W3 (gnuclient)"
+ (customize-set-variable 'browse-url-browser-function 'browse-url-w3-gnudoit)
+ :style radio
+ :selected (and (boundp 'browse-url-browser-function)
+ (eq browse-url-browser-function
+ 'browse-url-w3-gnudoit))
:active (and (boundp 'browse-url-browser-function)
(fboundp 'browse-url-w3-gnudoit))]
["%_Netscape"
["Edit I%_nit File"
;; #### there should be something that holds the name that the init
;; file should be created as, when it's not present.
- (progn (find-file (or user-init-file "~/.sxemacs/init.el"))
+ (progn (find-file (or user-init-file
+ (expand-file-name "init.el" user-init-directory)))
(or (eq major-mode 'emacs-lisp-mode)
(emacs-lisp-mode)))]
["%_Save Options to Custom File" customize-save-customized]