(Man-default-man-entry): Don't whizz past the section number

before looking for it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0381005285a5a1bad3308e53729916146032d5fa..dea0810ed7f4fca01f6d59fa1761303ff7b1fb03 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-25  John Paul Wallington  <jpw@gnu.org>
+
+       * man.el (Man-default-man-entry): Don't whizz past the section
+       number before looking for it.
+
 2003-08-24  Nick Roberts  <nick@nick.uklinux.net>
 
        * progmodes/gud.el (gud-display-line): Don't set window-point if

diff --git a/lisp/man.el b/lisp/man.el
index a3085e41501e673e43aafde8f6a3631993590b41..1de5fe8384463775c5788b6d0ad4316342dc5957 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -574,7 +574,6 @@ This guess is based on the text surrounding the cursor."
          (setq word (substring word 0 (match-beginning 0))))
       ;; If looking at something like ioctl(2) or brc(1M), include the
       ;; section number in the returned value.  Remove text properties.
-      (forward-word 1)
       (concat word
              (if (looking-at
                   (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)"))