From: Stefan Kangas <stefankangas@gmail.com>
Date: Mon, 28 Oct 2019 15:13:28 +0000 (+0100)
Subject: * lisp/eshell/em-term.el: Remove commented out XEmacs compat code.
X-Git-Tag: emacs-27.0.90~848
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ee2caac4ddf3e790216a0353debef65e4a12c80;p=emacs.git

* lisp/eshell/em-term.el: Remove commented out XEmacs compat code.
---

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)