Mercurial > emacs
changeset 99533:53e1b713e51f
* files.el (project-settings-file, locate-dominating-file):
Fix typos in docstrings.
(find-file-visit-truename): Remove * from defcustom docstring.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 13 Nov 2008 16:01:47 +0000 |
| parents | a84ee30498a7 |
| children | 570afde3c5a3 |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 15 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Nov 13 15:18:38 2008 +0000 +++ b/lisp/ChangeLog Thu Nov 13 16:01:47 2008 +0000 @@ -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.
--- a/lisp/files.el Thu Nov 13 15:18:38 2008 +0000 +++ b/lisp/files.el Thu Nov 13 16:01:47 2008 +0000 @@ -154,7 +154,7 @@ :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 @@ (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 @@ (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.