[nongnu] elpa/annotate 286646bc0c 137/372: - made recongnizable code that refers to info file annotation. (2/3)

[ELPA Syncer]

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)
                                "")))