comparison lisp/add-log.el @ 951:c23539669808

*** empty log message ***

950:79204001d346

    (if (and other-window (not (equal file-name buffer-file-name)))
	(find-file-other-window file-name)
      (find-file file-name))
    (undo-boundary)
    (goto-char (point-min))
    (if (not (and (looking-at (substring (current-time-string) 0 10))
		  (looking-at (concat ".* " full-name "  (" login-name "@"))))
	(progn (insert (current-time-string)
		       "  " full-name
		       "  (" login-name
		       "@" site-name ")\n\n")))
    (goto-char (point-min))
    (setq empty-entry
	  (and (search-forward "\n\t* \n" nil t)
	       (1- (point))))
    (if (and entry

  (add-change-log-entry whoami file-name t))

(defun change-log-mode ()
  "Major mode for editting change logs; like Indented Text Mode.
Prevents numeric backups and sets `left-margin' to 8 and `fill-column' to 74.
New log entries are usually made with \\[add-change-log-entry] or \\[add-change-log-entry-other-window]."
  (interactive)
  (kill-all-local-variables)
  (indented-text-mode)
  (setq major-mode 'change-log-mode)
  (setq mode-name "Change Log")

		 (progn
		   (forward-word 1)
		   (skip-chars-forward " ")
		   (buffer-substring (point)
				     (progn (forward-sexp 1) (point))))))
	    ((and (or (eq major-mode 'c-mode)
		      (eq major-mode 'c++-mode))
		  (save-excursion (beginning-of-line)
				  ;; Use eq instead of = here to avoid
				  ;; error when at bob and char-after
				  ;; returns nil.
				  (while (eq (char-after (- (point) 2)) ?\\)

	       (forward-line -1))
	     (search-forward "define")
	     (skip-chars-forward " \t")
	     (buffer-substring (point)
			       (progn (forward-sexp 1) (point))))
	    ((or (eq major-mode 'c-mode)
		 (eq major-mode 'c++-mode))
	     ;; See if we are in the beginning part of a function,
	     ;; before the open brace.  If so, advance forward.
	     (while (not (or (looking-at "{")
			     (looking-at "\\s *$")))
	       (forward-line 1))
	     (or (eobp) (forward-char 1))
	     (beginning-of-defun)
	     (if (progn (end-of-defun)
			(< location (point)))
		 (progn
		   (backward-sexp 1)

		     (forward-line -1)
		     ;; Skip back over typedefs of arglist.
		     (while (and (not (bobp))
				 (looking-at "[ \t\n]"))
		       (forward-line -1))
		     ;; See if this is using the DEFUN macro used in Emacs.
		     (if (save-excursion
			   (while (and (not (bobp))
				       (looking-at "[^\n\f]")
				       (not (looking-at ".*\\*/")))
			     (forward-line -1))
			   (forward-line 1)
			   (setq tem (point))
			   (and (looking-at "DEFUN ")
				(>= location (point))))
			 (progn
			   (goto-char tem)
			   (down-list 1)
			   (forward-sexp 1)
			   (skip-chars-forward " ,")
			   (buffer-substring (point)
					     (progn (forward-sexp 1) (point))))
		       ;; Ordinary C function syntax.
		       (setq beg (point))
		       (down-list 1)	; into arglist

				  ;; For this purpose, include the line
				  ;; that has the decl keywords.
				  ;; This may also include some of the comments
				  ;; before the function.
				  (while (and (not (bobp))
					      (save-excursion (forward-line -1)
							      (looking-at "[^\n\f]")))
				    (forward-line -1))
				  (>= location (point)))
				;; Consistency check: going down and up
				;; shouldn't take us back before BEG.
				(> (point) beg))

951:c23539669808

    (if (and other-window (not (equal file-name buffer-file-name)))
	(find-file-other-window file-name)
      (find-file file-name))
    (undo-boundary)
    (goto-char (point-min))
    (or (looking-at (concat (substring (current-time-string) 0 10)
				 ".* " full-name "  (" login-name "@"))
	(insert (current-time-string)
		"  " full-name
		"  (" login-name
		"@" site-name ")\n\n"))
    (goto-char (point-min))
    (setq empty-entry
	  (and (search-forward "\n\t* \n" nil t)
	       (1- (point))))
    (if (and entry

  (add-change-log-entry whoami file-name t))

(defun change-log-mode ()
  "Major mode for editting change logs; like Indented Text Mode.
Prevents numeric backups and sets `left-margin' to 8 and `fill-column' to 74.
New log entries are usually made with \\[add-change-log-entry] or \\[add-change-log-entry-other-window].
Each entry behaves as a paragraph, and the entries for one day as a page.
Runs `change-log-mode-hook'."
  (interactive)
  (kill-all-local-variables)
  (indented-text-mode)
  (setq major-mode 'change-log-mode)
  (setq mode-name "Change Log")

		 (progn
		   (forward-word 1)
		   (skip-chars-forward " ")
		   (buffer-substring (point)
				     (progn (forward-sexp 1) (point))))))
	    ((and (memq major-mode '(c-mode 'c++-mode))
		  (save-excursion (beginning-of-line)
				  ;; Use eq instead of = here to avoid
				  ;; error when at bob and char-after
				  ;; returns nil.
				  (while (eq (char-after (- (point) 2)) ?\\)

	       (forward-line -1))
	     (search-forward "define")
	     (skip-chars-forward " \t")
	     (buffer-substring (point)
			       (progn (forward-sexp 1) (point))))
	    ((memq major-mode '(c-mode 'c++-mode))
	     ;; See if we are in the beginning part of a function,
	     ;; before the open brace.  If so, advance forward.
	     (while (not (looking-at "{\\|\\(\\s *$\\)"))
	       (forward-line 1))
	     (or (eobp)
		 (forward-char 1))
	     (beginning-of-defun)
	     (if (progn (end-of-defun)
			(< location (point)))
		 (progn
		   (backward-sexp 1)

		     (forward-line -1)
		     ;; Skip back over typedefs of arglist.
		     (while (and (not (bobp))
				 (looking-at "[ \t\n]"))
		       (forward-line -1))
		     ;; See if this is using the DEFUN macro used in Emacs,
		     ;; or the DEFUN macro used by the C library.
		     (if (and (looking-at "DEFUN\\b")
			      (>= location (point)))
			 (progn
			   (down-list 1)
			   (if (= (char-after (point)) ?\")
			       (progn
				 (forward-sexp 1)
				 (skip-chars-forward " ,")))
			   (buffer-substring (point)
					     (progn (forward-sexp 1) (point))))
		       ;; Ordinary C function syntax.
		       (setq beg (point))
		       (down-list 1)	; into arglist

				  ;; For this purpose, include the line
				  ;; that has the decl keywords.
				  ;; This may also include some of the comments
				  ;; before the function.
				  (while (and (not (bobp))
					      (save-excursion
						(forward-line -1)
						(looking-at "[^\n\f]")))
				    (forward-line -1))
				  (>= location (point)))
				;; Consistency check: going down and up
				;; shouldn't take us back before BEG.
				(> (point) beg))