diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2019-10-28 16:13:28 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2019-10-28 16:17:41 +0100 |
| commit | 9ee2caac4ddf3e790216a0353debef65e4a12c80 (patch) | |
| tree | c92a11945b986c1d4cb5d50c2f2b46bd19eb3e0f /lisp/eshell | |
| parent | 1f1ce5b3118abed0248f4a0bddd3f7538256dcac (diff) | |
| download | emacs-9ee2caac4ddf3e790216a0353debef65e4a12c80.tar.gz emacs-9ee2caac4ddf3e790216a0353debef65e4a12c80.tar.bz2 emacs-9ee2caac4ddf3e790216a0353debef65e4a12c80.zip | |
* lisp/eshell/em-term.el: Remove commented out XEmacs compat code.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/em-term.el | 22 |
1 files changed, 8 insertions, 14 deletions
diff --git a/lisp/eshell/em-term.el b/lisp/eshell/em-term.el index 06d59cfc5b5..5c8cd4f0faf 100644 --- a/lisp/eshell/em-term.el +++ b/lisp/eshell/em-term.el @@ -258,17 +258,13 @@ the buffer." ; (defun eshell-term-mouse-paste (click arg) ; "Insert the last stretch of killed text at the position clicked on." ; (interactive "e\nP") -; (if (boundp 'xemacs-logo) -; (eshell-term-send-raw-string -; (or (condition-case () (x-get-selection) (error ())) -; (error "No selection available"))) -; ;; Give temporary modes such as isearch a chance to turn off. -; (run-hooks 'mouse-leave-buffer-hook) -; (setq this-command 'yank) -; (eshell-term-send-raw-string -; (current-kill (cond ((listp arg) 0) -; ((eq arg '-) -1) -; (t (1- arg))))))) +; ;; Give temporary modes such as isearch a chance to turn off. +; (run-hooks 'mouse-leave-buffer-hook) +; (setq this-command 'yank) +; (eshell-term-send-raw-string +; (current-kill (cond ((listp arg) 0) +; ((eq arg '-) -1) +; (t (1- arg)))))) ; ;; Which would be better: "\e[A" or "\eOA"? readline accepts either. ; ;; For my configuration it's definitely better \eOA but YMMV. -mm @@ -316,9 +312,7 @@ the buffer." ; (setq eshell-term-raw-map map) ; (setq eshell-term-raw-escape-map ; (copy-keymap (lookup-key (current-global-map) "\C-x"))) -; (if (boundp 'xemacs-logo) -; (define-key eshell-term-raw-map [button2] 'eshell-term-mouse-paste) -; (define-key eshell-term-raw-map [mouse-2] 'eshell-term-mouse-paste)) +; (define-key eshell-term-raw-map [mouse-2] 'eshell-term-mouse-paste) ; (define-key eshell-term-raw-map [up] 'eshell-term-send-up) ; (define-key eshell-term-raw-map [down] 'eshell-term-send-down) ; (define-key eshell-term-raw-map [right] 'eshell-term-send-right) |