(if (file-exists-p boot)
(load boot))))
-(require 'cl)
+(require 'cl-lib)
(require 'dot-emacs)
(unless (mdw-emacs-version-p 25)
(not (and (fboundp 'daemonp) (daemonp)))
(progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")
edit-server-new-frame nil
+ server-raise-frame nil
gnuserv-frame t)
- (trap (let ((warning-suppress-types
- (cons '(server)
- (and (boundp 'warning-suppress-types)
- warning-suppress-types))))
- (server-start)))
+ (trap (progn
+ (require 'server)
+ (let ((state (server-running-p)))
+ (if state
+ (message "Emacs server %s: not starting"
+ (cond ((eq state t) "already running")
+ (t "maybe running")))
+ (server-start)))))
(trap (progn
(require 'edit-server)
(edit-server-start)
wdired-allow-to-change-permissions 'advanced)
(setq read-quoted-char-radix 16) ;C-q HEX-STUFF [RET]
(setq case-fold-file-names nil) ;Don't translate file names (grr...)
-(setq scroll-step 5) ;Don't scroll too much at a time
+(setq scroll-step 5 ;Don't scroll too much at a time
+ hscroll-step 8
+ auto-hscroll-mode 'current-line)
(setq custom-unlispify-tag-names nil ;Display variable names properly
custom-unlispify-menu-entries nil
custom-buffer-done-kill t)
(setq browse-url-browser-function (mdw-good-url-browser)
browse-url-generic-program "mdw-chrome"
- browse-url-mozilla-program "mdw-iceweasel")
+ browse-url-firefox-program "mdw-iceweasel"
+ browse-url-mozilla-program browse-url-firefox-program)
(setq w3m-default-display-inline-images t
w3m-use-cookies t)
("application/x-pdf" "\\.pdf\\'" ("xdg-open" file) nil))))
(dolist (e entries)
(setq w3m-content-type-alist
- (cons e (remove* (car e) w3m-content-type-alist
- :key #'car :test #'string=))))))
+ (cons e (cl-remove (car e) w3m-content-type-alist
+ :key #'car :test #'string=))))))
(setq w3-do-incremental-display t
w3-use-menus '(file edit view go bookmark options
(global-set-key [?\e ?\e] 'mdw-wrong)
(global-set-key [?\e ?\C-\] ?\C-\]] 'keyboard-escape-quit)
(global-set-key [?\C-c ?\M-x] 'execute-extended-command)
+ (global-set-key [?\C-c ?c ?\C-w] 'clipboard-kill-region)
+ (global-set-key [?\C-c ?c ?w] 'clipboard-kill-ring-save)
+ (global-set-key [?\C-c ?c ?y] 'clipboard-yank)
(global-set-key [?\C-c ?d ?a] 'devhelp-assistant-word-at-point)
(global-set-key [?\C-c ?d ?w] 'devhelp-word-at-point)
(global-set-key [?\C-c ?g ?a] 'org-agenda)
(global-set-key [?\C-c ?w ?b] 'w3m-bookmark-view)
(global-set-key [?\C-c ?w ?c] 'mdw-set-frame-colour)
(global-set-key [?\C-c ?w ?d] 'mdw-divvy-window)
+ (global-set-key [?\C-c ?w ?f] 'mdw-set-fallback-window)
(global-set-key [?\C-c ?w ?h] 'windmove-left)
(global-set-key [?\C-c ?w ?j] 'windmove-down)
(global-set-key [?\C-c ?w ?k] 'windmove-up)
(eval-after-load "hippie-exp"
'(setq hippie-expand-try-functions-list
- (remove-if (lambda (name)
- (memq name '(try-expand-list
- try-expand-list-all-buffers)))
- hippie-expand-try-functions-list)))
+ (cl-remove-if (lambda (name)
+ (memq name '(try-expand-list
+ try-expand-list-all-buffers)))
+ hippie-expand-try-functions-list)))
(autoload 'dired-jump "dired-x")
(autoload 'dired-jump-other-window "dired-x")
(setq completion-ignored-extensions
(append `(".hc" ".hi") completion-ignored-extensions))
-(dolist (dir (remove-if-not (lambda (ext)
- (= (aref ext (- (length ext) 1)) ?/))
- completion-ignored-extensions))
+(dolist (dir (cl-remove-if-not (lambda (ext)
+ (= (aref ext (- (length ext) 1)) ?/))
+ completion-ignored-extensions))
(if (/= (aref dir 0) ?/)
(setq completion-ignored-extensions
(cons (concat "/" dir)