[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 68bae26 10/59: Give feedback if already at last/f
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed 68bae26 10/59: Give feedback if already at last/first identifier |
Date: |
Sun, 24 Mar 2019 06:06:35 -0400 (EDT) |
branch: externals/objed
commit 68bae26df228ff68709d88a38595c1d1f26a17b3
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Give feedback if already at last/first identifier
---
objed.el | 26 +++++++++++++++++++-------
1 file changed, 19 insertions(+), 7 deletions(-)
diff --git a/objed.el b/objed.el
index 4565fe8..655a04f 100644
--- a/objed.el
+++ b/objed.el
@@ -1916,20 +1916,32 @@ back to `objed-initial-object' if no match found."
(defun objed-first-identifier ()
"Move to first instance of identifier at point."
(interactive)
- (let ((ident (objed--get-ident-format)))
- (when ident
+ (let ((ib (if (looking-at "\\_<") (point)
+ (save-excursion
+ (re-search-backward "\\_<")
+ (point))))
+ (format (objed--get-ident-format)))
+ (when format
(goto-char (point-min))
- (when (re-search-forward ident nil t)
- (goto-char (match-beginning 0))))))
+ (when (re-search-forward format nil t)
+ (goto-char (match-beginning 0))
+ (when (= (point) ib)
+ (message "No previous indentifier"))))))
;;;###autoload
(defun objed-last-identifier ()
"Move to last instance of identifier at point."
(interactive)
- (let ((ident (objed--get-ident-format)))
- (when ident
+ (let ((ib (if (looking-at "\\_<") (point)
+ (save-excursion
+ (re-search-backward "\\_<")
+ (point))))
+ (format (objed--get-ident-format)))
+ (when format
(goto-char (point-max))
- (re-search-backward ident nil t))))
+ (re-search-backward format nil t)
+ (when (= (point) ib)
+ (message "No next indentifier")))))
;;;###autoload
(defun objed-next-identifier ()
- [elpa] externals/objed 77fad58 19/59: If region is activated, deactivate it first on objed-quit, (continued)
- [elpa] externals/objed 77fad58 19/59: If region is activated, deactivate it first on objed-quit, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 1c04620 49/59: Skip docstring for inner elisp defun object, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed e771f06 14/59: Improve ace object, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 395708b 13/59: Update object bindings, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 7e0bf6f 12/59: Change binding for word object in object map, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed c000147 08/59: Error when no next/prev object when using next/prev command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed ae7b3e8 06/59: Dont exit objed on macro recording/execution, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 033b5aa 05/59: Exchange point and mark when toggling side selection, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 2170235 02/59: Update description, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 37f455e 15/59: Add region to object map, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 68bae26 10/59: Give feedback if already at last/first identifier,
Clemens Radermacher <=
- [elpa] externals/objed aa4104e 03/59: Improve reformat, Clemens Radermacher, 2019/03/24