diff options
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/edt.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index a32fb612adb..e0e2660b70a 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el | |||
| @@ -2033,7 +2033,8 @@ created." | |||
| 2033 | ;; Make highlighting of selected text work properly for EDT commands. | 2033 | ;; Make highlighting of selected text work properly for EDT commands. |
| 2034 | (if (featurep 'emacs) | 2034 | (if (featurep 'emacs) |
| 2035 | (progn | 2035 | (progn |
| 2036 | (setq edt-orig-transient-mark-mode transient-mark-mode) | 2036 | (setq edt-orig-transient-mark-mode |
| 2037 | (default-value 'transient-mark-mode)) | ||
| 2037 | (add-hook 'activate-mark-hook | 2038 | (add-hook 'activate-mark-hook |
| 2038 | (function | 2039 | (function |
| 2039 | (lambda () | 2040 | (lambda () |
| @@ -2068,7 +2069,7 @@ created." | |||
| 2068 | (edt-reset) | 2069 | (edt-reset) |
| 2069 | (force-mode-line-update t) | 2070 | (force-mode-line-update t) |
| 2070 | (if (featurep 'emacs) | 2071 | (if (featurep 'emacs) |
| 2071 | (setq transient-mark-mode edt-orig-transient-mark-mode)) | 2072 | (setq-default transient-mark-mode edt-orig-transient-mark-mode)) |
| 2072 | (message "Original key bindings restored; EDT Emulation disabled")) | 2073 | (message "Original key bindings restored; EDT Emulation disabled")) |
| 2073 | 2074 | ||
| 2074 | (defun edt-default-menu-bar-update-buffers () | 2075 | (defun edt-default-menu-bar-update-buffers () |