From 09949b83d23ea608a5f693706f2997ca7660600f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 13 Nov 2008 16:01:47 +0000 Subject: [PATCH] * files.el (project-settings-file, locate-dominating-file): Fix typos in docstrings. (find-file-visit-truename): Remove * from defcustom docstring. --- lisp/ChangeLog | 6 ++++++ lisp/files.el | 17 +++++++++-------- 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 + + * 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 (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. -- 2.39.2