Mercurial > hg > xemacs-beta

comparison lisp/packages/add-log.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 28f395d8dc7a
children e45d5e7c476e
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;; This facility is documented in the Emacs Manual. 28 ;; This facility is documented in the Emacs Manual.
29 29
30 ;;; Code: 30 ;;; Code:
31
32 ;; XEmacs: the byte-compiler warns on `beginning-of-fortran-subprogram'.
33 (eval-when-compile
34 (require 'fortran))
31 35
32 (defgroup change-log nil 36 (defgroup change-log nil
33 "Change log maintenance" 37 "Change log maintenance"
34 :group 'tools 38 :group 'tools
35 :group 'maint 39 :group 'maint
89 ("^\t\\* \\([^ ,:([\n]+\\)" 93 ("^\t\\* \\([^ ,:([\n]+\\)"
90 (1 font-lock-function-name-face) 94 (1 font-lock-function-name-face)
91 ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 font-lock-function-name-face))) 95 ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 font-lock-function-name-face)))
92 ;; 96 ;;
93 ;; Function or variable names. 97 ;; Function or variable names.
94 ("(\\([^ ,:\n]+\\)" 98 ("(\\([^ ,:)\n]+\\)"
95 (1 font-lock-keyword-face) 99 (1 font-lock-keyword-face)
96 ("\\=, \\([^ ,:\n]+\\)" nil nil (1 font-lock-keyword-face))) 100 ("\\=, \\([^ ,:\n]+\\)" nil nil (1 font-lock-keyword-face)))
97 ;; 101 ;;
98 ;; Conditionals. 102 ;; Conditionals.
99 ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 font-lock-variable-name-face)) 103 ("\\[!?\\([^]\n]+\\)\\]\\(:\\| (\\)" (1 font-lock-variable-name-face))
410 '(emacs-lisp-mode lisp-mode scheme-mode lisp-interaction-mode) 414 '(emacs-lisp-mode lisp-mode scheme-mode lisp-interaction-mode)
411 "*Modes that look like Lisp to `add-log-current-defun'.") 415 "*Modes that look like Lisp to `add-log-current-defun'.")
412 416
413 ;;;###autoload 417 ;;;###autoload
414 (defvar add-log-c-like-modes 418 (defvar add-log-c-like-modes
415 '(c-mode c++-mode c++-c-mode objc-mode) 419 '(c-mode c++-mode c++-c-mode objc-mode java-mode)
416 "*Modes that look like C to `add-log-current-defun'.") 420 "*Modes that look like C to `add-log-current-defun'.")
417 421
418 ;;;###autoload 422 ;;;###autoload
419 (defvar add-log-tex-like-modes 423 (defvar add-log-tex-like-modes
420 '(TeX-mode plain-TeX-mode LaTeX-mode plain-tex-mode latex-mode) 424 '(TeX-mode plain-TeX-mode LaTeX-mode plain-tex-mode latex-mode)