|
@@ -1673,9 +1673,13 @@ when SEC is nil, stop auto save if enabled." |
|
|
"" |
|
|
"" |
|
|
(interactive) |
|
|
(interactive) |
|
|
(run-hooks 'before-keyboard-quit-hook) |
|
|
(run-hooks 'before-keyboard-quit-hook) |
|
|
(call-interactively 'keyboard-quit) |
|
|
|
|
|
;; (redisplay t) |
|
|
;; (redisplay t) |
|
|
(redraw-display) |
|
|
(redraw-display) |
|
|
|
|
|
;; (run-hooks 'window-configuration-change-hook) |
|
|
|
|
|
(my-revert-buffer-if-needed) |
|
|
|
|
|
;; (revert-buffer t t) |
|
|
|
|
|
(keyboard-quit) |
|
|
|
|
|
(insert "insert me") |
|
|
(run-hooks 'after-keyboard-quit-hook)) |
|
|
(run-hooks 'after-keyboard-quit-hook)) |
|
|
(substitute-key-definition 'keyboard-quit 'my-keyboard-quit global-map) |
|
|
(substitute-key-definition 'keyboard-quit 'my-keyboard-quit global-map) |
|
|
;; (global-set-key (kbd "C-g") 'my-keyboard-quit) |
|
|
;; (global-set-key (kbd "C-g") 'my-keyboard-quit) |
|
|