diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-06-11 10:29:55 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-06-11 10:29:55 +0000 |
| commit | d801ac097818c66c631ee870b9fbbc5263e0c2ef (patch) | |
| tree | b608b9ad674cd59524642e04f51163a114503434 | |
| parent | c45a6306850d425b74b317329816567b5567f5e5 (diff) | |
| download | emacs-d801ac097818c66c631ee870b9fbbc5263e0c2ef.tar.gz | |
* 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." (if (string= default-entry "") (error "No man args given.") (setq man-args default-entry))) + ;; Recognize the subject(section) syntax. + (if (string-match "^[ \t]*\\([^( \t]+\\)[ \t]*(\\([^)]+\\))[ \t]*$" + man-args) + (setq man-args + (concat (substring man-args (match-beginning 2) (match-end 2)) + " " + (substring man-args (match-beginning 1) (match-end 1))))) (if Man-downcase-section-letters-p (setq man-args (Man-downcase man-args))) (Man-getpage-in-background man-args (consp arg)) |