From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 1 Oct 2001 11:05:18 +0000 (+0000)
Subject: (calendar-mode-map): Require cal-menu unconditionally.
X-Git-Tag: emacs-21.1~104
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/d24f1b150a30807e3fdc457c628b8e972815fa92

(calendar-mode-map): Require cal-menu unconditionally.
(calendar-mode): Set up activate-menubar-hook unconditionally.
---

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 3b22409e44..dda6cf95e6 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1900,7 +1900,7 @@ the inserted text.  Value is always t."
 (if calendar-mode-map
     nil
   (setq calendar-mode-map (make-sparse-keymap))
-  (if (display-popup-menus-p) (require 'cal-menu))
+  (require 'cal-menu)
   (calendar-for-loop i from 0 to 9 do
        (define-key calendar-mode-map (int-to-string i) 'digit-argument))
   (let ((l (list 'narrow-to-region 'mark-word 'mark-sexp 'mark-paragraph
@@ -2101,10 +2101,8 @@ For a complete description, type \
   (setq buffer-read-only t)
   (setq indent-tabs-mode nil)
   (update-calendar-mode-line)
-  (if (display-popup-menus-p)
-      (progn
-        (make-local-hook 'activate-menubar-hook)
-        (add-hook 'activate-menubar-hook 'cal-menu-update nil t)))
+  (make-local-hook 'activate-menubar-hook)
+  (add-hook 'activate-menubar-hook 'cal-menu-update nil t)
   (make-local-variable 'calendar-mark-ring)
   (make-local-variable 'displayed-month);;  Month in middle of window.
   (make-local-variable 'displayed-year));;  Year in middle of window.