[Emacs-diffs] Changes to emacs/lispintro/emacs-lisp-intro.texi

[Robert J . Chassell]

Index: emacs/lispintro/emacs-lisp-intro.texi
diff -c emacs/lispintro/emacs-lisp-intro.texi:1.29 
emacs/lispintro/emacs-lisp-intro.texi:1.30
*** emacs/lispintro/emacs-lisp-intro.texi:1.29  Fri Oct  8 13:07:25 2004
--- emacs/lispintro/emacs-lisp-intro.texi       Tue Oct 12 17:15:06 2004
***************
*** 14930,14940 ****
         ;; 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 "." "..")
                     (substring (car (car current-directory-list)) -1))
!             ;; then do nothing if filename is that of
!             ;;   current directory or parent
              ()
  @end group
  @group
--- 14930,14940 ----
         ;; check whether filename is that of a directory
         ((eq t (car (cdr (car current-directory-list))))
          ;; decide whether to skip or recurse
!         (if 
!             (equal "."
                     (substring (car (car current-directory-list)) -1))
!             ;; then do nothing since filename is that of
!             ;;   current directory or parent, "." or ".."
              ()
  @end group
  @group