Function: org-key

org-key is a byte-compiled function defined in org-keys.el.gz.

Signature

(org-key KEY)

Documentation

Select key according to org-replace-disputed-keys and org-disputed-keys.

Or return the original if not disputed.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-keys.el.gz
;;; Functions

;;;; Base functions
(defun org-key (key)
  "Select key according to `org-replace-disputed-keys' and `org-disputed-keys'.
Or return the original if not disputed."
  (when org-replace-disputed-keys
    (let* ((nkey (key-description key))
	   (x (cl-find-if (lambda (x) (equal (key-description (car x)) nkey))
			  org-disputed-keys)))
      (setq key (if x (cdr x) key))))
  key)