* startup.el (normal-top-level-add-subdirs-to-load-path): Doc fix (Bug#9274).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f47ff5f1d0e9fbfc02cf8ed9296e9f967a300ae8..cab269240417cae57e93d23ac172637c7d1afaf8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-08-20  Chong Yidong  <cyd@stupidchicken.com>
+
+       * startup.el (normal-top-level-add-subdirs-to-load-path): Doc fix
+       (Bug#9274).
+
 2011-08-20  Alan Mackenzie  <acm@muc.de>
 
        * Fontify CPP expressions correctly when starting in the middle of

diff --git a/lisp/startup.el b/lisp/startup.el
index 0dee969fb5abbce40b4cd5878c1399afc2fc6314..6c3bb397e9a1477626397d988a6ca2be5e439b8b 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -409,7 +409,7 @@ The regexp should not contain a starting \"\\`\" or a trailing
  \"\\'\"; those are added automatically by callers.")
 
 (defun normal-top-level-add-subdirs-to-load-path ()
-  "Add all subdirectories of current directory to `load-path'.
+  "Add all subdirectories of `default-directory' to `load-path'.
 More precisely, this uses only the subdirectories whose names
 start with letters or digits; it excludes any subdirectory named `RCS'
 or `CVS', and any subdirectory that contains a file named `.nosearch'."