Lines Matching +defs:custom +defs:quote
100 ;;; The custom variables
249 (defcustom org-quote-string "QUOTE"
950 (setq r1 (concat "\\<" (regexp-quote user-mail-address) "\\>")))
952 (setq r2 (concat "\\<" (regexp-quote user-full-name) "\\>")))
1468 (defcustom org-display-custom-times nil
1469 "Non-nil means, overlay custom formats over all time stamps.
1470 The formats are defined through the variable `org-time-stamp-custom-formats'.
1476 (make-variable-buffer-local 'org-display-custom-times)
1478 (defcustom org-time-stamp-custom-formats
1482 `org-display-custom-times' is set."
1657 (defgroup org-agenda-custom-commands nil
1662 (defcustom org-agenda-custom-commands '(("w" todo "WAITING"))
1705 :group 'org-agenda-custom-commands
1776 :group 'org-agenda-custom-commands
3136 ("customtime" org-display-custom-times t)
3231 (concat "\\<\\(" (mapconcat 'regexp-quote org-todo-keywords
3235 (mapconcat 'regexp-quote
3241 (mapconcat 'regexp-quote org-todo-keywords "\\|")
3247 (mapconcat 'regexp-quote org-todo-keywords "\\|")
3797 (when org-display-custom-times
3799 (org-display-custom-time (match-beginning 3) (match-end 3)))
3800 (org-display-custom-time (match-beginning 1) (match-end 1)))
3940 "\\|" org-quote-string "\\)\\>")
4949 re (concat "^" (regexp-quote stars) " +")
4950 re2 (concat "^" (regexp-quote (substring stars 0 -1)) "[^*]")
5541 (regexp-quote heading) "[ \t]*\\(:[a-zA-Z0-9_@:]+:\\)?[ \t]*\\($\\|\r\\)")
5594 (setq re1 (concat "^" (regexp-quote
5958 (setq dates (and org-display-custom-times
8356 ;; AUCTeX binds the double quote to `Tex-insert-quote'. With orgtbl-mode
8381 0 (quote 'org-table) 'prepend))
8401 (org-set-local (quote org-table-may-need-update) t)
8461 (list 'call-interactively (list 'quote fun))
8761 (let* ((re1 (concat "^" (regexp-quote comment-start) orgtbl-line-start-regexp))
9080 (if (string-match (concat "^" (regexp-quote vm-folder-directory))
9312 (if (string-match (concat "^\\(" org-quote-string "\\|"
9348 (let ((re (mapconcat (lambda (x) (regexp-quote (car x)))
9360 (let ((re (mapconcat (lambda (x) (regexp-quote (cdr x)))
9463 ((string-match (concat "^" (regexp-quote pwd1) "\\(.+\\)") file)
9465 ((string-match (concat "^" (regexp-quote pwd) "\\(.+\\)")
9517 (if (string-match (concat "^" (regexp-quote
9844 (concat "<<" (regexp-quote s0) ">>") nil t)
9868 re0 (concat "\\(<<" (regexp-quote s0) ">>\\)")
10100 (concat "^" "message-id: *" (regexp-quote article))))
10135 (concat "^Message-ID:\\s-+" (regexp-quote
10253 ;; Use the custom search meachnism to construct and use search strings for
10287 (regexp-quote s) "[ \t\n]*,") nil t)
10355 ;; Remove quotes around the file name - we'll use shell-quote-argument.
10358 (setq cmd (format cmd (shell-quote-argument file)))
10612 (concat "^\\*+[ \t]+" (regexp-quote heading)
11072 (regexp-quote (nth (1- (prefix-numeric-value arg))
11422 (mapconcat 'regexp-quote
11648 (concat "\\([ \t]*" (regexp-quote current) "\\)[ \t]*$")
12156 "Toggle the use of custom time stamp formats."
12158 (setq org-display-custom-times (not org-display-custom-times))
12159 (unless org-display-custom-times
12172 (if org-display-custom-times
12173 (message "Time stamps are overlayed with custom format")
12176 (defun org-display-custom-time (beg end)
12182 (tf (funcall (if with-hm 'cdr 'car) org-time-stamp-custom-formats))
12199 "Translate all timestamps in STRING to custom format.
12200 But do this only if the variable `org-display-custom-times' is set."
12201 (when org-display-custom-times
12214 org-time-stamp-custom-formats)
12443 org-display-custom-times
13236 `org-agenda-custom-commands'. In particular, specific tags and TODO keyword
13247 (custom org-agenda-custom-commands)
13263 -------------------------------- C Configure custom agenda commands
13275 (while (setq entry (pop custom))
13330 ((setq entry (assoc (char-to-string c) org-agenda-custom-commands))
13349 (regexp-quote match) "\\>"))))
13355 (t (error "Invalid custom agenda command type %s" type))))
13357 ((equal c ?C) (customize-variable 'org-agenda-custom-commands))
13374 (redo (list 'org-run-agenda-series (list 'quote series)))
13409 CMD-KEY is a string that is also a key in `org-agenda-custom-commands'.
13789 (list 'org-timeline (list 'quote include-all))))
13931 (list 'org-agenda-list (list 'quote include-all) start-day ndays))
14109 (list 'org-tags-view (list 'quote todo-only)
14512 (regexp (regexp-quote
14583 (regexp-quote
14857 (string-match (concat (regexp-quote s0) " *") txt)
16192 (concat (regexp-quote prefixnodir) "_[0-9]+\\.png$"))))
16299 (:customtime . org-display-custom-times)
16365 (if (string-match (concat (regexp-quote (car o))
16768 (re-quote (concat "^\\*+[ \t]+" org-quote-string "\\>"))
16810 (while (re-search-forward re-quote nil t)
16966 (custom-times org-display-custom-times)
16993 (quote-re0 (concat "^[ \t]*" org-quote-string "\\>"))
16994 ; (quote-re (concat "^\\(\\*+\\)\\([ \t]*" org-quote-string "\\>\\)"))
17062 (if (string-match quote-re0 txt)
17089 (when custom-times
17351 "\\( +\\<" org-quote-string "\\>\\)"))
17356 (insert " " org-quote-string))))))))
17431 (quote-re0 (concat "^[ \t]*" org-quote-string "\\>"))
17432 (quote-re (concat "^\\(\\*+\\)\\([ \t]*" org-quote-string "\\>\\)"))
17544 (if (string-match quote-re0 txt)
17596 ;; end of quote section?
17600 ;; inside a quote section?
17753 (if (string-match quote-re0 txt)
17768 (when (string-match quote-re line)
17907 (re (concat "^[ \t]*" (regexp-quote ll)))
19234 :style radio :selected org-display-custom-times]
19801 (mapconcat 'regexp-quote kwds "\\|")