Mercurial > emacs
diff lisp/man.el @ 51376:ec20af5e04b3
(Man-name-regexp): Also match Latin-1 soft hyphen.
(Man-build-references-alist): Handle Latin-1 soft hyphen.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 01 Jun 2003 17:06:55 +0000 |
| parents | c7575377858f |
| children | ebe64300a9d5 |
line wrap: on
line diff
--- a/lisp/man.el Sun Jun 01 00:55:17 2003 +0000 +++ b/lisp/man.el Sun Jun 01 17:06:55 2003 +0000 @@ -1,6 +1,6 @@ -;;; man.el --- browse UNIX manual pages +;;; man.el --- browse UNIX manual pages -*- coding: iso-8859-1 -*- -;; Copyright (C) 1993, 1994, 1996, 1997, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1996, 1997, 2001, 2003 Free Software Foundation, Inc. ;; Author: Barry A. Warsaw <bwarsaw@cen.com> ;; Maintainer: FSF @@ -241,7 +241,7 @@ (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_.]*" +(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,7 +999,7 @@ ;; Update len, in case a reference spans ;; more than two lines (paranoia). len (1- (length word)))) - (if (= (aref word len) ?-) + (if (memq (aref word len) '(?- ?)) (setq hyphenated (substring word 0 len))) (if (string-match Man-reference-regexp word) (aput 'Man-refpages-alist word))))