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)
This commit is contained in:
Eli Zaretskii 2022-04-30 10:10:07 +03:00
parent 0ce48e2882
commit 1648791e7c

View file

@ -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 "=> ")))