mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(eshell/which): Handle the case where no description is found.

Browse Source
This commit is contained in:
Glenn Morris 2008-08-13 03:12:49 +00:00
parent 05d1da31b5
commit c1043701f6
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2008-08-13 Glenn Morris <rgm@gnu.org>
* eshell/esh-cmd.el (eshell/which): Handle the case where no description
is found.
2008-08-12 Alan Mackenzie <acm@muc.de>
* progmodes/cc-defs.el (c-emacs-features):

9
lisp/eshell/esh-cmd.el
View File

@ -1252,9 +1252,12 @@ be finished later after the completion of an asynchronous subprocess."
(prog1
(describe-function sym)
(message nil))))))
(setq desc (substring desc 0
(1- (or (string-match "\n" desc)
(length desc)))))
(setq desc (if desc (substring desc 0
(1- (or (string-match "\n" desc)
(length desc))))
;; This should not happen.
(format "%s is defined, \
but no documentation was found" name)))
(if (buffer-live-p (get-buffer "*Help*"))
(kill-buffer "*Help*"))
(setq program (or desc name))))))