edit-server-new-frame nil
gnuserv-frame t)
(trap (let ((warning-suppress-types
- (cons '(server) warning-suppress-types)))
+ (cons '(server)
+ (and (boundp 'warning-suppress-types)
+ warning-suppress-types))))
(server-start)))
(trap (progn
(require 'edit-server)
(require 'ido-completing-read+)
(unless (fboundp 'ido-ubiquitous-mode) (require 'ido-ubiquitous))
(ido-ubiquitous-mode 1)
- (setq ido-cr+-max-items nil
- ido-ubiquitous-command-overrides
- (append ido-ubiquitous-command-overrides
- `((enable-old regexp ,(concat "\\`"
- "gtags-find-"
- "\\(" "tag"
- "\\|file"
- "\\|rtag"
- "\\|symbol"
- "\\)"
- "\\(" "\\|-other-window"
- "\\)"
- "\\'")))))
+ (setq ido-cr+-max-items nil)
+ (let ((excludes `(,(concat "\\`"
+ "gtags-find-"
+ "\\(" "tag"
+ "\\|file"
+ "\\|rtag"
+ "\\|symbol"
+ "\\)"
+ "\\(" "\\|-other-window"
+ "\\)"
+ "\\'"))))
+ (if (boundp 'ido-ubiquitous-command-overrides)
+ (setq ido-ubiquitous-command-overrides
+ (append ido-ubiquitous-command-overrides
+ (mapcar (lambda (exclude)
+ (if (symbolp exclude)
+ `(enable-old exact
+ ,(symbol-name exclude))
+ `(enable-old regexp ,exclude)))
+ excludes)))
+ (setq ido-cr+-function-blacklist
+ (append ido-cr+-function-blacklist excludes))))
(setq magit-completing-read-function 'magit-ido-completing-read)
(require 'smex) (smex-initialize) (global-set-key [?\M-x] 'smex))