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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 18604a583fa088b4a1cfb8c8f7a8c61364943e5d..2a336a15d549608916deafec235e06727fea2a24 100644 (file)
--- 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 1216dff3ceffaf87b24cbc62f20f16d84371c0ae..05442d4665e622cf0c48c1eb0b3226380e3495f3 100644 (file)
--- 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.