diff options
| author | Sean Whitton | 2025-09-12 15:40:35 +0100 |
|---|---|---|
| committer | Sean Whitton | 2025-09-12 15:40:35 +0100 |
| commit | 2ee74aca554786c20193b528363eb426e4f7f65c (patch) | |
| tree | 252bdc47c42c626a80111d68f2144ef3b86085be | |
| parent | 85b991a62da7f188088bfedebd63957fe5f8acf3 (diff) | |
| download | emacs-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.el | 13 |
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 | |||
| 924 | It works the same as `message-beginning-of-line', but it uses a | ||
| 925 | different 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)) |