emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/objed c893402 17/59: Unify no next/prev message


From: Clemens Radermacher
Subject: [elpa] externals/objed c893402 17/59: Unify no next/prev message
Date: Sun, 24 Mar 2019 06:06:36 -0400 (EDT)

branch: externals/objed
commit c8934022aba429713248fa1679016bf5f92ff1cd
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Unify no next/prev message
---
 objed.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/objed.el b/objed.el
index 99f09d0..69c7a90 100644
--- a/objed.el
+++ b/objed.el
@@ -1776,7 +1776,7 @@ postitive prefix argument ARG move to the nth next 
object."
                       (goto-char (point-min))
                       (objed--get-next (point)))))
            (if (equal top objed--current-obj)
-               (message "Already at first instance")
+               (message "No previous %s" objed--object)
              (objed--update-current-object top)
              (objed--goto-char (objed--beg)))))))
 
@@ -1792,7 +1792,7 @@ postitive prefix argument ARG move to the nth next 
object."
                       (goto-char (point-max))
                       (objed--get-prev (point)))))
            (if (equal bot objed--current-obj)
-               (message "Already at last instance")
+               (message "No next %s" objed--object)
              (objed--update-current-object bot)
              (objed--goto-char (objed--beg)))))))
 
@@ -1916,7 +1916,8 @@ back to `objed-initial-object' if no match found."
 (defun objed-first-identifier ()
   "Move to first instance of identifier at point."
   (interactive)
-  (let ((ib (if (looking-at "\\_<") (point)
+  (let ((ib (if (looking-at "\\_<")
+                (point)
               (save-excursion
                 (re-search-backward "\\_<")
                 (point))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]