diff options
| author | Richard M. Stallman | 1996-05-02 06:08:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-05-02 06:08:40 +0000 |
| commit | f0e1cd33545b7494c2884f3e8359847bb6cb29d6 (patch) | |
| tree | 205b7d54b47eb3dacd15c5ea410665bfd55b05dd | |
| parent | d21e67b565e6e54926856933ebf925aa7e476265 (diff) | |
| download | emacs-f0e1cd33545b7494c2884f3e8359847bb6cb29d6.tar.gz emacs-f0e1cd33545b7494c2884f3e8359847bb6cb29d6.zip | |
(Info-find-node): Don't treat file name `dir' specially
if it comes with a directory name.
| -rw-r--r-- | lisp/info.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el index bb232b33910..4d6813aa504 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -259,7 +259,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." | |||
| 259 | (if filename | 259 | (if filename |
| 260 | (let (temp temp-downcase found) | 260 | (let (temp temp-downcase found) |
| 261 | (setq filename (substitute-in-file-name filename)) | 261 | (setq filename (substitute-in-file-name filename)) |
| 262 | (if (string= (downcase (file-name-nondirectory filename)) "dir") | 262 | (if (string= (downcase filename) "dir") |
| 263 | (setq found t) | 263 | (setq found t) |
| 264 | (let ((dirs (if (string-match "^\\./" filename) | 264 | (let ((dirs (if (string-match "^\\./" filename) |
| 265 | ;; If specified name starts with `./' | 265 | ;; If specified name starts with `./' |