changeset 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 2e1886ab346d
children 8a3d812ebc28
files lisp/man.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
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))))