diff options
| author | K. Handa <handa@gnu.org> | 2015-09-08 20:43:11 +0900 |
|---|---|---|
| committer | K. Handa <handa@gnu.org> | 2015-09-08 20:43:11 +0900 |
| commit | 94ed5167557112fb00eeca05e62589db744206de (patch) | |
| tree | 80a544f8534802dd61fbd218b97441d3419dbf6b /lisp/emacs-lisp/ring.el | |
| parent | 33f2e0023a5ef03db3e99ade0b93a7a1a913dbe1 (diff) | |
| parent | 10e7f7de910ca816799062f33b830f7598801f0e (diff) | |
| download | emacs-94ed5167557112fb00eeca05e62589db744206de.tar.gz | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
Diffstat (limited to 'lisp/emacs-lisp/ring.el')
| -rw-r--r-- | lisp/emacs-lisp/ring.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/ring.el b/lisp/emacs-lisp/ring.el index 8badac391c7..2447dfa8e38 100644 --- a/lisp/emacs-lisp/ring.el +++ b/lisp/emacs-lisp/ring.el @@ -175,14 +175,14 @@ Comparison is done via `equal'. The index is 0-based." "Return the next item in the RING, after ITEM. Raise error if ITEM is not in the RING." (let ((curr-index (ring-member ring item))) - (unless curr-index (error "Item is not in the ring: ā%sā" item)) + (unless curr-index (error "Item is not in the ring: `%s'" item)) (ring-ref ring (ring-plus1 curr-index (ring-length ring))))) (defun ring-previous (ring item) "Return the previous item in the RING, before ITEM. Raise error if ITEM is not in the RING." (let ((curr-index (ring-member ring item))) - (unless curr-index (error "Item is not in the ring: ā%sā" item)) + (unless curr-index (error "Item is not in the ring: `%s'" item)) (ring-ref ring (ring-minus1 curr-index (ring-length ring))))) (defun ring-extend (ring x) |
