Merge from emacs-24; up to 2014-06-29T18:32:35Z!michael.albinus@gmx.de

3 files changed, 21 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 713a1aab838..f96921d4329 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2014-08-15  Leo Liu  <sdl.web@gmail.com>
+
+        * speedbar.el (speedbar-generic-list-tag-p): Allow special
+        elements from imenu.
+
+2014-08-15  Glenn Morris  <rgm@gnu.org>
+
+        * subr.el (with-output-to-temp-buffer): Doc fix; from elisp manual.
+
 2014-08-13  Jan Nieuwenhuizen  <janneke@gnu.org>
 
         * progmodes/compile.el (compilation-error-regexp-alist-alist):
@@ -7,7 +16,7 @@
 
         * progmodes/gud.el (guiler): New function.  Starts the Guile REPL;
         add Guile debugger support for GUD.
-        
+
 2014-08-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * obsolete/mouse-sel.el (mouse-sel-mode): Use add/remove-function.
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 55e86e7fef3..11d2d435383 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -2111,9 +2111,10 @@ cell of the form ( 'DIRLIST . 'FILELIST )."
 ;;  in order to make it look nice.
 ;;
 ;;  A generic list is of the form:
-;;  ( ("name" . marker-or-number)              <-- one tag at this level
-;;    ("name" ("name" . mon) ("name" . mon) )  <-- one group of tags
-;;    ("name" mon ("name" . mon) )             <-- group w/ a position and tags
+;;  ( ("name" . marker-or-number)                <-- one tag at this level
+;;    ("name" marker-or-number goto-fun . args)  <-- one tag at this level
+;;    ("name" ("name" . mon) ("name" . mon) )    <-- one group of tags
+;;    ("name" mon ("name" . mon) )               <-- group w/ a position and tags
 (defun speedbar-generic-list-group-p (sublst)
   "Non-nil if SUBLST is a group.
 Groups may optionally contain a position."
@@ -2144,6 +2145,8 @@ Groups may optionally contain a position."
   (and (stringp (car-safe sublst))
        (or (and (number-or-marker-p (cdr-safe sublst))
                 (not (cdr-safe (cdr-safe sublst))))
+           (ignore-errors (and (number-or-marker-p (nth 1 sublst))
+                               (functionp (nth 2 sublst))))
            ;; For semantic/bovine items, this is needed
            (symbolp (car-safe (cdr-safe sublst))))
        ))
diff --git a/lisp/subr.el b/lisp/subr.el
index 9accb9d36c5..c168cf5fdb2 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3102,6 +3102,11 @@ buffer temporarily current, and the window that was used to display it
 temporarily selected.  But it doesn't run `temp-buffer-show-hook'
 if it uses `temp-buffer-show-function'.
 
+By default, the setup hook puts the buffer into Help mode before running BODY.
+If BODY does not change the major mode, the show hook makes the buffer
+read-only, and scans it for function and variable names to make them into
+clickable cross-references.
+
 See the related form `with-temp-buffer-window'."
   (declare (debug t))
   (let ((old-dir (make-symbol "old-dir"))