Commit 2ca695f2 authored by Glenn Morris's avatar Glenn Morris
Browse files

(diary-set-maybe-redraw): Move definition before first use.

(diary-font-lock-keywords): New function with old code for
initialization of variable of same name.
parent 2f4dfc5c
......@@ -263,6 +263,16 @@ search."
(setq attr-list (cdr attr-list)))))
(list entry ret-attr))))
(defun diary-set-maybe-redraw (symbol value)
"Set SYMBOL's value to VALUE, and redraw the diary if necessary.
Redraws the diary if it is being displayed (note this is not the same as
just visiting the `diary-file'), and SYMBOL's value is to be changed."
(let ((oldvalue (eval symbol)))
(custom-set-default symbol value)
(and (not (equal value oldvalue))
(diary-live-p)
;; Note this assumes diary was called without prefix arg.
(diary))))
;; This can be removed once the kill/yank treatment of invisible text
;; (see etc/TODO) is fixed. -- gm
......@@ -309,17 +319,6 @@ Only used if `diary-header-line-flag' is non-nil."
(and diary-file
(find-buffer-visiting (substitute-in-file-name diary-file)))))
(defun diary-set-maybe-redraw (symbol value)
"Set SYMBOL's value to VALUE, and redraw the diary if necessary.
Redraws the diary if it is being displayed (note this is not the same as
just visiting the `diary-file'), and SYMBOL's value is to be changed."
(let ((oldvalue (eval symbol)))
(custom-set-default symbol value)
(and (not (equal value oldvalue))
(diary-live-p)
;; Note this assumes diary was called without prefix arg.
(diary))))
(defcustom number-of-diary-entries 1
"Specifies how many days of diary entries are to be displayed initially.
This variable affects the diary display when the command \\[diary] is used,
......@@ -1996,7 +1995,8 @@ names."
(eval-when-compile (require 'cal-hebrew)
(require 'cal-islam))
(defvar diary-font-lock-keywords
(defun diary-font-lock-keywords ()
"Return a value for the variable `diary-font-lock-keywords'."
(append
(diary-font-lock-date-forms calendar-month-name-array
nil calendar-month-abbrev-array)
......@@ -2038,9 +2038,10 @@ names."
'(diary-font-lock-sexps . font-lock-keyword-face)
`(,(concat "\\(^\\|\\s-\\)"
diary-time-regexp "\\(-" diary-time-regexp "\\)?")
. 'diary-time)))
"Forms to highlight in `diary-mode'.")
. 'diary-time))))
(defvar diary-font-lock-keywords (diary-font-lock-keywords)
"Forms to highlight in `diary-mode'.")
;; Following code from Dave Love <fx@gnu.org>.
;; Import Outlook-format appointments from mail messages in Gnus or
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment