branch: elpa/annotate
commit a37ec08035df4f2eeddb4acb3f303e3d4cf1f417
Author: cage <cage-invalid@invalid>
Commit: cage <cage-invalid@invalid>
- added signalling of error to 'annotate-switch-db';
- fixed type of second argument calling 'signal' in
'annotate-load-annotation-data'.
---
annotate.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/annotate.el b/annotate.el
index 520cb94688..a1db0a8732 100644
--- a/annotate.el
+++ b/annotate.el
@@ -1257,7 +1257,7 @@ annotation."
(with-temp-buffer
(if (file-exists-p annotate-file)
(insert-file-contents annotate-file)
- (signal 'annotate-db-file-not-found annotate-file))
+ (signal 'annotate-db-file-not-found (list annotate-file)))
(goto-char (point-max))
(cond ((= (point) 1)
nil)
@@ -2548,7 +2548,7 @@ annotate minor mode active"
annotate-mode))))
(cl-remove-if-not #'annotate-mode-p all-buffers))))
-(cl-defun annotate-switch-db (&optional (force-load nil) (database-file-path
nil))
+(cl-defun annotate-switch-db (&optional (force-load nil) (database-file-path
nil))
"Ask the user for a new annotation database files, load it and
refresh all the annotations contained in each buffer where
annotate minor mode is active.
@@ -2586,7 +2586,7 @@ code, always use load files from trusted sources!"
(when (not buffer-was-modified-p)
(set-buffer-modified-p nil)))))))
(message "Load aborted by the user")))
- (user-error (format "The file %S does not exists." new-db))))))
+ (signal 'annotate-db-file-not-found (list new-db))))))
;; end of switching database
