[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 1648791e7c: Fix use of kp-decimal in 'vhdl-stutter-mode'
From: |
Eli Zaretskii |
Subject: |
master 1648791e7c: Fix use of kp-decimal in 'vhdl-stutter-mode' |
Date: |
Sat, 30 Apr 2022 03:11:21 -0400 (EDT) |
branch: master
commit 1648791e7c828ce8ced69976e4d88430bf284cf8
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
Fix use of kp-decimal in 'vhdl-stutter-mode'
* lisp/progmodes/vhdl-mode.el (vhdl-electric-period): Avoid
signaling an error when the user presses the kp-decimal key on the
numeric pad in 'vhdl-stutter-mode'. (Bug#55079)
---
lisp/progmodes/vhdl-mode.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index 642aad509c..cdc8aeb176 100644
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -8785,7 +8785,10 @@ project is defined."
(defun vhdl-electric-period (count) "`..' --> ` => '"
(interactive "p")
(if (and vhdl-stutter-mode (= count 1) (not (vhdl-in-literal)))
- (cond ((= (preceding-char) vhdl-last-input-event)
+ ;; We use this-command-keys below to account for translation of
+ ;; kp-decimal into '.'; vhdl-last-input-event doesn't catch
+ ;; that.
+ (cond ((eq (preceding-char) (aref (this-command-keys) 0))
(progn (delete-char -1)
(unless (eq (preceding-char) ? ) (insert " "))
(insert "=> ")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 1648791e7c: Fix use of kp-decimal in 'vhdl-stutter-mode',
Eli Zaretskii <=