Changeset 4073 for trunk/lisp/add-log.el

Timestamp:

05/03/06 18:37:43 (3 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk (modified) (1 prop)
• trunk/lisp/add-log.el (modified) (17 diffs)

trunk/lisp/add-log.el

@@ -73 +73 @@
-;;;###autoload
-(defcustom add-log-mailing-address nil
-*
+
-This defaults to the value of `user-mail-address'.  In addition to
-being a simple string, this value can also be a list.  All elements
@@ -84 +84 @@
-
-(defcustom add-log-time-format 'add-log-iso8601-time-string
-*
+
-For example, `add-log-iso8601-time-string', which gives the
-date in international ISO 8601 format,
@@ -96 +96 @@
-
-(defcustom add-log-keep-changes-together nil
-*
+
-
-Log entries for a given file made with \\[add-change-log-entry] or
@@ -128 +128 @@
-
-(defcustom add-log-always-start-new-record nil
-*
+
-  :version "22.1"
-  :type 'boolean
@@ -134 +134 @@
-
-(defcustom add-log-buffer-file-name-function nil
-*
+
-This function is called with no argument.  If this is nil, the default is to
-use `buffer-file-name'."
@@ -141 +141 @@
-
-(defcustom add-log-file-name-function nil
-*
+
-This function is called with one argument, the value of variable
-`buffer-file-name' in that buffer.  If this is nil, the default is to
@@ -287 +287 @@
-  "Keymap for Change Log major mode.")
-
-
+
+
+
+
-  "Time zone used for calculating change log time stamps.
-It takes the same format as the TZ argument of `set-time-zone-rule'.
-
-
-
+
+
+
+
-  (let* ((utc-offset (or (car (current-time-zone time)) 0))
-         (sign (if (< utc-offset 0) ?- ?+))
@@ -305 +309 @@
-            sign hh mm ss)))
-
+(defvar add-log-iso8601-with-time-zone nil)
+
-(defun add-log-iso8601-time-string ()
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
-
-(defun change-log-name ()
@@ -495 +495 @@
-notices.
-
-change
+add
-non-nil, otherwise in local time."
-  (interactive (list current-prefix-arg
@@ -539 +539 @@
-
-    ;; Advance into first entry if it is usable; else make new one.
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-      (if (and (not add-log-always-start-new-record)
-               (let ((hit nil))
@@ -653 +662 @@
-;;;###autoload (define-key ctl-x-4-map "a" 'add-change-log-entry-other-window)
-
-add
-
-add
+change
+
+change
-  (let* ((indent
-          (save-excursion
@@ -661 +670 @@
-            (skip-chars-forward " \t")
-            (cond
-
+\\(?: +(.*)\\)? *
-                   ;; Matching the output of add-log-time-format is difficult,
-                   ;; but I'll get it has at least two adjacent digits.
@@ -667 +676 @@
-              0)
-             ((looking-at "[^*(]")
-add
+change
-             (t (current-left-margin)))))
-         (pos (save-excursion (indent-line-to indent) (point))))
@@ -689 +698 @@
-  (set (make-local-variable 'fill-paragraph-function)
-       'change-log-fill-paragraph)
-add
+change
-  (set (make-local-variable 'tab-always-indent) nil)
-  ;; We really do want "^" in paragraph-start below: it is only the
@@ -723 +732 @@
-(defcustom add-log-current-defun-header-regexp
-  "^\\([[:upper:]][[:upper:]_ ]*[[:upper:]_]\\|[-_[:alpha:]]+\\)[ \t]*[:=]"
-*
+
-  :type 'regexp
-  :group 'change-log)
@@ -729 +738 @@
-;;;###autoload
-(defvar add-log-lisp-like-modes
-  
+
-  "*Modes that look like Lisp to `add-log-current-defun'.")
-
-;;;###autoload
-(defvar add-log-c-like-modes
-  
+
-  "*Modes that look like C to `add-log-current-defun'.")
-
-;;;###autoload
-(defvar add-log-tex-like-modes
-  
+
-  "*Modes that look like TeX to `add-log-current-defun'.")
-
@@ -1104 +1113 @@
-(provide 'add-log)
-
-;
+
-;;; add-log.el ends here