Parcourir la source

remove func my-keyboard-quit

pull/1/head
10sr il y a 12 ans
Parent
révision
ce866cb235
1 fichiers modifiés avec 6 ajouts et 16 suppressions
  1. +6
    -16
      emacs.el

+ 6
- 16
emacs.el Voir le fichier

@@ -523,6 +523,10 @@ found, otherwise returns nil."
'executable-make-buffer-file-executable-if-script-p)

(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
"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"
t)
(require 'smart-revert nil t)
(smart-revert-on)
)
(smart-revert-on))

;; autosave

@@ -687,7 +690,7 @@ found, otherwise returns nil."
;; window

;; 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 ()
"Control window size and position."
@@ -1876,19 +1879,6 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
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 ()
"run `convmv -r -f sjis -t utf8 *'
this is test, does not rename files"


Chargement…
Annuler
Enregistrer