From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 20 Aug 2011 19:30:53 +0000 (-0400)
Subject: * startup.el (normal-top-level-add-subdirs-to-load-path): Doc fix (Bug#9274).
X-Git-Tag: emacs-pretest-24.0.90~104^2~152^2~70^2~15^2~36
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04ed2e9c6a7098fe69447ecffae9692fd54faa94;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f47ff5f1d0e..cab26924041 100644
--- 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 0dee969fb5a..6c3bb397e9a 100644
--- 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'."