From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 10 Nov 1993 20:48:04 +0000 (+0000)
Subject: (Man-filter-list): Include anything starting with
X-Git-Tag: emacs-19.34~10883
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1b88a44adba12af342e92ea05b6536e2fdcb9474;p=emacs.git

(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.
---

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.")
       "-e '/^ *Page [0-9]*.*(printed [0-9\\/]*)$/d'"
       "-e '/^Printed [0-9].*[0-9]$/d'"
       "-e '/^[ \\t]*X Version 1[01].*Release [0-9]/d'"
-      "-e '/^Sun Microsystems.*Last change:/d'"
+      "-e '/^[A-za-z].*Last change:/d'"
       "-e '/^Sun Release [0-9].*[0-9]$/d'"
       "-e '/^\\n$/D'"
       ))
@@ -420,8 +420,9 @@ Universal argument ARG, is passed to `Man-getpage-in-background'."
     ;; Recognize the subject(section) syntax.
     (setq man-args (Man-translate-references man-args))
 
-    (if Man-downcase-section-letters-p
-	(setq man-args (Man-downcase man-args)))
+    ;; This is apparently already done correctly via Man-translate-references.
+    ;; (if Man-downcase-section-letters-p
+    ;;    (setq man-args (Man-downcase man-args)))
     (Man-getpage-in-background man-args (consp arg))
     ))