| @@ -523,6 +523,10 @@ found, otherwise returns nil." | |||||
| 'executable-make-buffer-file-executable-if-script-p) | 'executable-make-buffer-file-executable-if-script-p) | ||||
| (setq bookmark-default-file "~/.emacs.d/bmk") | (setq bookmark-default-file "~/.emacs.d/bmk") | ||||
| (add-hook 'recentf-load-hook | |||||
| (lambda () | |||||
| (add-to-list 'recentf-exclude | |||||
| (regexp-quote bookmark-default-file)))) | |||||
| (and (fetch-library | (and (fetch-library | ||||
| "https://github.com/10sr/emacs-lisp/raw/master/read-only-only-mode.el" | "https://github.com/10sr/emacs-lisp/raw/master/read-only-only-mode.el" | ||||
| @@ -533,8 +537,7 @@ found, otherwise returns nil." | |||||
| "https://raw.github.com/10sr/emacs-lisp/master/smart-revert.el" | "https://raw.github.com/10sr/emacs-lisp/master/smart-revert.el" | ||||
| t) | t) | ||||
| (require 'smart-revert nil t) | (require 'smart-revert nil t) | ||||
| (smart-revert-on) | |||||
| ) | |||||
| (smart-revert-on)) | |||||
| ;; autosave | ;; autosave | ||||
| @@ -687,7 +690,7 @@ found, otherwise returns nil." | |||||
| ;; window | ;; window | ||||
| ;; forked from http://d.hatena.ne.jp/khiker/20100119/window_resize | ;; forked from http://d.hatena.ne.jp/khiker/20100119/window_resize | ||||
| (define-key my-prefix-map (kbd "C-w") 'my-window-organizer) | |||||
| (define-key ctl-x-map (kbd "w") 'my-window-organizer) | |||||
| (defun my-window-organizer () | (defun my-window-organizer () | ||||
| "Control window size and position." | "Control window size and position." | ||||
| @@ -1876,19 +1879,6 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer." | |||||
| nil)) | nil)) | ||||
| )) | )) | ||||
| (defun my-keyboard-quit () | |||||
| "" | |||||
| (interactive) | |||||
| (run-hooks 'before-keyboard-quit-hook) | |||||
| ;; (redisplay t) | |||||
| (redraw-display) | |||||
| ;; (run-hooks 'window-configuration-change-hook) | |||||
| (keyboard-quit) | |||||
| (insert "insert me") | |||||
| (run-hooks 'after-keyboard-quit-hook)) | |||||
| (substitute-key-definition 'keyboard-quit 'my-keyboard-quit global-map) | |||||
| ;; (global-set-key (kbd "C-g") 'my-keyboard-quit) | |||||
| (defun my-convmv-sjis2utf8-test () | (defun my-convmv-sjis2utf8-test () | ||||
| "run `convmv -r -f sjis -t utf8 *' | "run `convmv -r -f sjis -t utf8 *' | ||||
| this is test, does not rename files" | this is test, does not rename files" | ||||