[Emacs-diffs] Changes to emacs/lisp/man.el

[John Paul Wallington]

Index: emacs/lisp/man.el
diff -c emacs/lisp/man.el:1.125 emacs/lisp/man.el:1.126
*** emacs/lisp/man.el:1.125     Sun Jul 13 13:16:31 2003
--- emacs/lisp/man.el   Sun Aug 24 14:08:01 2003
***************
*** 569,587 ****
        (skip-chars-backward "-a-zA-Z0-9._+:")
        (let ((start (point)))
        (skip-chars-forward "-a-zA-Z0-9._+:")
!       (setq word (buffer-substring start (point))))
        (if (string-match "[._]+$" word)
          (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)
!       ;; Use `format' here to clear any text props from `word'.
!       (format "%s%s"
!             word
              (if (looking-at
                   (concat "[ \t]*([ \t]*\\(" Man-section-regexp "\\)[ \t]*)"))
!                 (format "(%s)" (match-string 1))
!               "")))))
  
  
  ;; ======================================================================
--- 569,584 ----
        (skip-chars-backward "-a-zA-Z0-9._+:")
        (let ((start (point)))
        (skip-chars-forward "-a-zA-Z0-9._+:")
!       (setq word (buffer-substring-no-properties start (point))))
        (if (string-match "[._]+$" word)
          (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]*)"))
!                 (format "(%s)" (match-string-no-properties 1)))))))
  
  
  ;; ======================================================================