aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorChong Yidong2010-11-27 14:41:49 -0500
committerChong Yidong2010-11-27 14:41:49 -0500
commit402c8a49571227f8a4e678d4a6cdd6ba7841aef9 (patch)
tree47f1cd13d9d1cb5c9e817d89466c3e3b64012dd9
parentd1882ac7c91cbaa51aeea68433f1867e73a431c2 (diff)
downloademacs-402c8a49571227f8a4e678d4a6cdd6ba7841aef9.tar.gz
emacs-402c8a49571227f8a4e678d4a6cdd6ba7841aef9.zip
Fix log-edit-font-lock-keywords (Bug#6465).
* log-edit.el (log-edit-font-lock-keywords): Don't try matching stand-alone lines, since that is handled by log-edit-match-to-eoh (Bug#6465).
-rw-r--r--lisp/ChangeLog6
-rw-r--r--lisp/log-edit.el7
2 files changed, 9 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8dda581208..c6da166726b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
12010-11-27 Chong Yidong <cyd@stupidchicken.com>
2
3 * log-edit.el (log-edit-font-lock-keywords): Don't try matching
4 stand-alone lines, since that is handled by log-edit-match-to-eoh
5 (Bug#6465).
6
12010-11-27 Eduard Wiebe <usenet@pusto.de> 72010-11-27 Eduard Wiebe <usenet@pusto.de>
2 8
3 * dired.el (dired-get-filename): Replace backslashes with slashes 9 * dired.el (dired-get-filename): Replace backslashes with slashes
diff --git a/lisp/log-edit.el b/lisp/log-edit.el
index 0d3061ad2df..ddc0f601701 100644
--- a/lisp/log-edit.el
+++ b/lisp/log-edit.el
@@ -350,17 +350,16 @@ automatically."
350(defvar log-edit-font-lock-keywords 350(defvar log-edit-font-lock-keywords
351 ;; Copied/inspired by message-font-lock-keywords. 351 ;; Copied/inspired by message-font-lock-keywords.
352 `((log-edit-match-to-eoh 352 `((log-edit-match-to-eoh
353 (,(concat "^\\(\\([a-z]+\\):\\)" log-edit-header-contents-regexp 353 (,(concat "^\\(\\([a-z]+\\):\\)" log-edit-header-contents-regexp)
354 "\\|\\(.*\\)")
355 (progn (goto-char (match-beginning 0)) (match-end 0)) nil 354 (progn (goto-char (match-beginning 0)) (match-end 0)) nil
356 (1 (if (assoc (match-string 2) log-edit-headers-alist) 355 (1 (if (assoc (match-string 2) log-edit-headers-alist)
357 'log-edit-header 356 'log-edit-header
358 'log-edit-unknown-header) 357 'log-edit-unknown-header)
359 nil lax) 358 nil lax)
359 ;; From `log-edit-header-contents-regexp':
360 (3 (or (cdr (assoc (match-string 2) log-edit-headers-alist)) 360 (3 (or (cdr (assoc (match-string 2) log-edit-headers-alist))
361 'log-edit-header) 361 'log-edit-header)
362 nil lax) 362 nil lax)))))
363 (4 font-lock-warning-face)))))
364 363
365;;;###autoload 364;;;###autoload
366(defun log-edit (callback &optional setup params buffer mode &rest ignore) 365(defun log-edit (callback &optional setup params buffer mode &rest ignore)