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

[Andreas Schwab]

Index: emacs/lisp/man.el
diff -c emacs/lisp/man.el:1.122 emacs/lisp/man.el:1.123
*** emacs/lisp/man.el:1.122     Wed Apr 16 01:03:13 2003
--- emacs/lisp/man.el   Sun Jun  1 13:06:55 2003
***************
*** 1,6 ****
! ;;; man.el --- browse UNIX manual pages
  
! ;; Copyright (C) 1993, 1994, 1996, 1997, 2001 Free Software Foundation, Inc.
  
  ;; Author: Barry A. Warsaw <address@hidden>
  ;; Maintainer: FSF
--- 1,6 ----
! ;;; man.el --- browse UNIX manual pages -*- coding: iso-8859-1 -*-
  
! ;; Copyright (C) 1993, 1994, 1996, 1997, 2001, 2003 Free Software Foundation, 
Inc.
  
  ;; Author: Barry A. Warsaw <address@hidden>
  ;; Maintainer: FSF
***************
*** 241,247 ****
  (defvar Man-cooked-hook nil
    "Hook run after removing backspaces but before `Man-mode' processing.")
  
! (defvar Man-name-regexp "[-a-zA-Z0-9_][-a-zA-Z0-9_.]*"
    "Regular expression describing the name of a manpage (without section).")
  
  (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]"
--- 241,247 ----
  (defvar Man-cooked-hook nil
    "Hook run after removing backspaces but before `Man-mode' processing.")
  
! (defvar Man-name-regexp "[-a-zA-Z0-9_­][-a-zA-Z0-9_.­]*"
    "Regular expression describing the name of a manpage (without section).")
  
  (defvar Man-section-regexp "[0-9][a-zA-Z+]*\\|[LNln]"
***************
*** 999,1005 ****
                              ;; Update len, in case a reference spans
                              ;; more than two lines (paranoia).
                              len (1- (length word))))
!                   (if (= (aref word len) ?-)
                        (setq hyphenated (substring word 0 len)))
                    (if (string-match Man-reference-regexp word)
                        (aput 'Man-refpages-alist word))))
--- 999,1005 ----
                              ;; Update len, in case a reference spans
                              ;; more than two lines (paranoia).
                              len (1- (length word))))
!                   (if (memq (aref word len) '(?- ?­))
                        (setq hyphenated (substring word 0 len)))
                    (if (string-match Man-reference-regexp word)
                        (aput 'Man-refpages-alist word))))