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)
