(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 385b3537278acaae3c5010d97c38144eaa07543a..7f9d2185721224a782ea9826d1936c15cbecf1ba 100644 (file)
--- 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