Function: org--setup-calendar-bindings

org--setup-calendar-bindings is a byte-compiled function defined in org-compat.el.gz.

Signature

(org--setup-calendar-bindings)

Documentation

Bind Org functions in Calendar keymap.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-compat.el.gz
(defun org--setup-calendar-bindings ()
  "Bind Org functions in Calendar keymap."
  (pcase org-calendar-to-agenda-key
    (`nil nil)
    ((and key (pred stringp))
     (local-set-key (kbd key) #'org-calendar-goto-agenda))
    ((guard (not (lookup-key calendar-mode-map "c")))
     (local-set-key "c" #'org-calendar-goto-agenda))
    (_ nil))
  (when (and (boundp 'org-agenda-diary-file)
	     (not (eq org-agenda-diary-file 'diary-file)))
    (local-set-key org-calendar-insert-diary-entry-key
		   #'org-agenda-diary-entry)))