diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 6 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eldoc.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/shortdoc.el | 3 |
3 files changed, 6 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 9674b5c30e9..fc726aaef0c 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -3812,10 +3812,8 @@ Return the trampoline if found or nil otherwise." ;; Default to some temporary directory if no better option was ;; found. finally (cl-return - (expand-file-name - (make-temp-file (file-name-sans-extension rel-filename) 0 ".eln" - nil) - temporary-file-directory)))) + (make-temp-file (file-name-sans-extension rel-filename) nil ".eln" + nil)))) (defun comp-trampoline-compile (subr-name) "Synthesize compile and return a trampoline for SUBR-NAME." diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index 3f5cf0ad0dc..83948ad00d4 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el @@ -570,7 +570,7 @@ known to be truncated." Honor `eldoc-echo-area-use-multiline-p' and `eldoc-echo-area-prefer-doc-buffer'." (cond - (;; Check if he wave permission to mess with echo area at all. For + (;; Check if we have permission to mess with echo area at all. For ;; example, if this-command is non-nil while running via an idle ;; timer, we're still in the middle of executing a command, e.g. a ;; query-replace where it would be annoying to overwrite the echo diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index ed4e205d204..c49960c2ee6 100644 --- a/lisp/emacs-lisp/shortdoc.el +++ b/lisp/emacs-lisp/shortdoc.el @@ -1167,6 +1167,9 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'), :eg-result-string "#<process foo>") (processp :eval (processp t)) + (process-status + :no-eval (process-status process) + :eg-result exit) (delete-process :no-value (delete-process process)) (kill-process |