diff options
| author | Karoly Lorentey | 2005-06-15 12:57:51 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-06-15 12:57:51 +0000 |
| commit | ef85512e51f043d73788f00a2aed13cccde0682c (patch) | |
| tree | fc1fa1378533250f260ef8eaa9a84ae882d9df84 /lisp/add-log.el | |
| parent | 8736257554f49445f7b4402ac7a9436b38ce6452 (diff) | |
| parent | ef88a9999004e6c26148c8d280d6a41f623d7249 (diff) | |
| download | emacs-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.el | 56 |
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 |