diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2016-01-30 11:43:26 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2016-01-30 11:43:26 -0800 |
| commit | cb4e054e41cdb7e398351a5ae8224759e721349e (patch) | |
| tree | ae2bec4f10425bd61e2a90563edc178d382bb4b8 /lisp/emacs-lisp | |
| parent | e6d575316a42946aac6d83c9587f09afd1a59d98 (diff) | |
| parent | 60902756b0d794b16b9c1c67c4c40a3ac04d1c1b (diff) | |
| download | emacs-cb4e054e41cdb7e398351a5ae8224759e721349e.tar.gz emacs-cb4e054e41cdb7e398351a5ae8224759e721349e.tar.bz2 emacs-cb4e054e41cdb7e398351a5ae8224759e721349e.zip | |
-
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 6 | ||||
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 1 |
3 files changed, 4 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index f4be9473394..7a914da3977 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -2128,12 +2128,12 @@ To be used in the ERT results buffer." "Move point from NODE to the previous or next node. EWOC-FN specifies the direction and should be either `ewoc-prev' -or `ewoc-next'. If there are no more nodes in that direction, an -error is signaled with the message ERROR-MESSAGE." +or `ewoc-next'. If there are no more nodes in that direction, a +user-error is signaled with the message ERROR-MESSAGE." (cl-loop (setq node (funcall ewoc-fn ert--results-ewoc node)) (when (null node) - (error "%s" error-message)) + (user-error "%s" error-message)) (unless (ert--ewoc-entry-hidden-p (ewoc-data node)) (goto-char (ewoc-location node)) (cl-return)))) diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 549ee96dd5f..7be997e6469 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -117,7 +117,7 @@ two element list, binding its elements to symbols named `foo' and A significant difference from `cl-destructuring-bind' is that, if a pattern match fails, the next case is tried until either a -succesful match is found or there are no more cases. +successful match is found or there are no more cases. Another difference is that pattern elements may be backquoted, meaning they must match exactly: The pattern \\='(foo bar) diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 68658d20b37..00b029d8f3e 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -571,7 +571,6 @@ data in an ewoc may instead specify a printer function (e.g., one that calls `ewoc-enter-last'), with `tabulated-list-print-entry' as the ewoc pretty-printer." (setq-local truncate-lines t) - (setq-local buffer-read-only t) (setq-local buffer-undo-list t) (setq-local revert-buffer-function #'tabulated-list-revert) (setq-local glyphless-char-display tabulated-list-glyphless-char-display) |