Commit 8a806f04 authored by Glenn Morris's avatar Glenn Morris
Browse files

* lisp/calendar/calendar.el (calendar-font-lock-keywords): Set to nil

parent 3b5c03d3
......@@ -16,8 +16,7 @@
(calendar-day-abbrev-array):
Also :set calendar-day-header-array, and maybe redraw.
(calendar-day-header-array): New option. (Bug#15007)
(calendar-font-lock-keywords): Use calendar-day-header-array,
and calendar- faces. Make obsolete.
(calendar-font-lock-keywords): Set to nil and make obsolete.
(calendar-day-name): Add option to use header array.
2013-08-06 Lars Magne Ingebrigtsen <larsi@gnus.org>
......
......@@ -2360,26 +2360,7 @@ Negative years are interpreted as years BC; -1 being 1 BC, and so on."
(+ (* 12 (- yr2 yr1))
(- mon2 mon1)))
(defvar calendar-font-lock-keywords
;; Month and year. Not really needed now that calendar-month-header
;; contains propertize, and not correct for non-american forms
;; of that variable.
`((,(concat (regexp-opt (mapcar 'identity calendar-month-name-array) t)
" -?[0-9]+")
. 'calendar-month-header)
;; Day headers.
;; Also not needed now that calendar-generate-month uses propertize.
(,(regexp-opt
(list (truncate-string-to-width (aref calendar-day-header-array 6)
calendar-day-header-width)
(truncate-string-to-width (aref calendar-day-header-array 0)
calendar-day-header-width)))
;; Saturdays and Sundays are highlighted differently.
. 'calendar-weekend-header)
(,(regexp-opt (mapcar (lambda (x) (truncate-string-to-width
x calendar-day-header-width))
calendar-day-header-array))
. 'calendar-day-header))
(defvar calendar-font-lock-keywords nil
"Default keywords to highlight in Calendar mode.")
(make-obsolete-variable 'calendar-font-lock-keywords
......
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