[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hiddenquote b8412d712a: Add command to move point to th
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hiddenquote b8412d712a: Add command to move point to the last syllable |
Date: |
Thu, 10 Nov 2022 05:57:46 -0500 (EST) |
branch: externals/hiddenquote
commit b8412d712ad78b1a85a1dfbb26ed46ae77ac761d
Author: Mauro Aranda <maurooaranda@gmail.com>
Commit: Mauro Aranda <maurooaranda@gmail.com>
Add command to move point to the last syllable
* hiddenquote.el (hiddenquote-goto-last-syllable): New command.
(hiddenquote-syllables-map): Use it.
---
hiddenquote.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/hiddenquote.el b/hiddenquote.el
index a37dc5241e..e0139cd4e6 100644
--- a/hiddenquote.el
+++ b/hiddenquote.el
@@ -338,6 +338,7 @@ to the syllables buffer."
(define-key map "\C-a" #'hiddenquote-beg-of-line-syllable)
(define-key map "e" #'hiddenquote-end-of-line-syllable)
(define-key map "\C-e" #'hiddenquote-end-of-line-syllable)
+ (define-key map "\M->" #'hiddenquote-goto-last-syllable)
map)
"Keymap for the Syllables buffer.")
@@ -1518,7 +1519,13 @@ point to the next word."
"Move to the last syllable in the current line."
(interactive)
(end-of-line)
- (widget-backward 1))
+ (hiddenquote-backward-syllable))
+
+(defun hiddenquote-goto-last-syllable ()
+ "Move to the last syllable in the buffer."
+ (interactive)
+ (goto-char (point-max))
+ (hiddenquote-backward-syllable))
(defun hiddenquote-complete-quote (str)
"Complete the quote with the string STR.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/hiddenquote b8412d712a: Add command to move point to the last syllable,
ELPA Syncer <=