emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 44faf54: Revert VC-related prefix user options to previous values


From: Lars Ingebrigtsen
Subject: master 44faf54: Revert VC-related prefix user options to previous values
Date: Thu, 18 Nov 2021 06:11:44 -0500 (EST)

branch: master
commit 44faf546592a0c063d5044322f11bb0f006e613c
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Revert VC-related prefix user options to previous values
    
    * lisp/vc/smerge-mode.el (smerge-command-prefix):
    * lisp/vc/pcvs.el (cvs-minor-mode-prefix):
    * lisp/vc/diff-mode.el (diff-minor-mode-prefix): Revert to
    previous values, as external packages rely on those values.
---
 lisp/vc/diff-mode.el   | 7 +++----
 lisp/vc/pcvs.el        | 7 +++----
 lisp/vc/smerge-mode.el | 7 +++----
 3 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el
index 87d3066..1cffd88 100644
--- a/lisp/vc/diff-mode.el
+++ b/lisp/vc/diff-mode.el
@@ -264,15 +264,14 @@ and hunk-based syntax highlighting otherwise as a 
fallback."
      :help "Go to the next count'th file"]
     ))
 
-(defcustom diff-minor-mode-prefix "C-c ="
+(defcustom diff-minor-mode-prefix "\C-c =="
   "Prefix key for `diff-minor-mode' commands."
   :type '(choice (string "ESC")
-                 (string "C-c =") string)
-  :version "29.1")
+                 (string "\C-c=") string))
 
 (defvar-keymap diff-minor-mode-map
   :doc "Keymap for `diff-minor-mode'.  See also `diff-mode-shared-map'."
-  diff-minor-mode-prefix diff-mode-shared-map)
+  (key-description diff-minor-mode-prefix) diff-mode-shared-map)
 
 (define-minor-mode diff-auto-refine-mode
   "Toggle automatic diff hunk finer highlighting (Diff Auto Refine mode).
diff --git a/lisp/vc/pcvs.el b/lisp/vc/pcvs.el
index fa28d07..2d7b8cb2 100644
--- a/lisp/vc/pcvs.el
+++ b/lisp/vc/pcvs.el
@@ -266,14 +266,13 @@
 ;;;; CVS-Minor mode
 ;;;;
 
-(defcustom cvs-minor-mode-prefix "C-x c"
+(defcustom cvs-minor-mode-prefix "\C-xc"
   "Prefix key for the `cvs-mode' bindings in `cvs-minor-mode'."
   :type 'string
-  :version "29.1"
-  :group 'pcl-cvs)
+   :group 'pcl-cvs)
 
 (defvar-keymap cvs-minor-mode-map
-  cvs-minor-mode-prefix 'cvs-mode-map
+  (key-description cvs-minor-mode-prefix) 'cvs-mode-map
   "e" '(menu-item nil cvs-mode-edit-log
                  :filter (lambda (x)
                             (and (derived-mode-p 'log-view-mode) x))))
diff --git a/lisp/vc/smerge-mode.el b/lisp/vc/smerge-mode.el
index ee6ddf1..6c1b8cc 100644
--- a/lisp/vc/smerge-mode.el
+++ b/lisp/vc/smerge-mode.el
@@ -162,16 +162,15 @@ Used in `smerge-diff-base-upper' and related functions."
         ">" (cons "base-lower" #'smerge-diff-base-lower)
         "=" (cons "upper-lower" #'smerge-diff-upper-lower)))
 
-(defcustom smerge-command-prefix "C-c ^"
+(defcustom smerge-command-prefix "\C-c^"
   "Prefix for `smerge-mode' commands."
-  :version "29.1"
   :type '(choice (const :tag "ESC"   "\e")
-                (const :tag "C-c ^" "C-c ^")
+                (const :tag "C-c ^" "\C-c^")
                 (const :tag "none"  "")
                 string))
 
 (defvar-keymap smerge-mode-map
-  smerge-command-prefix smerge-basic-map)
+  (key-description smerge-command-prefix) smerge-basic-map)
 
 (defvar-local smerge-check-cache nil)
 (defun smerge-check (n)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]