[nongnu] elpa/annotate e6af7f8ef7 058/372: workaround for nil file name

[ELPA Syncer]

branch: elpa/annotate
commit e6af7f8ef7d241fdc9f866d57dce24beb4bb6b87
Author: Bastian Bechtold <bastian.bechtold@jade-hs.de>
Commit: Bastian Bechtold <bastian.bechtold@jade-hs.de>

    workaround for nil file name
---
 README.md   |  3 +++
 annotate.el | 10 +++++-----
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index b0b5d1731d..24081991d2 100644
--- a/README.md
+++ b/README.md
@@ -87,3 +87,6 @@ This package is released under the MIT license.
 
 - **2016-09-07 V0.4.6 Bastian Bechtold**  
   Bugfix release for annotations ending on an empty line.
+
+- **2016-10-06 V0.4.7 Bastian Bechtold**  
+  Bugfix release for buffers without a file name.
diff --git a/annotate.el b/annotate.el
index 42ad579947..f363f864de 100644
--- a/annotate.el
+++ b/annotate.el
@@ -5,7 +5,7 @@
 ;; Maintainer: Bastian Bechtold
 ;; URL: https://github.com/bastibe/annotate.el
 ;; Created: 2015-06-10
-;; Version: 0.4.6
+;; Version: 0.4.7
 
 ;; This file is NOT part of GNU Emacs.
 
@@ -50,7 +50,7 @@
 ;;;###autoload
 (defgroup annotate nil
   "Annotate files without changing them."
-  :version "0.4.5"
+  :version "0.4.7"
   :group 'text)
 
 ;;;###autoload
@@ -190,7 +190,7 @@
   (interactive)
   (let ((file-annotations (annotate-describe-annotations))
         (all-annotations (annotate-load-annotation-data))
-        (filename (substring-no-properties (buffer-file-name))))
+        (filename (substring-no-properties (or (buffer-file-name) ""))))
     (if (assoc-string filename all-annotations)
         (setcdr (assoc-string filename all-annotations)
                 file-annotations)
@@ -288,7 +288,7 @@ An example might look like this:
 This diff does not contain any changes, but highlights the
 annotation, and can be conveniently viewed in diff-mode."
   (interactive)
-  (let* ((filename (substring-no-properties (buffer-file-name)))
+  (let* ((filename (substring-no-properties (or (buffer-file-name) "")))
          (export-buffer (generate-new-buffer (concat
                                               filename
                                              ".annotations.diff")))
@@ -527,7 +527,7 @@ an overlay and it's annotation."
   "Load all annotations from disk."
   (interactive)
   (let ((annotations (cdr (assoc-string
-                           (substring-no-properties (buffer-file-name))
+                           (substring-no-properties (or (buffer-file-name) ""))
                            (annotate-load-annotation-data))))
         (modified-p (buffer-modified-p)))
     ;; remove empty annotations created by earlier bug: