aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/add-log.el
diff options
context:
space:
mode:
authorKaroly Lorentey2005-06-15 12:57:51 +0000
committerKaroly Lorentey2005-06-15 12:57:51 +0000
commitef85512e51f043d73788f00a2aed13cccde0682c (patch)
treefc1fa1378533250f260ef8eaa9a84ae882d9df84 /lisp/add-log.el
parent8736257554f49445f7b4402ac7a9436b38ce6452 (diff)
parentef88a9999004e6c26148c8d280d6a41f623d7249 (diff)
downloademacs-ef85512e51f043d73788f00a2aed13cccde0682c.tar.gz
emacs-ef85512e51f043d73788f00a2aed13cccde0682c.zip
Merged from miles@gnu.org--gnu-2005 (patch 80-82, 350-422)
Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-350 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-351 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-352 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-353 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-354 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-355 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-356 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-357 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-358 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-359 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-360 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-361 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-362 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-363 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-364 Remove "-face" suffix from widget faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-365 Remove "-face" suffix from custom faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-366 Remove "-face" suffix from change-log faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-367 Remove "-face" suffix from compilation faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-368 Remove "-face" suffix from diff-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-369 lisp/longlines.el (longlines-visible-face): Face removed * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-370 Remove "-face" suffix from woman faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-371 Remove "-face" suffix from whitespace-highlight face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-372 Remove "-face" suffix from ruler-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-373 Remove "-face" suffix from show-paren faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-374 Remove "-face" suffix from log-view faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-375 Remove "-face" suffix from smerge faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376 Remove "-face" suffix from show-tabs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-377 Remove "-face" suffix from highlight-changes faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-378 Remove "-face" suffix from and downcase info faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-379 Remove "-face" suffix from pcvs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-380 Update uses of renamed pcvs faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-381 Tweak ChangeLog * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-382 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-383 Remove "-face" suffix from strokes-char face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-384 Remove "-face" suffix from compare-windows face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-385 Remove "-face" suffix from calendar faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-386 Remove "-face" suffix from diary-button face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-387 Remove "-face" suffix from testcover faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-388 Remove "-face" suffix from viper faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-389 Remove "-face" suffix from org faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-390 Remove "-face" suffix from sgml-namespace face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-391 Remove "-face" suffix from table-cell face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-392 Remove "-face" suffix from tex-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-393 Remove "-face" suffix from texinfo-heading face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-394 Remove "-face" suffix from flyspell faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-395 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-396 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-397 Remove "-face" suffix from gomoku faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-398 Remove "-face" suffix from mpuz faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-399 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-400 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-401 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-402 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-403 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-404 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-405 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-406 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-407 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-408 Remove "-face" suffix from Buffer-menu-buffer face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-409 Remove "-face" suffix from antlr-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-410 Remove "-face" suffix from ebrowse faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-411 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-412 Remove "-face" suffix from flymake faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-413 Remove "-face" suffix from idlwave faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-414 Remove "-face" suffix from sh-script faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-415 Remove "-face" suffix from vhdl-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-416 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-417 Remove "-face" suffix from which-func face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-418 Remove "-face" suffix from cperl-mode faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-419 Remove "-face" suffix from ld-script faces * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-420 Fix cperl-mode font-lock problem * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-421 Tweak which-func face * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-422 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-80 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-81 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-82 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-350
Diffstat (limited to 'lisp/add-log.el')
-rw-r--r--lisp/add-log.el56
1 files changed, 36 insertions, 20 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el
index 4131b237e5c..bde75db8ec7 100644
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -166,86 +166,102 @@ Note: The search is conducted only within 10%, at the beginning of the file."
166 :type '(repeat regexp) 166 :type '(repeat regexp)
167 :group 'change-log) 167 :group 'change-log)
168 168
169(defface change-log-date-face 169(defface change-log-date
170 '((t (:inherit font-lock-string-face))) 170 '((t (:inherit font-lock-string-face)))
171 "Face used to highlight dates in date lines." 171 "Face used to highlight dates in date lines."
172 :version "21.1" 172 :version "21.1"
173 :group 'change-log) 173 :group 'change-log)
174;; backward-compatibility alias
175(put 'change-log-date-face 'face-alias 'change-log-date)
174 176
175(defface change-log-name-face 177(defface change-log-name
176 '((t (:inherit font-lock-constant-face))) 178 '((t (:inherit font-lock-constant-face)))
177 "Face for highlighting author names." 179 "Face for highlighting author names."
178 :version "21.1" 180 :version "21.1"
179 :group 'change-log) 181 :group 'change-log)
182;; backward-compatibility alias
183(put 'change-log-name-face 'face-alias 'change-log-name)
180 184
181(defface change-log-email-face 185(defface change-log-email
182 '((t (:inherit font-lock-variable-name-face))) 186 '((t (:inherit font-lock-variable-name-face)))
183 "Face for highlighting author email addresses." 187 "Face for highlighting author email addresses."
184 :version "21.1" 188 :version "21.1"
185 :group 'change-log) 189 :group 'change-log)
190;; backward-compatibility alias
191(put 'change-log-email-face 'face-alias 'change-log-email)
186 192
187(defface change-log-file-face 193(defface change-log-file
188 '((t (:inherit font-lock-function-name-face))) 194 '((t (:inherit font-lock-function-name-face)))
189 "Face for highlighting file names." 195 "Face for highlighting file names."
190 :version "21.1" 196 :version "21.1"
191 :group 'change-log) 197 :group 'change-log)
198;; backward-compatibility alias
199(put 'change-log-file-face 'face-alias 'change-log-file)
192 200
193(defface change-log-list-face 201(defface change-log-list
194 '((t (:inherit font-lock-keyword-face))) 202 '((t (:inherit font-lock-keyword-face)))
195 "Face for highlighting parenthesized lists of functions or variables." 203 "Face for highlighting parenthesized lists of functions or variables."
196 :version "21.1" 204 :version "21.1"
197 :group 'change-log) 205 :group 'change-log)
206;; backward-compatibility alias
207(put 'change-log-list-face 'face-alias 'change-log-list)
198 208
199(defface change-log-conditionals-face 209(defface change-log-conditionals
200 '((t (:inherit font-lock-variable-name-face))) 210 '((t (:inherit font-lock-variable-name-face)))
201 "Face for highlighting conditionals of the form `[...]'." 211 "Face for highlighting conditionals of the form `[...]'."
202 :version "21.1" 212 :version "21.1"
203 :group 'change-log) 213 :group 'change-log)
214;; backward-compatibility alias
215(put 'change-log-conditionals-face 'face-alias 'change-log-conditionals)
204 216
205(defface change-log-function-face 217(defface change-log-function
206 '((t (:inherit font-lock-variable-name-face))) 218 '((t (:inherit font-lock-variable-name-face)))
207 "Face for highlighting items of the form `<....>'." 219 "Face for highlighting items of the form `<....>'."
208 :version "21.1" 220 :version "21.1"
209 :group 'change-log) 221 :group 'change-log)
222;; backward-compatibility alias
223(put 'change-log-function-face 'face-alias 'change-log-function)
210 224
211(defface change-log-acknowledgement-face 225(defface change-log-acknowledgement
212 '((t (:inherit font-lock-comment-face))) 226 '((t (:inherit font-lock-comment-face)))
213 "Face for highlighting acknowledgments." 227 "Face for highlighting acknowledgments."
214 :version "21.1" 228 :version "21.1"
215 :group 'change-log) 229 :group 'change-log)
230;; backward-compatibility alias
231(put 'change-log-acknowledgement-face 'face-alias 'change-log-acknowledgement)
216 232
217(defvar change-log-font-lock-keywords 233(defvar change-log-font-lock-keywords
218 '(;; 234 '(;;
219 ;; Date lines, new and old styles. 235 ;; Date lines, new and old styles.
220 ("^\\sw.........[0-9:+ ]*" 236 ("^\\sw.........[0-9:+ ]*"
221 (0 'change-log-date-face) 237 (0 'change-log-date)
222 ;; Name and e-mail; some people put e-mail in parens, not angles. 238 ;; Name and e-mail; some people put e-mail in parens, not angles.
223 ("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil 239 ("\\([^<(]+?\\)[ \t]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" nil nil
224 (1 'change-log-name-face) 240 (1 'change-log-name)
225 (2 'change-log-email-face))) 241 (2 'change-log-email)))
226 ;; 242 ;;
227 ;; File names. 243 ;; File names.
228 ("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)" 244 ("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)"
229 (2 'change-log-file-face) 245 (2 'change-log-file)
230 ;; Possibly further names in a list: 246 ;; Possibly further names in a list:
231 ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) 247 ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file))
232 ;; Possibly a parenthesized list of names: 248 ;; Possibly a parenthesized list of names:
233 ("\\= (\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" 249 ("\\= (\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
234 nil nil (1 'change-log-list-face)) 250 nil nil (1 'change-log-list))
235 ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" 251 ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
236 nil nil (1 'change-log-list-face))) 252 nil nil (1 'change-log-list)))
237 ;; 253 ;;
238 ;; Function or variable names. 254 ;; Function or variable names.
239 ("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" 255 ("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
240 (2 'change-log-list-face) 256 (2 'change-log-list)
241 ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil 257 ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil
242 (1 'change-log-list-face))) 258 (1 'change-log-list)))
243 ;; 259 ;;
244 ;; Conditionals. 260 ;; Conditionals.
245 ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 'change-log-conditionals-face)) 261 ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 'change-log-conditionals))
246 ;; 262 ;;
247 ;; Function of change. 263 ;; Function of change.
248 ("<\\([^>\n]+\\)>\\(:\\| (\\)" (1 'change-log-function-face)) 264 ("<\\([^>\n]+\\)>\\(:\\| (\\)" (1 'change-log-function))
249 ;; 265 ;;
250 ;; Acknowledgements. 266 ;; Acknowledgements.
251 ;; Don't include plain "From" because that is vague; 267 ;; Don't include plain "From" because that is vague;
@@ -254,7 +270,7 @@ Note: The search is conducted only within 10%, at the beginning of the file."
254 ;; is to put the name of the author of the changes at the top 270 ;; is to put the name of the author of the changes at the top
255 ;; of the change log entry. 271 ;; of the change log entry.
256 ("\\(^\\( +\\|\t\\)\\| \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)" 272 ("\\(^\\( +\\|\t\\)\\| \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)"
257 3 'change-log-acknowledgement-face)) 273 3 'change-log-acknowledgement))
258 "Additional expressions to highlight in Change Log mode.") 274 "Additional expressions to highlight in Change Log mode.")
259 275
260(defvar change-log-mode-map 276(defvar change-log-mode-map