From d99fbff01ed7bc92e92f23f224885bb9ce7ea7f6 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 11 Sep 2014 00:27:47 -0400 Subject: Replace some error calls with user-error calls --- lisp/init-buffile.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/init-buffile.el') 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)) -- cgit v1.2.3