Changeset 3988 for vendor/emacs-CVS_HEAD/lisp/calendar/cal-menu.el

Timestamp:

2005年11月26日 08時33分26秒 (3 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• vendor/emacs-CVS_HEAD/lisp/calendar/cal-menu.el (modified) (8 diffs)

vendor/emacs-CVS_HEAD/lisp/calendar/cal-menu.el

@@ -39 +39 @@
-;;; Code:
-
-(defvar date)
-(defvar displayed-month)
-(defvar displayed-year)
-(defvar event)
-
-(eval-when-compile (require 'calendar))
@@ -326 +324 @@
-(autoload 'diary-list-entries "diary-lib")
-
-
+&optional event
-  "Pop up menu of holidays for mouse selected date."
-
+ "e"
-  (let* ((date (calendar-event-to-date))
-         (l (mapcar 'list (check-calendar-holidays date)))
@@ -341 +339 @@
-    (and selection (call-interactively selection))))
-
-
+ event
-  "Pop up menu of diary entries for mouse-selected date.
-Use optional DATE and alternative file DIARY.
-
-Any holidays are shown if `holidays-in-diary-buffer' is t."
-
+ "i\ni\ne"
-  (let* ((date (if date date (calendar-event-to-date)))
-         (diary-file (if diary diary diary-file))
@@ -491 +489 @@
-    (cal-tex-cursor-year-landscape nil)))
-
-
+&optional event
-  "Pop up menu of equivalent dates to mouse selected date."
-
-
+ "e"
+*
-        (selection
-         (cal-menu-x-popup-menu
@@ -525 +523 @@
-             (list (format "Chinese date: %s"
-                           (calendar-chinese-date-string date))))
-;           
-;           
+            ;;
+            ;;
-            (let ((c (calendar-coptic-date-string date)))
-              (if (not (string-equal c ""))
@@ -581 +579 @@
-          (cal-menu-x-popup-menu
-           event
-date
+(calendar-event-to-date t)
-                 (list
-                  ""
@@ -604 +602 @@
-          (cal-menu-x-popup-menu
-           event
-date
+(calendar-event-to-date t)
-                 (list
-                  ""
@@ -640 +638 @@
-(provide 'cal-menu)
-
-;
+
-;;; cal-menu.el ends here