diff options
author | Glenn Morris <rgm@gnu.org> | 2019-04-21 07:51:36 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2019-04-21 07:51:36 -0700 |
commit | 50d00e71530d584d20a339d3000a042c51c9d15b (patch) | |
tree | ad1b5a901463899f81580383b517581ef26685e7 /lisp | |
parent | 3f90aa7eec8909d6e4501dcd551665981b6b09af (diff) | |
parent | 037970f1af6c87767501ac6d46c50abe9d3f44e0 (diff) | |
download | emacs-50d00e71530d584d20a339d3000a042c51c9d15b.tar.gz |
Merge from origin/emacs-26
037970f Document insert-image-file's return value (Bug#32978)
598b45a Autoload cua-toggle-rectangle-mark (Bug#34947)
95bd56d Tell xclip not to expect job-control under eshell (Bug#35257)
9997bbb ; * src/emacs.c: Fix typo in comment (Bug#35320).
a4ad7be Fix off-by-one-link error in image--set-property
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/emulation/cua-base.el | 1 | ||||
-rw-r--r-- | lisp/eshell/esh-proc.el | 6 | ||||
-rw-r--r-- | lisp/image-file.el | 5 | ||||
-rw-r--r-- | lisp/image.el | 4 |
4 files changed, 11 insertions, 5 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 105e1ab43d8..46258cbbd81 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -602,6 +602,7 @@ a cons (TYPE . COLOR), then both properties are affected." (autoload 'cua-set-rectangle-mark "cua-rect" "Start rectangle at mouse click position." t nil) +(autoload 'cua-toggle-rectangle-mark "cua-rect" nil t) ;; Stub definitions until it is loaded (defvar cua--rectangle) diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el index d538ae32b37..32a3eecb523 100644 --- a/lisp/eshell/esh-proc.el +++ b/lisp/eshell/esh-proc.el @@ -251,7 +251,11 @@ The prompt will be set to PROMPT." "A marker that tracks the beginning of output of the last subprocess. Used only on systems which do not support async subprocesses.") -(defvar eshell-needs-pipe '("bc") +(defvar eshell-needs-pipe + '("bc" + ;; xclip.el (in GNU ELPA) calls all of these with + ;; `process-connection-type' set to nil. + "pbpaste" "putclip" "xclip" "xsel" "wl-copy") "List of commands which need `process-connection-type' to be nil. Currently only affects commands in pipelines, and not those at the front. If an element contains a directory part it must match diff --git a/lisp/image-file.el b/lisp/image-file.el index bc5ef446bb2..abc4686d69c 100644 --- a/lisp/image-file.el +++ b/lisp/image-file.el @@ -97,8 +97,9 @@ the variable is set using \\[customize]." ;;;###autoload (defun insert-image-file (file &optional visit beg end replace) "Insert the image file FILE into the current buffer. -Optional arguments VISIT, BEG, END, and REPLACE are interpreted as for -the command `insert-file-contents'." +Optional arguments VISIT, BEG, END, and REPLACE are interpreted +as for the command `insert-file-contents'. Return list of +absolute file name and number of characters inserted." (let ((rval (image-file-call-underlying #'insert-file-contents-literally 'insert-file-contents diff --git a/lisp/image.el b/lisp/image.el index 6da3a0b6cd0..ba87d7f7859 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -454,10 +454,10 @@ Internal use only." ;; plist. Decouple plist entries where the key matches ;; the property. (if (eq (cadr image) property) - (setcdr image (cddr image)) + (setcdr image (cdddr image)) (setq image (cddr image)))) ;; Just enter the new value. - (plist-put (cdr image) property value)) + (setcdr image (plist-put (cdr image) property value))) value) (defun image-property (image property) |