aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2013-08-28 15:26:18 -0400
committerStefan Monnier2013-08-28 15:26:18 -0400
commit4021d6a62a0c19fa025955d06202588ec494d90f (patch)
treeab1b1f6cdcb12e767103a0d60c12e0aa65b93348
parent3ec7babc5c774d9a24dbe68951091eb2bab08e60 (diff)
downloademacs-4021d6a62a0c19fa025955d06202588ec494d90f.tar.gz
emacs-4021d6a62a0c19fa025955d06202588ec494d90f.zip
* lisp/vc/smerge-mode.el: Remove redundant :group args.
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/vc/smerge-mode.el21
2 files changed, 7 insertions, 16 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 712ec6c12b0..d7cb5532c5e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
12013-08-28 Stefan Monnier <monnier@iro.umontreal.ca> 12013-08-28 Stefan Monnier <monnier@iro.umontreal.ca>
2 2
3 * vc/smerge-mode.el: Remove redundant :group args.
4
3 * emacs-lisp/package.el (package-activate-1): Don't add unnecessarily 5 * emacs-lisp/package.el (package-activate-1): Don't add unnecessarily
4 to load-path. 6 to load-path.
5 7
diff --git a/lisp/vc/smerge-mode.el b/lisp/vc/smerge-mode.el
index f61e97216a9..87336b6a357 100644
--- a/lisp/vc/smerge-mode.el
+++ b/lisp/vc/smerge-mode.el
@@ -57,7 +57,6 @@
57 57
58(defcustom smerge-diff-buffer-name "*vc-diff*" 58(defcustom smerge-diff-buffer-name "*vc-diff*"
59 "Buffer name to use for displaying diffs." 59 "Buffer name to use for displaying diffs."
60 :group 'smerge
61 :type '(choice 60 :type '(choice
62 (const "*vc-diff*") 61 (const "*vc-diff*")
63 (const "*cvs-diff*") 62 (const "*cvs-diff*")
@@ -69,12 +68,10 @@
69 (if (listp diff-switches) diff-switches (list diff-switches))) 68 (if (listp diff-switches) diff-switches (list diff-switches)))
70 "A list of strings specifying switches to be passed to diff. 69 "A list of strings specifying switches to be passed to diff.
71Used in `smerge-diff-base-mine' and related functions." 70Used in `smerge-diff-base-mine' and related functions."
72 :group 'smerge
73 :type '(repeat string)) 71 :type '(repeat string))
74 72
75(defcustom smerge-auto-leave t 73(defcustom smerge-auto-leave t
76 "Non-nil means to leave `smerge-mode' when the last conflict is resolved." 74 "Non-nil means to leave `smerge-mode' when the last conflict is resolved."
77 :group 'smerge
78 :type 'boolean) 75 :type 'boolean)
79 76
80(defface smerge-mine 77(defface smerge-mine
@@ -84,8 +81,7 @@ Used in `smerge-diff-base-mine' and related functions."
84 :background "#553333") 81 :background "#553333")
85 (((class color)) 82 (((class color))
86 :foreground "red")) 83 :foreground "red"))
87 "Face for your code." 84 "Face for your code.")
88 :group 'smerge)
89(define-obsolete-face-alias 'smerge-mine-face 'smerge-mine "22.1") 85(define-obsolete-face-alias 'smerge-mine-face 'smerge-mine "22.1")
90(defvar smerge-mine-face 'smerge-mine) 86(defvar smerge-mine-face 'smerge-mine)
91 87
@@ -96,8 +92,7 @@ Used in `smerge-diff-base-mine' and related functions."
96 :background "#335533") 92 :background "#335533")
97 (((class color)) 93 (((class color))
98 :foreground "green")) 94 :foreground "green"))
99 "Face for the other code." 95 "Face for the other code.")
100 :group 'smerge)
101(define-obsolete-face-alias 'smerge-other-face 'smerge-other "22.1") 96(define-obsolete-face-alias 'smerge-other-face 'smerge-other "22.1")
102(defvar smerge-other-face 'smerge-other) 97(defvar smerge-other-face 'smerge-other)
103 98
@@ -108,8 +103,7 @@ Used in `smerge-diff-base-mine' and related functions."
108 :background "#888833") 103 :background "#888833")
109 (((class color)) 104 (((class color))
110 :foreground "yellow")) 105 :foreground "yellow"))
111 "Face for the base code." 106 "Face for the base code.")
112 :group 'smerge)
113(define-obsolete-face-alias 'smerge-base-face 'smerge-base "22.1") 107(define-obsolete-face-alias 'smerge-base-face 'smerge-base "22.1")
114(defvar smerge-base-face 'smerge-base) 108(defvar smerge-base-face 'smerge-base)
115 109
@@ -118,15 +112,13 @@ Used in `smerge-diff-base-mine' and related functions."
118 (:background "grey85")) 112 (:background "grey85"))
119 (((background dark)) 113 (((background dark))
120 (:background "grey30"))) 114 (:background "grey30")))
121 "Face for the conflict markers." 115 "Face for the conflict markers.")
122 :group 'smerge)
123(define-obsolete-face-alias 'smerge-markers-face 'smerge-markers "22.1") 116(define-obsolete-face-alias 'smerge-markers-face 'smerge-markers "22.1")
124(defvar smerge-markers-face 'smerge-markers) 117(defvar smerge-markers-face 'smerge-markers)
125 118
126(defface smerge-refined-change 119(defface smerge-refined-change
127 '((t nil)) 120 '((t nil))
128 "Face used for char-based changes shown by `smerge-refine'." 121 "Face used for char-based changes shown by `smerge-refine'.")
129 :group 'smerge)
130 122
131(defface smerge-refined-removed 123(defface smerge-refined-removed
132 '((default 124 '((default
@@ -137,7 +129,6 @@ Used in `smerge-diff-base-mine' and related functions."
137 :background "#aa2222") 129 :background "#aa2222")
138 (t :inverse-video t)) 130 (t :inverse-video t))
139 "Face used for removed characters shown by `smerge-refine'." 131 "Face used for removed characters shown by `smerge-refine'."
140 :group 'smerge
141 :version "24.3") 132 :version "24.3")
142 133
143(defface smerge-refined-added 134(defface smerge-refined-added
@@ -149,7 +140,6 @@ Used in `smerge-diff-base-mine' and related functions."
149 :background "#22aa22") 140 :background "#22aa22")
150 (t :inverse-video t)) 141 (t :inverse-video t))
151 "Face used for added characters shown by `smerge-refine'." 142 "Face used for added characters shown by `smerge-refine'."
152 :group 'smerge
153 :version "24.3") 143 :version "24.3")
154 144
155(easy-mmode-defmap smerge-basic-map 145(easy-mmode-defmap smerge-basic-map
@@ -172,7 +162,6 @@ Used in `smerge-diff-base-mine' and related functions."
172 162
173(defcustom smerge-command-prefix "\C-c^" 163(defcustom smerge-command-prefix "\C-c^"
174 "Prefix for `smerge-mode' commands." 164 "Prefix for `smerge-mode' commands."
175 :group 'smerge
176 :type '(choice (const :tag "ESC" "\e") 165 :type '(choice (const :tag "ESC" "\e")
177 (const :tag "C-c ^" "\C-c^" ) 166 (const :tag "C-c ^" "\C-c^" )
178 (const :tag "none" "") 167 (const :tag "none" "")