branch: elpa/annotate
commit 286646bc0c24fda8d4dd2df9908ea925ee17a0d1
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- made recongnizable code that refers to info file annotation. (2/3)
added 'annotate-info-actual-filename'
---
annotate.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/annotate.el b/annotate.el
index eaf1460145..7f9f26c0b5 100644
--- a/annotate.el
+++ b/annotate.el
@@ -353,9 +353,14 @@ modified (for example a newline is inserted)."
;; jump to first overlay in list
(goto-char (overlay-start (nth 0 overlays))))))
+(defun annotate-info-actual-filename ()
+ "The info filename that feed this buffer or nil if not this
+buffer is not on info-mode"
+ (annotate-guess-filename-for-dump Info-current-file nil))
+
(defun annotate-actual-file-name ()
"Get the actual file name of the current buffer"
- (substring-no-properties (or (annotate-guess-filename-for-dump
Info-current-file nil)
+ (substring-no-properties (or (annotate-info-actual-filename)
(buffer-file-name)
"")))
