diff options
| author | Chong Yidong | 2010-11-27 14:41:49 -0500 |
|---|---|---|
| committer | Chong Yidong | 2010-11-27 14:41:49 -0500 |
| commit | 402c8a49571227f8a4e678d4a6cdd6ba7841aef9 (patch) | |
| tree | 47f1cd13d9d1cb5c9e817d89466c3e3b64012dd9 | |
| parent | d1882ac7c91cbaa51aeea68433f1867e73a431c2 (diff) | |
| download | emacs-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/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/log-edit.el | 7 |
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 @@ | |||
| 1 | 2010-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 | |||
| 1 | 2010-11-27 Eduard Wiebe <usenet@pusto.de> | 7 | 2010-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) |