[nongnu] elpa/annotate 1f9899071f 138/372: - made recongnizable code that refers to info file annotation. (3/3)

[ELPA Syncer]

branch: elpa/annotate
commit 1f9899071fd13737c1fc7a037a19dab9a9598ac1
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>

    - made recongnizable code that refers to info file annotation. (3/3)
      improved comments
---
 annotate.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/annotate.el b/annotate.el
index 7f9f26c0b5..8185e0fcf0 100644
--- a/annotate.el
+++ b/annotate.el
@@ -180,7 +180,7 @@ annotation as defined in the database."
   "The string used when a string is truncated with an ellipse")
 
 (defconst annotate-info-root-name "dir"
-  "The pseudofilename of info root")
+  "The pseudo-filename of info root")
 
 (defun annotate-annotations-exist-p ()
   "Does this buffer contains at least one or more annotations?"
@@ -1231,12 +1231,14 @@ The searched interval can be customized setting the 
variable:
            annotate-info-root-name))
 
 (defun annotate-guess-file-format (filename)
-  "Try to guess the file format."
+  "Try to guess the file format.
+Non nil if the file format is supported from 'annotate' in a more
+sophisticated way than plain text"
   (cl-labels ((file-contents ()
                              (with-temp-buffer
                                (insert-file-contents filename)
                                (buffer-string)))
-              (info-format-p ()
+              (info-format-p () ;; lot of guesswork here :(
                              (cond
                               ((annotate-info-root-dir-p filename)
                                :info)