[Emacs-diffs] Changes to emacs/lisp/eshell/esh-cmd.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/08/13 03:12:36

Index: esh-cmd.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/esh-cmd.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- esh-cmd.el  25 Jun 2008 15:05:33 -0000      1.41
+++ esh-cmd.el  13 Aug 2008 03:12:36 -0000      1.42
@@ -1252,9 +1252,12 @@
                              (prog1
                                  (describe-function sym)
                                (message nil))))))
-               (setq desc (substring desc 0
+               (setq desc (if desc (substring desc 0
                                      (1- (or (string-match "\n" desc)
-                                             (length 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))))))