[Emacs-diffs] master 27b754d: Remove some obsolete calendar functions and variables

[Glenn Morris]

branch: master
commit 27b754d6b3ade7446b139177e324145f2683e089
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Remove some obsolete calendar functions and variables
    
    * lisp/calendar/cal-tex.el (cal-tex-list-holidays):
    Remove alias, obsolete since 24.4.
    * lisp/calendar/calendar.el (calendar-mode):
    No longer use calendar-font-lock-keywords.
    (calendar-font-lock-keywords): Delete variable, obsolete since 24.4.
    ; * lisp/calendar/holidays.el: Comment.
---
 lisp/calendar/cal-tex.el  |  2 --
 lisp/calendar/calendar.el | 12 +-----------
 lisp/calendar/holidays.el |  1 -
 3 files changed, 1 insertion(+), 14 deletions(-)

diff --git a/lisp/calendar/cal-tex.el b/lisp/calendar/cal-tex.el
index 552832b..7ae0ecb 100644
--- a/lisp/calendar/cal-tex.el
+++ b/lisp/calendar/cal-tex.el
@@ -246,8 +246,6 @@ This definition is the heart of the calendar!")
 
 (autoload 'holiday-in-range "holidays")
 
-(define-obsolete-function-alias 'cal-tex-list-holidays 'holiday-in-range 
"24.3")
-
 (autoload 'diary-list-entries "diary-lib")
 
 (defun cal-tex-list-diary-entries (d1 d2)
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 97acfab..bfe533f 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1786,10 +1786,7 @@ For a complete description, see the info node 
`Calendar/Diary'.
   ;; so let's make sure they're always set.  Most likely, this will be reset
   ;; soon in calendar-generate, but better safe than sorry.
   (unless (boundp 'displayed-month) (setq displayed-month 1))
-  (unless (boundp 'displayed-year)  (setq displayed-year  2001))
-  (if (bound-and-true-p calendar-font-lock-keywords)
-      (set (make-local-variable 'font-lock-defaults)
-           '(calendar-font-lock-keywords t))))
+  (unless (boundp 'displayed-year)  (setq displayed-year  2001)))
 
 (defun calendar-string-spread (strings char length)
   "Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH.
@@ -2307,13 +2304,6 @@ Negative years are interpreted as years BC; -1 being 1 
BC, and so on."
   (+ (* 12 (- yr2 yr1))
      (- mon2 mon1)))
 
-(defvar calendar-font-lock-keywords nil
-  "Default keywords to highlight in Calendar mode.")
-
-(make-obsolete-variable 'calendar-font-lock-keywords
-                        "set font-lock keywords in `calendar-mode-hook', \
-or customize calendar faces." "24.4")
-
 (defun calendar-day-name (date &optional abbrev absolute)
   "Return a string with the name of the day of the week of DATE.
 DATE should be a list in the format (MONTH DAY YEAR), unless the
diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el
index 8e2a6c9..198c3bb 100644
--- a/lisp/calendar/holidays.el
+++ b/lisp/calendar/holidays.el
@@ -522,7 +522,6 @@ strings describing those holidays that apply on DATE, or 
nil if none do."
           (setq holiday-list (append holiday-list (cdr h)))))))
 
 
-;; Formerly cal-tex-list-holidays.
 (defun holiday-in-range (d1 d2)
   "Generate a list of all holidays in range from absolute date D1 to D2."
   (let* ((start (calendar-gregorian-from-absolute d1))