diff options
| author | Richard M. Stallman | 2003-04-06 20:21:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-04-06 20:21:26 +0000 |
| commit | d5b213cc0c6f31b09c2fcb8421154273bd778e62 (patch) | |
| tree | 0e6674a33add95600c491d8605843086d9d2c7ca | |
| parent | 90c1e36a73e10f0b0c7fbbbada867c60eb59b2f5 (diff) | |
| download | emacs-d5b213cc0c6f31b09c2fcb8421154273bd778e62.tar.gz emacs-d5b213cc0c6f31b09c2fcb8421154273bd778e62.zip | |
(cal-menu-update): Use easy-menu-create-menu rather than easy-menu-change.
| -rw-r--r-- | lisp/calendar/cal-menu.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index cc7538133ba..b74eeed1a05 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el | |||
| @@ -202,7 +202,8 @@ not available." | |||
| 202 | (setq l (cons ["Mark Holidays" mark-calendar-holidays t] | 202 | (setq l (cons ["Mark Holidays" mark-calendar-holidays t] |
| 203 | (cons ["Unmark Calendar" calendar-unmark t] | 203 | (cons ["Unmark Calendar" calendar-unmark t] |
| 204 | (cons ["--" '("--") t] l)))) | 204 | (cons ["--" '("--") t] l)))) |
| 205 | (easy-menu-change nil "Holidays" (nreverse l)) | 205 | (define-key calendar-mode-map [menu-bar Holidays] |
| 206 | (cons "Holidays" (easy-menu-create-menu "Holidays" (nreverse l)))) | ||
| 206 | (define-key calendar-mode-map [menu-bar Holidays separator] | 207 | (define-key calendar-mode-map [menu-bar Holidays separator] |
| 207 | '("--")) | 208 | '("--")) |
| 208 | (define-key calendar-mode-map [menu-bar Holidays today] | 209 | (define-key calendar-mode-map [menu-bar Holidays today] |