mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 03:27:54 +00:00
Make the compiler happier.
This commit is contained in:
parent
d996cbb312
commit
8981f5f043
|
@ -3133,10 +3133,12 @@ special faces for some of them. This can be done using the variable
|
||||||
@code{org-todo-keyword-faces}. For example:
|
@code{org-todo-keyword-faces}. For example:
|
||||||
|
|
||||||
@lisp
|
@lisp
|
||||||
|
@group
|
||||||
(setq org-todo-keyword-faces
|
(setq org-todo-keyword-faces
|
||||||
'(("TODO" . org-warning)
|
'(("TODO" . org-warning)
|
||||||
("DEFERRED" . shadow)
|
("DEFERRED" . shadow)
|
||||||
("CANCELED" . (:foreground "blue" :weight bold))))
|
("CANCELED" . (:foreground "blue" :weight bold))))
|
||||||
|
@end group
|
||||||
@end lisp
|
@end lisp
|
||||||
|
|
||||||
While using a list with face properties as shown for CANCELED
|
While using a list with face properties as shown for CANCELED
|
||||||
|
|
|
@ -321,7 +321,7 @@ list of attributes, like (:foreground \"blue\" :weight bold :underline t)."
|
||||||
(if (not value)
|
(if (not value)
|
||||||
(setq org-tags-special-faces-re nil)
|
(setq org-tags-special-faces-re nil)
|
||||||
(setq org-tags-special-faces-re
|
(setq org-tags-special-faces-re
|
||||||
(concat ":\\(" (mapconcat 'car org-tag-faces "\\|") "\\):"))))
|
(concat ":\\(" (mapconcat 'car value "\\|") "\\):"))))
|
||||||
|
|
||||||
(defcustom org-tag-faces nil
|
(defcustom org-tag-faces nil
|
||||||
"Faces for specific tags.
|
"Faces for specific tags.
|
||||||
|
|
|
@ -40,6 +40,9 @@
|
||||||
;; proposed by Richard, i'm just code it.
|
;; proposed by Richard, i'm just code it.
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
(require 'org)
|
||||||
|
(declare-function w3m-anchor "ext:w3m-util" (position))
|
||||||
|
|
||||||
(defun org-w3m-copy-for-org-mode ()
|
(defun org-w3m-copy-for-org-mode ()
|
||||||
"Copy current buffer content or active region with `org-mode' style links.
|
"Copy current buffer content or active region with `org-mode' style links.
|
||||||
This will encode `link-title' and `link-location' with
|
This will encode `link-title' and `link-location' with
|
||||||
|
@ -138,6 +141,7 @@ Otherwise, return nil."
|
||||||
|
|
||||||
;; Install keys into the w3m keymap
|
;; Install keys into the w3m keymap
|
||||||
(defvar w3m-mode-map)
|
(defvar w3m-mode-map)
|
||||||
|
(defvar w3m-minor-mode-map)
|
||||||
(when (and (boundp 'w3m-mode-map)
|
(when (and (boundp 'w3m-mode-map)
|
||||||
(keymapp w3m-mode-map))
|
(keymapp w3m-mode-map))
|
||||||
(define-key w3m-mode-map "\C-c\C-x\M-w" 'org-w3m-copy-for-org-mode)
|
(define-key w3m-mode-map "\C-c\C-x\M-w" 'org-w3m-copy-for-org-mode)
|
||||||
|
|
Loading…
Reference in a new issue