From: Lute Kamstra Date: Mon, 4 Apr 2005 08:47:58 +0000 (+0000) Subject: (change-log-font-lock-keywords): Names in parenthesized lists can X-Git-Tag: ttn-vms-21-2-B4~1247 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=171c707b6cf056348669d1906844c381f36e02d1;p=emacs.git (change-log-font-lock-keywords): Names in parenthesized lists can contain spaces. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aaab9b3e28a..9dd16ac705e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-04-04 Lute Kamstra + + * add-log.el (change-log-font-lock-keywords): Names in + parenthesized lists can contain spaces. + 2005-04-04 Thien-Thi Nguyen * startup.el (fancy-splash-text): Shorten default text of diff --git a/lisp/add-log.el b/lisp/add-log.el index 8d4c741566f..126e7ecbaa5 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -1,7 +1,7 @@ ;;; add-log.el --- change log maintenance commands for Emacs -;; Copyright (C) 1985, 86, 88, 93, 94, 97, 98, 2000, 03, 2004 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1988, 1993, 1994, 1997, 1998, 2000, 2003, +;; 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: tools @@ -230,15 +230,15 @@ Note: The search is conducted only within 10%, at the beginning of the file." ;; Possibly further names in a list: ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) ;; Possibly a parenthesized list of names: - ("\\= (\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" + ("\\= (\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil (1 'change-log-list-face)) - ("\\=, *\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" + ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil (1 'change-log-list-face))) ;; ;; Function or variable names. - ("^\t(\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" + ("^\t(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" (1 'change-log-list-face) - ("\\=, *\\([^() ,\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil + ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil (1 'change-log-list-face))) ;; ;; Conditionals.