* files.el (project-settings-file, locate-dominating-file):

  Fix typos in docstrings.
  (find-file-visit-truename): Remove * from defcustom docstring.

2 files changed, 15 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18604a583fa..2a336a15d54 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-11-13  Juanma Barranquero  <lekktu@gmail.com>
+
+        * files.el (project-settings-file, locate-dominating-file):
+        Fix typos in docstrings.
+        (find-file-visit-truename): Remove * from defcustom docstring.
+
 2008-11-13  T. V. Raman  <raman@users.sourceforge.net>  (tiny change)
 
         * files.el (project-settings-file): New variable.
diff --git a/lisp/files.el b/lisp/files.el
index 1216dff3cef..05442d4665e 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -154,7 +154,7 @@ under another name, you get the existing buffer instead of a new buffer."
   :group 'find-file)
 
 (defcustom find-file-visit-truename nil
-  "*Non-nil means visit a file under its truename.
+  "Non-nil means visit a file under its truename.
 The truename of a file is found by chasing all links
 both at the file level and at the levels of the containing directories."
   :type 'boolean
@@ -757,12 +757,12 @@ special files in directories in which filenames are interpreted as hostnames.")
 
 (defun locate-dominating-file (file name)
   "Look up the directory hierarchy from FILE for a file named NAME.
-Stop at the first parent directory containing a file NAME return the directory.
-Return nil if not found."
+Stop at the first parent directory containing a file NAME,
+and return the directory.  Return nil if not found."
   ;; We used to use the above locate-dominating-files code, but the
   ;; directory-files call is very costly, so we're much better off doing
   ;; multiple calls using the code in here.
-  ;; 
+  ;;
   ;; Represent /home/luser/foo as ~/foo so that we don't try to look for
   ;; `name' in /home or in /.
   (setq file (abbreviate-file-name file))
@@ -3203,11 +3203,12 @@ LIST.  The list is processed in order.
       (push (cons class list) project-class-alist))))
 
 (defcustom project-settings-file ".dir-settings.el"
-  "Settings file for per-project settings. Set this to nil if you dont want  to load project-specific settings."
+  "Settings file for per-project settings.
+Set this to nil if you don't want to load project-specific settings."
   :type '(choice
-       (const  :tag "Ignore" nil)
-       (file :tag "File"))
-:group 'files)
+          (const :tag "Ignore" nil)
+          (file :tag "File"))
+  :group 'files)
 
 (defun project-find-settings-file (file)
   "Find the settings file for FILE.