[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search cdfe8c1 136/332: Call `user-error' instead of
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search cdfe8c1 136/332: Call `user-error' instead of `error' where appropriate |
Date: |
Tue, 1 Dec 2020 15:48:29 -0500 (EST) |
branch: externals/el-search
commit cdfe8c1b3718a885f98213d14861ee64149c5a79
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
Call `user-error' instead of `error' where appropriate
Also improve some error messages.
---
el-search-x.el | 4 ++--
el-search.el | 23 ++++++++++++-----------
2 files changed, 14 insertions(+), 13 deletions(-)
diff --git a/el-search-x.el b/el-search-x.el
index b01a93c..9a8f67f 100644
--- a/el-search-x.el
+++ b/el-search-x.el
@@ -196,7 +196,7 @@ Use variable `el-search--cached-changes' for caching."
(list revision (visited-file-modtime))))
(cdr el-search--cached-changes)
(when (buffer-modified-p)
- (error "Buffer is modified - please save"))
+ (user-error "Buffer is modified - please save"))
(require 'vc)
(require 'diff-hl)
;; `diff-hl-changes' returns line numbers. We must convert them into
positions.
@@ -238,7 +238,7 @@ Use variable `el-search--cached-changes' for caching."
(defun el-search--changed-p (posn &optional revision)
;; Non-nil when sexp after POSN contains a change
(when (buffer-modified-p)
- (error "Buffer is modified - please save"))
+ (user-error "Buffer is modified - please save"))
(save-restriction
(widen)
(let ((changes (el-search--changes-from-diff-hl revision)))
diff --git a/el-search.el b/el-search.el
index c7812a7..dfe3b78 100644
--- a/el-search.el
+++ b/el-search.el
@@ -568,7 +568,7 @@ matches the (only) argument (that should be a string)."
(when (and (symbolp pattern)
(not (eq pattern '_))
(not (keywordp pattern)))
- (error "Free symbol: `%S' (missing a quote?)" pattern)))
+ (user-error "Error: free variable `%S' (missing a quote?)" pattern)))
(defun el-search--read-pattern (prompt &optional default histvar)
(cl-callf or histvar 'el-search-pattern-history)
@@ -821,10 +821,10 @@ Raise an error if not. The string arguments TYPE and
optional
MESSAGE are used to construct the error message."
(dolist (arg args)
(unless (funcall predicate arg)
- (error (concat "Pattern `%s': "
- (or message (format "argument doesn't fulfill %S"
predicate))
- ": %S")
- type arg))))
+ (user-error (concat "Pattern `%s': "
+ (or message (format "argument doesn't fulfill %S"
predicate))
+ ": %S")
+ type arg))))
(defun el-search--elisp-file-name-p (file)
(and (string-match-p (concat "\\.el" (regexp-opt jka-compr-load-suffixes)
"?\\'") file)
@@ -1337,7 +1337,8 @@ expression, the absolute FILE-NAME is tested."
('nil)
((pred stringp) (apply-partially #'string-match-p
regexp-or-predicate))
((pred functionp) regexp-or-predicate)
- (_ (error "Pattern `file': illegal argument: %S"
regexp-or-predicate)))))
+ (_ (user-error "Pattern `file': illegal argument:
%S"
+ regexp-or-predicate)))))
(if (not regexp-or-predicate)
(lambda (file-name-or-buffer _) (funcall get-file-name
file-name-or-buffer))
(let ((test-file-name-or-buffer
@@ -1508,7 +1509,7 @@ that the current search."
(current-head (el-search-object-head search))
(current-search-buffer (el-search-head-buffer current-head)))
(if (not (buffer-live-p current-search-buffer))
- (error "Search head points to a killed buffer")
+ (user-error "Search head points to a killed buffer")
(setq this-command 'el-search-pattern)
(let ((win (display-buffer current-search-buffer
el-search-display-buffer-action)))
(select-frame-set-input-focus (window-frame win))
@@ -1547,9 +1548,9 @@ continued."
((eq (current-buffer) current-search-buffer)
(setf (el-search-head-position head) (copy-marker (point))))
((and current-search-buffer (buffer-live-p current-search-buffer))
- (error "Please resume from buffer %s" (buffer-name
current-search-buffer)))
+ (user-error "Please resume from buffer %s" (buffer-name
current-search-buffer)))
(current-search-buffer
- (error "Search head points to a killed buffer")))))
+ (user-error "Search head points to a killed buffer")))))
(unwind-protect
(let ((stream-of-matches (el-search-object-matches
el-search--current-search)))
(if (not (stream-empty-p stream-of-matches))
@@ -1639,7 +1640,7 @@ additional pattern types are currently defined:"
;; FIXME: This case is tricky; the user would expect that when he hits
;; C-S afterwards, the search is restored with the old matches
;; "merged". So for now, we raise this:
- (error "Last search completed, please start a new search")
+ (user-error "Last search completed, please restart the search")
(setq this-command 'el-search-pattern)
(let ((last-match-beg (el-search-object-last-match
el-search--current-search)))
(if (< last-match-beg (point))
@@ -1813,7 +1814,7 @@ reindent."
;; layout of subexpressions shared with the original (replaced)
;; expression and the replace expression.
(if (and splice (not (listp replacement)))
- (error "Expression to splice in is an atom")
+ (error "Expression to splice in is not a list")
(let ((orig-buffer (generate-new-buffer "orig-expr")))
(with-current-buffer orig-buffer
(emacs-lisp-mode)
- [elpa] externals/el-search d3eaaf0 198/332: Make the some-context function include an opening backquote, (continued)
- [elpa] externals/el-search d3eaaf0 198/332: Make the some-context function include an opening backquote, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 85fdccc 202/332: New option value ask-multi for `el-search-auto-save-buffers', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 92efda8 101/332: Add comment about (pcase) backquote inside (real) backquote, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 33c14a4 103/332: Move some pattern definitions to new file "el-search-x", Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c4d8e00 105/332: el-search--make-docstring: exclude some specially named patterns, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 0735984 120/332: el-search: more cleanup and minor tweaks; version 1.0.1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6292dcc 130/332: Fix disregarding compressed elisp files, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 788db9d 135/332: Use regexp-opt on suffixes in el-search--elisp-file-name-p, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e7e900c 145/332: Use `read' to circumvent bug#24542, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8e6466a 131/332: Set syntax table for temp buffers in el-search-atom-list, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search cdfe8c1 136/332: Call `user-error' instead of `error' where appropriate,
Stefan Monnier <=
- [elpa] externals/el-search 5fbbcd1 168/332: Restore current search head in case of error or quit, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6e4b9cc 170/332: Show line numbers in *El Occur* buffers, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search a20a333 171/332: Use a separate function to document defined pattern types, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 79ab903 179/332: Always use the current search for query-replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6a7ca23 181/332: Don't limit `el-search-emacs-elisp-sources' to "lisp/" subdir, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8dc608e 187/332: Improve folding behavior in *El Occur* buffers, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search a2e367e 189/332: Fix starting a search with `el-search-this-sexp', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d1706eb 190/332: Display match count for *El Occur* buffers, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 97626ac 192/332: Use local binding of `post-command-hook' to reset wrap flag, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 16a5f70 193/332: * el-search/el-search.el: Shorten the query-replace prompt, Stefan Monnier, 2020/12/01