Mercurial > emacs
comparison lisp/man.el @ 3644:9e251319cdc8
* man.el (manual-entry): Recognize the subject(section) syntax.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 11 Jun 1993 10:29:55 +0000 |
parents | 062dbb10173d |
children | 296caa999ccf |
comparison
equal
deleted
inserted
replaced
3643:f336e1e9a664 | 3644:9e251319cdc8 |
---|---|
417 default-entry)))))) | 417 default-entry)))))) |
418 (and (string= man-args "") | 418 (and (string= man-args "") |
419 (if (string= default-entry "") | 419 (if (string= default-entry "") |
420 (error "No man args given.") | 420 (error "No man args given.") |
421 (setq man-args default-entry))) | 421 (setq man-args default-entry))) |
422 ;; Recognize the subject(section) syntax. | |
423 (if (string-match "^[ \t]*\\([^( \t]+\\)[ \t]*(\\([^)]+\\))[ \t]*$" | |
424 man-args) | |
425 (setq man-args | |
426 (concat (substring man-args (match-beginning 2) (match-end 2)) | |
427 " " | |
428 (substring man-args (match-beginning 1) (match-end 1))))) | |
422 (if Man-downcase-section-letters-p | 429 (if Man-downcase-section-letters-p |
423 (setq man-args (Man-downcase man-args))) | 430 (setq man-args (Man-downcase man-args))) |
424 (Man-getpage-in-background man-args (consp arg)) | 431 (Man-getpage-in-background man-args (consp arg)) |
425 )) | 432 )) |
426 | 433 |