diff options
| author | Robert J. Chassell <bob@rattlesnake.com> | 2004-10-12 17:15:06 +0000 |
|---|---|---|
| committer | Robert J. Chassell <bob@rattlesnake.com> | 2004-10-12 17:15:06 +0000 |
| commit | aa23c0152da9fcea4dd14ce9c739e287b45628d3 (patch) | |
| tree | 94bee2d78b3f9a1786d77b9af30d0464523eb20f /lispintro | |
| parent | 3c456f2a6c0d86de57d751feee01ba17a769cba2 (diff) | |
| download | emacs-aa23c0152da9fcea4dd14ce9c739e287b45628d3.tar.gz | |
(files-in-below-directory): remove unneeded `or' expression that looks
at both . and .. since argument to `substring' specifies just one
character.
Diffstat (limited to 'lispintro')
| -rw-r--r-- | lispintro/emacs-lisp-intro.texi | 8 |
1 files changed, 4 insertions, 4 deletions
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 |