/[emacs]/emacs/lisp/add-log.el
ViewVC logotype

Diff of /emacs/lisp/add-log.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.158 by lute, Mon Apr 4 08:47:07 2005 UTC revision 1.159 by lute, Wed Apr 6 08:42:57 2005 UTC
# Line 225  Note: The search is conducted only withi Line 225  Note: The search is conducted only withi
225        (2 'change-log-email-face)))        (2 'change-log-email-face)))
226      ;;      ;;
227      ;; File names.      ;; File names.
228      ("^\\(?: +\\|\t\\)\\* \\([^ ,:([\n]+\\)"      ("^\\( +\\|\t\\)\\* \\([^ ,:([\n]+\\)"
229       (1 'change-log-file-face)       (2 'change-log-file-face)
230       ;; Possibly further names in a list:       ;; Possibly further names in a list:
231       ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face))       ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face))
232       ;; Possibly a parenthesized list of names:       ;; Possibly a parenthesized list of names:
# Line 236  Note: The search is conducted only withi Line 236  Note: The search is conducted only withi
236        nil nil (1 'change-log-list-face)))        nil nil (1 'change-log-list-face)))
237      ;;      ;;
238      ;; Function or variable names.      ;; Function or variable names.
239      ("^\t(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"      ("^\\( +\\|\t\\)(\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)"
240       (1 'change-log-list-face)       (2 'change-log-list-face)
241       ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil       ("\\=, *\\([^(),\n]+\\|(\\(setf\\|SETF\\) [^() ,\n]+)\\)" nil nil
242        (1 'change-log-list-face)))        (1 'change-log-list-face)))
243      ;;      ;;
# Line 250  Note: The search is conducted only withi Line 250  Note: The search is conducted only withi
250      ;; Acknowledgements.      ;; Acknowledgements.
251      ;; Don't include plain "From" because that is vague;      ;; Don't include plain "From" because that is vague;
252      ;; we want to encourage people to say something more specific.      ;; we want to encourage people to say something more specific.
253      ("\\(^\t\\|  \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)"      ("\\(^\\( +\\|\t\\)\\|  \\)\\(Patch\\(es\\)? by\\|Report\\(ed by\\| from\\)\\|Suggest\\(ed by\\|ion from\\)\\)"
254       2 'change-log-acknowledgement-face))       3 'change-log-acknowledgement-face))
255    "Additional expressions to highlight in Change Log mode.")    "Additional expressions to highlight in Change Log mode.")
256    
257  (defvar change-log-mode-map  (defvar change-log-mode-map

Legend:
Removed from v.1.158  
changed lines
  Added in v.1.159

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26