Replace some error calls with user-error calls

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/init-buffile.el b/lisp/init-buffile.el
index 31695fd..82e295d 100644
--- a/lisp/init-buffile.el
+++ b/lisp/init-buffile.el
@@ -11,10 +11,10 @@
   (let ((name (buffer-name))
         (filename (buffer-file-name)))
     (if (not (and filename (file-exists-p filename)))
-        (error "Buffer '%s' is not visiting a file!" name)
+        (user-error "Buffer '%s' is not visiting a file!" name)
       (let ((new-name (read-file-name "New name: " filename)))
         (if (get-buffer new-name)
-            (error "A buffer named '%s' already exists!" new-name)
+            (user-error "A buffer named '%s' already exists!" new-name)
           (rename-file filename new-name 1)
           (rename-buffer new-name)
           (set-visited-file-name new-name)
@@ -28,7 +28,7 @@
 (defun km/delete-this-file ()
   "Delete the current file, and kill the buffer."
   (interactive)
-  (or (buffer-file-name) (error "No file is currently being edited"))
+  (or (buffer-file-name) (user-error "No file is currently being edited"))
   (when (yes-or-no-p (format "Really delete '%s'?"
                              (file-name-nondirectory buffer-file-name)))
     (delete-file (buffer-file-name))