[Emacs-diffs] Changes to emacs/lisp/add-log.el

[Lute Kamstra]

Index: emacs/lisp/add-log.el
diff -c emacs/lisp/add-log.el:1.158 emacs/lisp/add-log.el:1.159
*** emacs/lisp/add-log.el:1.158 Mon Apr  4 08:47:07 2005
--- emacs/lisp/add-log.el       Wed Apr  6 08:42:57 2005
***************
*** 225,232 ****
        (2 'change-log-email-face)))
      ;;
      ;; File names.
!     ("^\\(?: +\\|\t\\)\\* \\([^ ,:([\n]+\\)"
!      (1 'change-log-file-face)
       ;; Possibly further names in a list:
       ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face))
       ;; Possibly a parenthesized list of names:
--- 225,232 ----
        (2 'change-log-email-face)))
      ;;
      ;; File names.
!     ("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)"
!      (2 'change-log-file-face)
       ;; Possibly further names in a list:
       ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face))
       ;; Possibly a parenthesized list of names:
***************
*** 236,243 ****
        nil nil (1 'change-log-list-face)))
      ;;
      ;; Function or variable names.
!     ("^\t(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
!      (1 'change-log-list-face)
       ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil
        (1 'change-log-list-face)))
      ;;
--- 236,243 ----
        nil nil (1 'change-log-list-face)))
      ;;
      ;; Function or variable names.
!     ("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
!      (2 'change-log-list-face)
       ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil
        (1 'change-log-list-face)))
      ;;
***************
*** 250,257 ****
      ;; Acknowledgements.
      ;; Don't include plain "From" because that is vague;
      ;; we want to encourage people to say something more specific.
!     ("\\(^\t\\|  \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| 
from\\)\\|Suggest\\(ed by\\|ion from\\)\\)"
!      2 'change-log-acknowledgement-face))
    "Additional expressions to highlight in Change Log mode.")
  
  (defvar change-log-mode-map
--- 250,257 ----
      ;; Acknowledgements.
      ;; Don't include plain "From" because that is vague;
      ;; we want to encourage people to say something more specific.
!     ("\\(^\\( +\\|\t\\)\\|  \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| 
from\\)\\|Suggest\\(ed by\\|ion from\\)\\)"
!      3 'change-log-acknowledgement-face))
    "Additional expressions to highlight in Change Log mode.")
  
  (defvar change-log-mode-map