From cd39da566d902bdb56d1d5e59cc931a492c73b60 Mon Sep 17 00:00:00 2001 From: Jens Schmidt Date: Tue, 12 Sep 2023 22:35:13 +0200 Subject: [PATCH] Declare more functions as shift-translatable motion commands * 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) --- lisp/comint.el | 4 ++-- lisp/textmodes/sgml-mode.el | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 97b48371752..de7cc5b0e86 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2810,7 +2810,7 @@ comint-next-prompt If `comint-use-prompt-regexp' is nil, then this means the beginning of the Nth next `input' field, otherwise, it means the Nth occurrence of text matching `comint-prompt-regexp'." - (interactive "p") + (interactive "^p") (if comint-use-prompt-regexp ;; Use comint-prompt-regexp (let ((paragraph-start comint-prompt-regexp)) @@ -2847,7 +2847,7 @@ comint-previous-prompt If `comint-use-prompt-regexp' is nil, then this means the beginning of the Nth previous `input' field, otherwise, it means the Nth occurrence of text matching `comint-prompt-regexp'." - (interactive "p") + (interactive "^p") (comint-next-prompt (- n))) ;; State used by `comint-insert-previous-argument' when cycling. diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 27f3b2acd1c..5c53716c3ac 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -923,7 +923,7 @@ sgml-skip-tag-backward "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 @@ sgml-skip-tag-forward "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

if the

;; we're skipping has no matching

. -- 2.30.2