Mercurial > emacs
comparison lisp/man.el @ 90128:13796b0653c7
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-29
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 192-205)
- Update from CVS
- Use gdb-ui breakpoint faces on ttys too
- Tweak gdb-ui breakpoint faces
- Tweak info/.arch-inventory to identify info/.cvsignore as source
- Clean up gdb-ui breakpoint faces
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 24 Mar 2005 18:41:26 +0000 |
| parents | fa9654493afb 86c528510d44 |
| children | 08185296b491 |
comparison
equal
deleted
inserted
replaced
| 90127:30ad2795fdab | 90128:13796b0653c7 |
|---|---|
| 1303 (interactive | 1303 (interactive |
| 1304 (if (not Man-refpages-alist) | 1304 (if (not Man-refpages-alist) |
| 1305 (error "There are no references in the current man page") | 1305 (error "There are no references in the current man page") |
| 1306 (list (let* ((default (or | 1306 (list (let* ((default (or |
| 1307 (car (all-completions | 1307 (car (all-completions |
| 1308 (let ((word (Man-possibly-hyphenated-word))) | 1308 (let ((word |
| 1309 (or (Man-possibly-hyphenated-word) | |
| 1310 ""))) | |
| 1309 ;; strip a trailing '-': | 1311 ;; strip a trailing '-': |
| 1310 (if (string-match "-$" word) | 1312 (if (string-match "-$" word) |
| 1311 (substring word 0 | 1313 (substring word 0 |
| 1312 (match-beginning 0)) | 1314 (match-beginning 0)) |
| 1313 word)) | 1315 word)) |