# HG changeset patch
# User Robert J. Chassell <bob@rattlesnake.com>
# Date 1097601306 0
# Node ID dc60b5774fad772c870d620ee09db2cd31bfac44
# Parent  4dab182e8b053b9e696b10ae3541484241f415a6
(files-in-below-directory): remove unneeded `or' expression that looks
at both . and .. since argument to `substring' specifies just one
character.

diff -r 4dab182e8b05 -r dc60b5774fad lispintro/emacs-lisp-intro.texi
--- a/lispintro/emacs-lisp-intro.texi	Tue Oct 12 16:40:38 2004 +0000
+++ b/lispintro/emacs-lisp-intro.texi	Tue Oct 12 17:15:06 2004 +0000
@@ -14930,11 +14930,11 @@
        ;; 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