From: Robert J. Chassell <bob@rattlesnake.com>
Date: Tue, 12 Oct 2004 17:15:06 +0000 (+0000)
Subject: (files-in-below-directory): remove unneeded `or' expression that looks
X-Git-Tag: ttn-vms-21-2-B4~4605
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c203e4ef6307712698661846e60fb7dd9db443c6;p=emacs.git

(files-in-below-directory): remove unneeded `or' expression that looks
at both . and .. since argument to `substring' specifies just one
character.
---

diff --git a/lispintro/emacs-lisp-intro.texi b/lispintro/emacs-lisp-intro.texi
index 385b3537278..7f9d2185721 100644
--- a/lispintro/emacs-lisp-intro.texi
+++ b/lispintro/emacs-lisp-intro.texi
@@ -14930,11 +14930,11 @@ Here is the function:
        ;; check whether filename is that of a directory
        ((eq t (car (cdr (car current-directory-list))))
         ;; decide whether to skip or recurse
-        (if
-            (equal (or "." "..")
+        (if 
+            (equal "."
                    (substring (car (car current-directory-list)) -1))
-            ;; then do nothing if filename is that of
-            ;;   current directory or parent
+            ;; then do nothing since filename is that of
+            ;;   current directory or parent, "." or ".."
             ()
 @end group
 @group