aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSean Whitton2025-09-12 15:40:35 +0100
committerSean Whitton2025-09-12 15:40:35 +0100
commit2ee74aca554786c20193b528363eb426e4f7f65c (patch)
tree252bdc47c42c626a80111d68f2144ef3b86085be
parent85b991a62da7f188088bfedebd63957fe5f8acf3 (diff)
downloademacs-2ee74aca554786c20193b528363eb426e4f7f65c.tar.gz
emacs-2ee74aca554786c20193b528363eb426e4f7f65c.zip
Delete obsolete log-edit-beginning-of-line
* lisp/vc/log-edit.el (message): No longer require. (log-edit-beginning-of-line): Delete. No longer required now that Log Edit buffers use fields for headers. (In combination with the new fields, this binding led to C-a behaving strangely for summaries with colons in them.) (log-edit-mode-map): Unbind it.
-rw-r--r--lisp/vc/log-edit.el13
1 files changed, 1 insertions, 12 deletions
diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el
index 2ae8a2eaf4a..bbca805fd2b 100644
--- a/lisp/vc/log-edit.el
+++ b/lisp/vc/log-edit.el
@@ -32,7 +32,6 @@
32(require 'add-log) ; for all the ChangeLog goodies 32(require 'add-log) ; for all the ChangeLog goodies
33(require 'pcvs-util) 33(require 'pcvs-util)
34(require 'ring) 34(require 'ring)
35(require 'message)
36 35
37;;;; 36;;;;
38;;;; Global Variables 37;;;; Global Variables
@@ -65,8 +64,7 @@
65 "M-p" #'log-edit-previous-comment 64 "M-p" #'log-edit-previous-comment
66 "M-r" #'log-edit-comment-search-backward 65 "M-r" #'log-edit-comment-search-backward
67 "M-s" #'log-edit-comment-search-forward 66 "M-s" #'log-edit-comment-search-forward
68 "C-c ?" #'log-edit-mode-help 67 "C-c ?" #'log-edit-mode-help)
69 "<remap> <move-beginning-of-line>" #'log-edit-beginning-of-line)
70 68
71(easy-menu-define log-edit-menu log-edit-mode-map 69(easy-menu-define log-edit-menu log-edit-mode-map
72 "Menu used for `log-edit-mode'." 70 "Menu used for `log-edit-mode'."
@@ -918,15 +916,6 @@ visible when the *vc-log* buffer pops up."
918 (set-window-dedicated-p (selected-window) t) 916 (set-window-dedicated-p (selected-window) t)
919 (selected-window))))) 917 (selected-window)))))
920 918
921(defun log-edit-beginning-of-line (&optional n)
922 "Move point to beginning of header value or to beginning of line.
923
924It works the same as `message-beginning-of-line', but it uses a
925different header separator appropriate for `log-edit-mode'."
926 (interactive "p")
927 (let ((mail-header-separator ""))
928 (message-beginning-of-line n)))
929
930(defun log-edit-empty-buffer-p () 919(defun log-edit-empty-buffer-p ()
931 "Return non-nil if the buffer is \"empty\"." 920 "Return non-nil if the buffer is \"empty\"."
932 (or (= (point-min) (point-max)) 921 (or (= (point-min) (point-max))