# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1054487215 0
# Node ID ec20af5e04b37566e298e7757518d82ff610a889
# Parent  2e1886ab346df76858428d6cf3cc14835d10d025
(Man-name-regexp): Also match Latin-1 soft hyphen.
(Man-build-references-alist): Handle Latin-1 soft hyphen.

diff -r 2e1886ab346d -r ec20af5e04b3 lisp/man.el
--- 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))))