tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-keys: Do not rely on deprecated boolean value of `window-system' 

* lisp/org-keys.el: Do not rely on boolean value of `window-system'.
Such usage is deprecated.  Use `display-graphic-p' instead.
This commit is contained in:
Ihor Radchenko 2022-06-25 16:05:16 +08:00
parent db3870bfc0
commit 620fb24050
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-keys.el
View File

@ -244,7 +244,7 @@ become effective."
(defcustom org-use-extra-keys nil (defcustom org-use-extra-keys nil
"Non-nil means use extra key sequence definitions for certain commands. "Non-nil means use extra key sequence definitions for certain commands.
This happens automatically if `window-system' is nil. This This happens automatically if `display-graphic-p' returns nil. This
variable lets you do the same manually. You must set it before variable lets you do the same manually. You must set it before
loading Org." loading Org."
:group 'org-startup :group 'org-startup
@ -495,7 +495,7 @@ COMMANDS is a list of alternating OLDDEF NEWDEF command names."
;; We only set them when really needed because otherwise the ;; We only set them when really needed because otherwise the
;; menus don't show the simple keys ;; menus don't show the simple keys
(when (or org-use-extra-keys (not window-system)) (when (or org-use-extra-keys (not (display-graphic-p)))
(org-defkey org-mode-map (kbd "C-c C-x c") #'org-table-copy-down) (org-defkey org-mode-map (kbd "C-c C-x c") #'org-table-copy-down)
(org-defkey org-mode-map (kbd "C-c C-x m") #'org-meta-return) (org-defkey org-mode-map (kbd "C-c C-x m") #'org-meta-return)
(org-defkey org-mode-map (kbd "C-c C-x M") #'org-insert-todo-heading) (org-defkey org-mode-map (kbd "C-c C-x M") #'org-insert-todo-heading)