mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Declare more functions as shift-translatable motion commands

Browse source 
* lisp/comint.el (comint-next-prompt, comint-previous-prompt): Declare
as shift-translatable motion commands.
* lisp/textmodes/sgml-mode.el (sgml-skip-tag-backward)
(sgml-skip-tag-forward): Declare as shift-translatable motion
commands.  (Bug#65876)
This commit is contained in:
Jens Schmidt 2023-09-12 22:35:13 +02:00 • committed by Eli Zaretskii
parent b6659e98a4
commit a5ca1f2d8b
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/textmodes/sgml-mode.el
View file

@ -923,7 +923,7 @@ With prefix argument, only self insert."
"Skip to beginning of tag or matching opening tag if present.
With prefix argument ARG, repeat this ARG times.
Return non-nil if we skipped over matched tags."
(interactive "p")
(interactive "^p")
;; FIXME: use sgml-get-context or something similar.
(let ((return t))
(while (>= arg 1)
@ -1036,7 +1036,7 @@ an opening markup tag automatically updates the closing tag."
"Skip to end of tag or matching closing tag if present.
With prefix argument ARG, repeat this ARG times.
Return t if after a closing tag."
(interactive "p")
(interactive "^p")
;; FIXME: Use sgml-get-context or something similar.
;; It currently might jump to an unrelated </P> if the <P>
;; we're skipping has no matching </P>.