diff options
| author | Jim Blandy | 1993-06-11 10:29:55 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-06-11 10:29:55 +0000 |
| commit | d801ac097818c66c631ee870b9fbbc5263e0c2ef (patch) | |
| tree | b608b9ad674cd59524642e04f51163a114503434 | |
| parent | c45a6306850d425b74b317329816567b5567f5e5 (diff) | |
| download | emacs-d801ac097818c66c631ee870b9fbbc5263e0c2ef.tar.gz emacs-d801ac097818c66c631ee870b9fbbc5263e0c2ef.zip | |
* man.el (manual-entry): Recognize the subject(section) syntax.
| -rw-r--r-- | lisp/man.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/man.el b/lisp/man.el index 3b40ab02d06..26c3aa1400b 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -419,6 +419,13 @@ Universal argument ARG, is passed to Man-getpage-in-background." | |||
| 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)) |