diff options
| author | Richard M. Stallman | 1993-11-10 20:48:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-11-10 20:48:04 +0000 |
| commit | 1b88a44adba12af342e92ea05b6536e2fdcb9474 (patch) | |
| tree | 30db71e4b1d77c4e7041295937ee96e70b2de0aa | |
| parent | de3fa0b2382dd1eb35e4362cbdd66d7749a58fb6 (diff) | |
| download | emacs-1b88a44adba12af342e92ea05b6536e2fdcb9474.tar.gz emacs-1b88a44adba12af342e92ea05b6536e2fdcb9474.zip | |
(Man-filter-list): Include anything starting with
alphabetics, and containing "Last change:".
(manual-entry): Don't call `Man-downcase' since
Man-translate-references has already done the right thing.
| -rw-r--r-- | lisp/man.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/man.el b/lisp/man.el index 5e2027a2107..9c011ea7d0c 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -149,7 +149,7 @@ the associated section number.") | |||
| 149 | "-e '/^ *Page [0-9]*.*(printed [0-9\\/]*)$/d'" | 149 | "-e '/^ *Page [0-9]*.*(printed [0-9\\/]*)$/d'" |
| 150 | "-e '/^Printed [0-9].*[0-9]$/d'" | 150 | "-e '/^Printed [0-9].*[0-9]$/d'" |
| 151 | "-e '/^[ \\t]*X Version 1[01].*Release [0-9]/d'" | 151 | "-e '/^[ \\t]*X Version 1[01].*Release [0-9]/d'" |
| 152 | "-e '/^Sun Microsystems.*Last change:/d'" | 152 | "-e '/^[A-za-z].*Last change:/d'" |
| 153 | "-e '/^Sun Release [0-9].*[0-9]$/d'" | 153 | "-e '/^Sun Release [0-9].*[0-9]$/d'" |
| 154 | "-e '/^\\n$/D'" | 154 | "-e '/^\\n$/D'" |
| 155 | )) | 155 | )) |
| @@ -420,8 +420,9 @@ Universal argument ARG, is passed to `Man-getpage-in-background'." | |||
| 420 | ;; Recognize the subject(section) syntax. | 420 | ;; Recognize the subject(section) syntax. |
| 421 | (setq man-args (Man-translate-references man-args)) | 421 | (setq man-args (Man-translate-references man-args)) |
| 422 | 422 | ||
| 423 | (if Man-downcase-section-letters-p | 423 | ;; This is apparently already done correctly via Man-translate-references. |
| 424 | (setq man-args (Man-downcase man-args))) | 424 | ;; (if Man-downcase-section-letters-p |
| 425 | ;; (setq man-args (Man-downcase man-args))) | ||
| 425 | (Man-getpage-in-background man-args (consp arg)) | 426 | (Man-getpage-in-background man-args (consp arg)) |
| 426 | )) | 427 | )) |
| 427 | 428 | ||