aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/eshell
diff options
context:
space:
mode:
authorGlenn Morris2016-12-10 18:11:56 -0800
committerGlenn Morris2016-12-10 18:11:56 -0800
commit442e2f61b742b315bbaec81085df9ee4e79495b1 (patch)
treeaf474050608a52a422c8918cc7ca720e515d8415 /lisp/eshell
parente4ac4507968b839569b5ce12a9c4d0374dd46768 (diff)
downloademacs-442e2f61b742b315bbaec81085df9ee4e79495b1.tar.gz
emacs-442e2f61b742b315bbaec81085df9ee4e79495b1.zip
Fixes related to select-enable-clipboard
* lisp/menu-bar.el (clipboard-yank, clipboard-kill-ring-save) (clipboard-kill-region): * lisp/eshell/esh-io.el (eshell-virtual-targets) (eshell-clipboard-append): Replace option gui-select-enable-clipboard with select-enable-clipboard; renamed October 2014. (Bug#25145)
Diffstat (limited to 'lisp/eshell')
-rw-r--r--lisp/eshell/esh-io.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el
index 1b4f4093168..e88a4e0f66d 100644
--- a/lisp/eshell/esh-io.el
+++ b/lisp/eshell/esh-io.el
@@ -125,7 +125,7 @@ from executing while Emacs is redisplaying."
125 'eshell-kill-append) t) 125 'eshell-kill-append) t)
126 ("/dev/clip" (lambda (mode) 126 ("/dev/clip" (lambda (mode)
127 (if (eq mode 'overwrite) 127 (if (eq mode 'overwrite)
128 (let ((gui-select-enable-clipboard t)) 128 (let ((select-enable-clipboard t))
129 (kill-new ""))) 129 (kill-new "")))
130 'eshell-clipboard-append) t)) 130 'eshell-clipboard-append) t))
131 "Map virtual devices name to Emacs Lisp functions. 131 "Map virtual devices name to Emacs Lisp functions.
@@ -325,7 +325,7 @@ last execution result should not be changed."
325(defun eshell-clipboard-append (string) 325(defun eshell-clipboard-append (string)
326 "Call `kill-append' with STRING, if it is indeed a string." 326 "Call `kill-append' with STRING, if it is indeed a string."
327 (if (stringp string) 327 (if (stringp string)
328 (let ((gui-select-enable-clipboard t)) 328 (let ((select-enable-clipboard t))
329 (kill-append string nil)))) 329 (kill-append string nil))))
330 330
331(defun eshell-get-target (target &optional mode) 331(defun eshell-get-target (target &optional mode)