import xemacs-21.2.37

[chise/xemacs-chise.git.1] / lisp / hyper-apropos.el

diff --git a/lisp/hyper-apropos.el b/lisp/hyper-apropos.el
index 7725839..7194df8 100644 (file)
--- a/lisp/hyper-apropos.el
+++ b/lisp/hyper-apropos.el
@@ -1085,12 +1085,13 @@ Deletes lines which match PATTERN."
               nil
             (forward-char 3)
             (read (point-marker))))
               nil
             (forward-char 3)
             (read (point-marker))))

-         ((and
-           (eq major-mode 'hyper-apropos-help-mode)
-           (> (point) (point-min)))
-          (save-excursion
-            (goto-char (point-min))
-            (hyper-apropos-this-symbol)))
+         ;; What's this?  This ends up in the same symbol already described.
+;;       ((and
+;;         (eq major-mode 'hyper-apropos-help-mode)
+;;         (> (point) (point-min)))
+;;        (save-excursion
+;;          (goto-char (point-min))
+;;          (hyper-apropos-this-symbol)))

          (t
           (let* ((st (progn
                        (skip-syntax-backward "w_")
          (t
           (let* ((st (progn
                        (skip-syntax-backward "w_")