Lines Matching +defs:mode +defs:alist
168 "Determine how the calendar mode removes a frame no longer needed.
298 (defcustom calendar-mode-hook nil
299 "Hook run when entering `calendar-mode'."
306 This is the place to add key bindings to `calendar-mode-map'."
650 standard syntax table from Fundamental mode, but with the `*' changed so
727 (update-calendar-mode-line))
735 (update-calendar-mode-line))
794 the mode line), if there are any relevant entries. At the time these
872 The holidays appear in the mode line of the diary buffer, or in the
1648 Use \\[describe-mode] for details of the key bindings in the calendar window.
1654 calendar-mode-map.
1667 (calendar-mode)
2066 (update-calendar-mode-line)
2083 (if (and (boundp 'font-lock-mode)
2084 font-lock-mode)
2208 (defvar calendar-mode-map nil)
2209 (if calendar-mode-map
2334 (setq calendar-mode-map map)
2335 ;; Require cal-menu after initializing calendar-mode-map because it uses it.
2338 (defun describe-calendar-mode ()
2339 "Create a help buffer with a brief description of the `calendar-mode'."
2341 (help-setup-xref (list #'describe-calendar-mode) (interactive-p))
2347 "\\<calendar-mode-map>\\[describe-mode] from within the calendar")
2348 (substitute-command-keys "\\{calendar-mode-map}")))
2351 ;; Calendar mode is suitable only for specially formatted data.
2352 (put 'calendar-mode 'mode-class 'special)
2354 (defvar calendar-mode-line-format
2358 'mouse-face 'mode-line-highlight
2359 'keymap (make-mode-line-mouse-map 'mouse-1
2365 "\\<calendar-mode-map>\\[calendar-goto-info-node] info")
2367 'mouse-face 'mode-line-highlight
2368 'keymap (make-mode-line-mouse-map 'mouse-1 'calendar-goto-info-node))
2372 " \\<calendar-mode-map>\\[calendar-other-month] other")
2374 'mouse-face 'mode-line-highlight
2375 'keymap (make-mode-line-mouse-map
2380 "\\<calendar-mode-map>\\[calendar-goto-today] today")
2382 'mouse-face 'mode-line-highlight
2383 'keymap (make-mode-line-mouse-map 'mouse-1 #'calendar-goto-today)))
2387 'mouse-face 'mode-line-highlight
2388 'keymap (make-mode-line-mouse-map
2390 "The mode line of the calendar buffer.
2397 and the ISO week/year numbers in the mode. When calendar-move-hook is set to
2398 'update-calendar-mode-line, these mode line shows these values for the date
2456 (defun calendar-mode ()
2457 "A major mode for the calendar window.
2460 \\<calendar-mode-map>\\[calendar-goto-info-node] from within the calendar.
2462 \\<calendar-mode-map>\\{calendar-mode-map}"
2464 (setq major-mode 'calendar-mode)
2465 (setq mode-name "Calendar")
2466 (use-local-map calendar-mode-map)
2468 (setq indent-tabs-mode nil)
2469 (update-calendar-mode-line)
2476 (run-mode-hooks 'calendar-mode-hook))
2503 (defun update-calendar-mode-line ()
2504 "Update the calendar mode line with the current date and date style."
2507 (setq mode-line-format
2512 (mapcar 'eval calendar-mode-line-format))
2514 (force-mode-line-update))))
2751 (calendar-make-alist month-array 1) t)))
2840 "Default keywords to highlight in Calendar mode.")
2856 (defun calendar-make-alist (sequence &optional start-index filter abbrevs)
2862 Each abbreviation is entered into the alist with the same
2864 If FILTER is provided, apply it to each key in the alist."
2870 alist elem)
2871 (dotimes (i (length sequence) (reverse alist))
2874 alist
2875 (cons (cons (if filter (funcall filter elem) elem) index) alist))
2878 alist (cons (cons (if filter (funcall filter elem) elem)
2879 index) alist)))
2882 alist (cons (cons (if filter (funcall filter elem) elem)
2883 index) alist))))))
3097 (calendar-set-mode-line
3144 (defun calendar-set-mode-line (str)
3145 "Set mode line to STR, centered, surrounded by dashes."
3147 ;; As per doc of window-width, total visible mode-line length.
3149 (setq mode-line-format
3151 `("-" mode-line-modified