Lines Matching +defs:text +defs:properties +defs:at
5 ;; Author: Carsten Dominik <dominik at science dot uva dot nl>
14 ;; the Free Software Foundation; either version 2, or (at your option)
31 ;; project planning with a fast and effective plain-text system.
34 ;; information about projects as plain text. Org-mode is implemented on
41 ;; Plain text URL-like links connect to websites, emails, Usenet
50 ;; See the corresponding sections in the manual at
58 ;; Org-mode, you can read the same text online as HTML. There is also an
62 ;; A list of recent changes can be found at
94 (defconst org-format-transports-properties-p
96 (add-text-properties 0 1 '(test t) x)
97 (get-text-property 0 'test (format "%s" x)))
98 "Does format transport text properties?")
159 S-<cursor movement> is also used for example by `CUA-mode' to select text.
170 If you do not like the alternative keys, take a look at the variable
173 This option is only relevant at load-time of Org-mode, and must be set
251 Quoting applies only to the text in the entry following the headline, and does
371 (defcustom org-cycle-global-at-bob t
372 "Cycle globally if cursor is at beginning of buffer and not at a headline.
375 must not be a headline - it may be empty ot some other text. When used in
377 cursor stays at the beginning of the buffer.
378 When this option is nil, don't do anything special at the beginning
387 whitestart Only at the beginning of lines, before the first non-white char.
433 When this is set and the *entire* text in an entry is indented, the
436 body starts at column 0, indentation is not changed at all."
583 at the end of the file, as top-level entries.
641 very good at guessing when a re-align will be necessary, but you can always
739 In a column all non-white fields are considered. If at least this
861 The car of each element is a string, to be replaced at the start of a link.
908 plain Plain links in normal text, no whitespace, like http://google.com.
917 (const :tag "plain text links" plain)
963 `org-open-at-point'.
1233 When filing remember notes, the cursor will start at that position.
1264 If %i is indented, the entire inserted text will be indented
1302 "Non-nil means, store new notes at the beginning of a file or entry.
1447 (defcustom org-insert-labeled-timestamps-at-point nil
1448 "Non-nil means, SCHEDULED and DEADLINE timestamps are inserted at point.
1642 only needed when the text to be killed contains more than N non-white lines."
1828 (number :tag "at most")))
1942 The TODO entries will be listed at the top of the agenda, before
1955 8:00 and 20:00). The items scheduled for a day at specific times are
1974 require-timed show grid only if at least one item has a time specification
2139 that the time should only be removed what it is located at the beginning of
2145 (const :tag "When at beginning of entry" beg)))
2171 This is a property list with the following properties:
2223 "Terms used in export text, translated to different languages.
2302 (const :tag "not at all" nil)
2332 "Non-nil means, interpret *word*, /word/, and _word_ as emphasized text.
2333 If the export target supports emphasizing text, the word will be
2391 This can be used to have pre-formatted text, fragments of code etc. For
2489 "<style type=\"text/css\">
2494 .title { text-align: center; }
2520 <style type=\"text/css\">
2523 .title { text-align: center; }
2530 <link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\">
2533 you can \"misuse\" it to add arbitrary text to the header."
2573 When nil, these tags will be exported as plain text and therefore
2590 into the exported HTML text. Otherwise, the buffer will just be saved
2663 (defcustom org-fontify-emphasized-text t
2664 "Non-nil means fontify *bold*, /italic/ and _underlined_ text.
2688 ;; make sure special characters appear at the right position in the class
2749 "Special syntax for emphasized text.
3043 (defvar org-looking-at-done-regexp nil
3045 (make-variable-buffer-local 'org-looking-at-done-regexp)
3086 "Properties to remove when a string without properties is wanted.")
3088 (defsubst org-match-string-no-properties (num &optional string)
3091 (remove-text-properties 0 (length s) org-rm-props s)
3093 (match-string-no-properties num string)))
3095 (defsubst org-no-properties (s)
3096 (remove-text-properties 0 (length s) org-rm-props s)
3162 (setq key (match-string 1) value (org-match-string-no-properties 2))
3198 (remove-text-properties 0 (length arch)
3249 org-looking-at-done-regexp (concat "^" org-done-string "\\>")
3372 (defun org-overlay-display (ovl text &optional face evap)
3375 (let ((gl (make-glyph text)))
3379 (overlay-put ovl 'display text)
3382 (defun org-overlay-before-string (ovl text &optional face evap)
3385 (let ((gl (make-glyph text)))
3388 (if face (org-add-props text nil 'face face))
3389 (overlay-put ovl 'before-string text)
3395 (defun org-overlays-at (pos)
3396 (if (featurep 'xemacs) (extents-at pos) (overlays-at pos)))
3406 "Find all overlays specifying PROP at POS or point.
3408 (let ((overlays (org-overlays-at (or pos (point))))
3488 contains information about projects as plain text. Org-mode is
3493 Plain text URL-like links connect to websites, emails (VM), Usenet
3601 "Add text properties to entire string, from beginning to end.
3602 PLIST may be a list of properties, PROPS are individual properties and values
3604 (add-text-properties
3614 (if (featurep 'xemacs) [button2] [mouse-2]) 'org-open-at-mouse)
3616 (if (featurep 'xemacs) [button3] [mouse-3]) 'org-find-file-at-mouse)
3620 (define-key org-mouse-map [(tab)] 'org-open-at-point)
3621 (define-key org-mouse-map "\C-i" 'org-open-at-point))
3623 (define-key org-mouse-map [(return)] 'org-open-at-point)
3624 (define-key org-mouse-map "\C-m" 'org-open-at-point))
3717 (font-lock-prepend-text-property (match-beginning 2) (match-end 2)
3721 (add-text-properties (match-beginning 2) (match-end 2)
3730 (add-text-properties (match-beginning 0) (match-end 0)
3741 (add-text-properties (match-beginning 0) (match-end 0)
3750 In emacs 21, invisible text is not avoided by the command loop, so the
3751 intangible property is needed to make sure point skips this text.
3752 In Emacs 22, this is not necessary. The intangible text property has
3755 We use a macro so that the test can happen at compilation time."
3764 (org-match-string-no-properties 1)))
3777 (remove-text-properties (match-beginning 0) (match-end 0)
3781 (add-text-properties (match-beginning 0) (match-beginning 3) ip)
3782 (add-text-properties (match-beginning 3) (match-end 3) vp)
3783 (add-text-properties (match-end 3) (match-end 0) ip))
3784 (add-text-properties (match-beginning 0) (match-beginning 1) ip)
3785 (add-text-properties (match-beginning 1) (match-end 1) vp)
3786 (add-text-properties (match-end 1) (match-end 0) ip))
3793 (add-text-properties (match-beginning 0) (match-end 0)
3804 "Regular expression matching radio targets in plain text.")
3816 (add-text-properties (match-beginning 0) (match-end 0)
3821 'org-linked-text t))
3834 (setq s (text-property-any (point) (or limit (point-max))
3838 (add-text-properties s e (org-maybe-intangible '(invisible org-cwidth)))
3856 (add-to-list 'rtn (downcase (org-match-string-no-properties 1))))
3878 (add-text-properties (match-beginning 1) (match-end 1)
3891 (looking-at outline-regexp)
3899 (let* ((em org-fontify-emphasized-text)
3953 (if org-format-transports-properties-p
3985 (remove-text-properties beg end
3986 '(mouse-face t keymap t org-linked-text t
4006 2. CONTENTS: Show all headlines of all levels, but no body text.
4009 - When point is at the beginning of a headline, rotate the subtree started
4015 3. SUBTREE: Show the entire subtree, including body text.
4021 - When point is not at the beginning of a headline, execute
4032 (bob-special (and org-cycle-global-at-bob (bobp)
4033 (not (looking-at outline-regexp))))
4047 ((org-at-table-p 'any)
4091 ((save-excursion (beginning-of-line 1) (looking-at outline-regexp))
4141 (save-excursion (beginning-of-line 1) (looking-at "[ \t]*"))
4143 (= (match-end 0) (point-at-eol)))
4148 (if (and (looking-at "[ \n\r\t]")
4150 (point-at-bol) (point))))
4153 (and (looking-at "[ \t]+") (replace-match ""))))
4201 (looking-at outline-regexp))
4384 is kept so that you can work with several indirect buffers at the same time.
4457 "Insert a new heading or item with same depth at point.
4459 If point is at the beginning of a headline, insert a sibling before the
4461 at that position and make the rest of the headline part of the sibling below
4500 (looking-at org-todo-line-regexp))
4553 (looking-at org-todo-line-regexp)
4627 would end up with no indentation after the change, nothing at all is done."
4712 (or (and (funcall movfunc) (looking-at outline-regexp))
4720 (if (not (or (looking-at (concat "^" outline-regexp))
4785 If optional TREE is given, use this text instead of the kill ring."
4801 ^re_ (buffer-substring (point-at-bol) (point)))
4808 (if (looking-at re)
4816 (if (looking-at re)
4833 (delete-region (point-at-bol) (point)))
4834 ;; Make sure we start at the beginning of an empty line
4836 (if (not (looking-at "[ \t]*$"))
4844 (if (looking-at "[ \t\r\n]+")
4849 (message "Pasted at level %d, without shift" new-level)
4856 (message "Pasted at level %d, with shift by %d levels"
4899 (if (org-at-table-p)
4907 Else, the children of the entry at point are sorted.
4947 (looking-at "\\(\\*+\\)")
5027 (defun org-at-item-p ()
5031 (goto-char (point-at-bol))
5032 (looking-at
5047 (org-at-item-p)
5052 "Insert a new item at the current level.
5058 (org-at-item-p)
5063 (eow (save-excursion (beginning-of-line 1) (looking-at "[ \t]*")
5068 ((and (org-at-item-p) (<= (point) eow))
5086 (defun org-at-item-checkbox-p ()
5087 "Is point at a line starting a plain-list item with a checklet?"
5088 (and (org-at-item-p)
5092 (looking-at "\\[[ X]\\]"))))
5104 ((org-at-item-checkbox-p)
5108 (t (error "Not at a checkbox or heading, and no active region")))
5112 (when (org-at-item-checkbox-p)
5152 ((org-at-item-p) (org-end-of-item) (point))
5225 (if (org-at-item-p)
5234 (unless (looking-at "[ \t]*$")
5238 (throw 'exit (org-at-item-p))))))
5258 (unless (looking-at "[ \t]*$")
5268 Error if not at a plain list, or if this is the last item in the list."
5275 (unless (and (org-at-item-p) (= ind ind1))
5281 Error if not at a plain list, or if this is the last item in the list."
5291 (if (looking-at "[ \t]*$")
5301 "Move the plain list item at point down, i.e. swap with following item.
5312 (if (and (org-at-item-p) (= ind ind1))
5326 "Move the plain list item at point up, i.e. swap with previous item.
5340 (if (looking-at "[ \t]*$")
5349 (if (and (org-at-item-p) (= ind ind1))
5362 "Renumber the ordered list at point if setup allows it.
5366 (org-at-item-p)
5371 "What indentation has S due to SPACE and TAB at the beginning of the string?"
5386 (unless (and (org-at-item-p)
5392 (buffer-substring (point-at-bol) (match-beginning 3))))
5400 (if (looking-at "[ \t]*$") (throw 'next t))
5404 (not (org-at-item-p))))
5412 (if (looking-at "[ \t]*$") (throw 'next nil))
5416 (if (not (org-at-item-p)) (throw 'exit nil))
5436 (unless (org-at-item-p)
5453 (delete-region (point-at-bol) (point))
5469 If the cursor is not at a headline when this comand is called, try all level
5544 ;; Heading not found, just insert it at the end
5553 (and (looking-at "[ \t\r\n]*")
5566 (looking-at org-todo-line-regexp)
5574 (if (and (not (eobp)) (looking-at "[ \t]*$")) (kill-line))
5613 (if (and (or (not tag) (not (looking-at rea)))
5633 (if (looking-at (concat ".*:" org-archive-tag ":"))
5661 (point-at-eol) t)
5771 If there is already a table at point, convert between Org-mode tables
5776 ((org-at-table.el-p)
5779 ((org-at-table-p)
5810 (if (string-match "^[ \t]*$" (buffer-substring-no-properties
5811 (point-at-bol) (point)))
5863 spreadsheet and database applications. If no tabs (at least one per line)
5900 (if (looking-at "\n")
5909 "Marker at the beginning of the table last aligned.
5912 "Marker at the end of the table last aligned.
5929 "Align the table at point by aligning all vertical bars."
5953 (remove-text-properties beg end '(org-cwidth t org-dwidth t display t))
5960 ;; Make sure the link properties are right
5962 ;; Make sure the date properties are right
5967 (setq narrow (and org-format-transports-properties-p
6016 (concat "Clipped table field, use C-c ` to edit. Full value is:\n" (org-no-properties (copy-sequence xx))))
6021 (add-text-properties f1 (length xx) (list 'org-cwidth t) xx)
6022 (add-text-properties (- f1 2) f1
6080 (setq winstart (point-at-bol))
6096 (while (setq b (text-property-any 0 (length s)
6101 (while (setq b (text-property-any 0 (length s) 'org-cwidth t s))
6106 (while (setq b (text-property-any (1+ b) (length s) 'org-dwidth t s))
6107 (setq l (- l (get-text-property b 'org-dwidth-n s))))
6136 "Justify the current field, text to left, number to right.
6137 Optional argument NEW may specify text to replace the current field content."
6140 ((org-at-table-hline-p))
6155 (if (looking-at " *\\([^|\n]*?\\) *\\(|\\|$\\)")
6184 (if (org-at-table-hline-p)
6189 (if (looking-at "[ \t]*$")
6191 (if (and (looking-at "-")
6195 (if (looking-at "-")
6199 (if (looking-at " ") (forward-char 1))))
6212 (if (org-at-table-hline-p)
6216 (while (looking-at "|\\(-\\|[ \t]*$\\)")
6218 (if (looking-at "| ?")
6227 (if (or (looking-at "[ \t]*$")
6235 (if (or (not (org-at-table-p))
6236 (org-at-table-hline-p))
6242 (if (looking-at " ") (forward-char 1)))))
6246 If the field at the cursor is empty, copy into it the content of the nearest
6272 (if (and (looking-at
6290 (if (or (not (org-at-table-p))
6292 (org-at-table-hline-p)
6293 (looking-at "[ \t]*$"))
6308 (if (looking-at "|[^|\n]+")
6324 (if (looking-at "|[^|\r\n]*")
6329 (goto-char (min (point-at-eol) (+ 2 pos)))
6335 "Show info about the current field, and highlight any reference at point."
6386 (if (looking-at org-table-dataline-regexp) (setq cnt (1+ cnt)))
6398 (let ((pos (point-at-eol)))
6408 (when (and force (not (looking-at ".*|")))
6412 (if (looking-at " ") (forward-char 1))))))
6414 (defun org-at-table-p (&optional table-type)
6420 (looking-at (if table-type org-table-any-line-regexp
6424 (defun org-at-table.el-p ()
6425 "Return t if and only if we are at a table.el table."
6426 (and (org-at-table-p 'any)
6429 (looking-at org-table1-hline-regexp))))
6434 (if (org-at-table.el-p)
6437 (if (looking-at org-table-dataline-regexp)
6439 (if (looking-at org-table1-hline-regexp)
6442 (if (looking-at org-table-any-border-regexp)
6447 (if (table--at-cell-p (point))
6457 (defun org-at-table-hline-p ()
6462 (looking-at org-table-hline-regexp))
6468 (if (not (org-at-table-p))
6469 (error "Not at a table"))
6479 (if (org-at-table-hline-p)
6492 (if (and (org-at-table-p)
6493 (not (org-at-table-hline-p)))
6500 (org-at-table-hline-p)))
6503 (if (and (org-at-table-p)
6504 (not (org-at-table-hline-p)))
6512 (if (not (org-at-table-p))
6513 (error "Not at a table"))
6524 (if (org-at-table-hline-p)
6527 (and (looking-at "|[^|\n]+|")
6549 (if (not (org-at-table-p))
6550 (error "Not at a table"))
6562 (if (and (not left) (looking-at "[^|\n]*|[^|\n]*$"))
6566 (if (org-at-table-hline-p)
6569 (and (looking-at "|\\([^|\n]+\\)|\\([^|\n]+\\)|")
6595 (looking-at org-table-hline-regexp)))
6601 (unless (org-at-table-p)
6604 (setq hline2p (looking-at org-table-hline-regexp))
6608 (setq txt (buffer-substring (point) (1+ (point-at-eol))))
6609 (delete-region (point) (1+ (point-at-eol)))
6623 (if (not (org-at-table-p))
6624 (error "Not at a table"))
6625 (let* ((line (buffer-substring (point-at-bol) (point-at-eol)))
6633 (re-search-forward "| ?" (point-at-eol) t)
6642 (if (not (org-at-table-p))
6643 (error "Not at a table"))
6645 (buffer-substring (point-at-bol) (point-at-eol))))
6674 (if (not (org-at-table-p))
6675 (error "Not at a table"))
6678 (kill-region (point-at-bol) (min (1+ (point-at-eol)) (point-max)))
6679 (if (not (org-at-table-p)) (beginning-of-line 0))
6686 "Sort table lines according to the column at point.
6723 beg (point-at-bol))
6725 (setq end (point-at-bol 2)))
6731 (setq beg (point-at-bol 2))
6733 (setq beg (point-at-bol 1)))
6736 (setq beg (point-at-bol 0))
6738 (setq end (point-at-bol))))
6789 (if (org-at-table-hline-p) (throw 'nextline (setq l1 (1+ l1))))
6817 (while (org-at-table-hline-p) (beginning-of-line 2))
6818 (if (not (org-at-table-p))
6841 (if (org-at-table.el-p)
6850 (if (org-at-table-p)
6867 ;; replace "+" at beginning and ending of hlines
6881 the text in the column is wrapped to minimum width for the given number of
6884 formats the selected text to two lines. If the region was longer than two
6886 the current number of lines by that amount. The wrapped text is pasted back
6891 If there is no region, the current field is split at the cursor position and
6892 the text fragment to the right of the cursor is prepended to the field one
6919 ;; No region, split the current field at point
6925 (while (org-at-table-hline-p) (beginning-of-line 0))
6932 (when (looking-at "\\([^|]+\\)+|")
6951 (remove-text-properties b e '(org-cwidth t invisible t
6965 (remove-text-properties p (point-max)
6982 text)
6987 (setq text (org-trim (buffer-string)))
6994 (org-table-get-field nil text)
6999 "Remove whitespace at beginning and end of string."
7007 that costs. If there is a word longer than WIDTH, the text is actually
7009 IF WIDTH is nil and LINES is non-nil, the string is forced into at most that
7011 The return value is a list of lines, without newlines at the end."
7041 "Splits STRING into substrings at SEPARATORS.
7042 No empty strings are returned if there are matches at the beginning
7077 (if (looking-at org-table-line-regexp)
7094 If at least one number looks like a time HH:MM or HH:MM:SS, all other
7231 (if (looking-at "\\([ \t]*\n\\)*#\\+TBLFM:\\(.*\n?\\)")
7233 ;; don't overwrite TBLFM, we might use text properties to store stuff
7251 (when (looking-at "\\([ \t]*\n\\)*#\\+TBLFM: *\\(.*\\)")
7271 (when (looking-at "#\\+TBLFM:")
7280 (while (re-search-forward re2 (point-at-eol) t)
7282 (while (re-search-forward re (point-at-eol) t)
7326 (and (looking-at "^[ \t]*|[^|]*\\(|.*\\)")
7338 (while (looking-at "[ \t]*|\\(-\\)?")
7352 (buffer-substring-no-properties beg end))))
7392 (unless (org-at-table-p) (error "Not at a table"))
7416 (unless (looking-at org-table-dataline-regexp)
7417 (error "Not at a table data line")))
7422 (setq epos (point-at-eol))
7426 1 (if (looking-at "^[ \t]*| *\\([#!$*^_ ]\\) *|")
7436 (and (looking-at org-table-dataline-regexp)
7439 (if (not (= epos (point-at-eol))) (org-table-align))
7450 (looking-at org-table-auto-recalculate-regexp))
7474 "Replace the table field value at the cursor by the result of a calculation.
7562 (setq orig (or (get-text-property 1 :orig-formula formula) "?"))
7565 (org-no-properties
7566 (buffer-substring (point-at-bol) (point-at-eol)))
7645 (if (and down (> ndown 0) (looking-at ".*\n[ \t]*|[^-]"))
7689 (while (not (looking-at org-table-dataline-regexp))
7698 (while (not (looking-at org-table-dataline-regexp))
7703 (while (not (looking-at org-table-dataline-regexp))
7799 (unless (org-at-table-p) (error "Not at a table"))
7835 (setq beg (point-at-bol)
7836 end (move-marker (make-marker) (1+ (point-at-eol)))))
7916 (put-text-property 0 (length f) :orig-formula f1 f))
7947 (unless (org-at-table-p) (error "Not at a table"))
7967 (put-text-property 0 (length s) 'face 'font-lock-comment-face s)
7972 (remove-text-properties 0 (length s) '(face nil) s)
8006 (unless (org-at-table-p)
8032 ((looking-at "[ \t]")
8035 ((looking-at "[$@0-9a-zA-Z]+ *= *[^ \t\n']") (goto-char pos))
8038 ((looking-at "[$@0-9a-zA-Z]+ *= *'(")
8068 "Show the location/value of the $ expression at point."
8080 ((org-at-regexp-p org-table-range-regexp2) 'range)
8081 ((org-at-regexp-p "\\$[a-zA-Z][a-zA-Z0-9]*") 'name)
8082 ((org-at-regexp-p "\\$[0-9]+") 'column)
8084 (t (error "No reference at point")))
8086 (when (and match (not (equal (match-beginning 0) (point-at-bol))))
8098 (when (looking-at "\\(\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\\)=")
8163 ((not var) (error "No reference at point"))
8178 (set-window-start (selected-window) (point-at-bol))
8186 (looking-at org-table-dataline-regexp))
8224 (while (and (org-at-table-p)
8225 (org-at-table-hline-p))
8227 (or (org-at-table-p) (goto-char p))
8266 (when (looking-at org-table-dataline-regexp)
8288 "Add overlays to the table at point, to show row/column coordinates."
8295 (while (org-at-table-p)
8296 (setq eol (point-at-eol))
8297 (setq ov (org-make-overlay (point-at-bol) (1+ (point-at-bol))))
8299 (setq hline (looking-at org-table-hline-regexp))
8319 (if (and (org-at-table-p) org-table-overlay-coordinates)
8418 (org-cleanup-narrow-column-properties)
8427 (defun org-cleanup-narrow-column-properties ()
8428 "Remove all properties related to narrow-column invisibility."
8430 (while (setq s (text-property-any s (point-max)
8432 (remove-text-properties s (1+ s) '(display t)))
8434 (while (setq s (text-property-any s (point-max) 'org-cwidth 1))
8435 (remove-text-properties s (1+ s) '(org-cwidth t)))
8437 (while (setq s (text-property-any s (point-max) 'invisible 'org-cwidth))
8438 (remove-text-properties s (1+ s) '(invisible t)))))
8460 '(org-at-table-p)
8548 ["Align" org-ctrl-c-ctrl-c :active (org-at-table-p) :keys "C-c C-c"]
8549 ["Next Field" org-cycle :active (org-at-table-p) :keys "TAB"]
8550 ["Previous Field" org-shifttab :active (org-at-table-p) :keys "S-TAB"]
8551 ["Next Row" org-return :active (org-at-table-p) :keys "RET"]
8553 ["Blank Field" org-table-blank-field :active (org-at-table-p) :keys "C-c SPC"]
8554 ["Edit Field" org-table-edit-field :active (org-at-table-p) :keys "C-c ` "]
8556 org-table-copy-down :active (org-at-table-p) :keys "S-RET"]
8559 ["Move Column Left" org-metaleft :active (org-at-table-p) :keys "M-<left>"]
8560 ["Move Column Right" org-metaright :active (org-at-table-p) :keys "M-<right>"]
8561 ["Delete Column" org-shiftmetaleft :active (org-at-table-p) :keys "M-S-<left>"]
8562 ["Insert Column" org-shiftmetaright :active (org-at-table-p) :keys "M-S-<right>"])
8564 ["Move Row Up" org-metaup :active (org-at-table-p) :keys "M-<up>"]
8565 ["Move Row Down" org-metadown :active (org-at-table-p) :keys "M-<down>"]
8566 ["Delete Row" org-shiftmetaup :active (org-at-table-p) :keys "M-S-<up>"]
8567 ["Insert Row" org-shiftmetadown :active (org-at-table-p) :keys "M-S-<down>"]
8568 ["Sort lines in region" org-table-sort-lines (org-at-table-p) :keys "C-c ^"]
8570 ["Insert Hline" org-table-insert-hline :active (org-at-table-p) :keys "C-c -"])
8572 ["Copy Rectangle" org-copy-special :active (org-at-table-p)]
8573 ["Cut Rectangle" org-cut-special :active (org-at-table-p)]
8574 ["Paste Rectangle" org-paste-special :active (org-at-table-p)]
8575 ["Fill Rectangle" org-table-wrap-region :active (org-at-table-p)])
8582 ["Set Column Formula" org-table-eval-formula :active (org-at-table-p) :keys "C-c ="]
8583 ["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="]
8584 ["Edit Formulas" org-table-edit-formulas :active (org-at-table-p) :keys "C-c '"]
8585 ["Recalculate line" org-table-recalculate :active (org-at-table-p) :keys "C-c *"]
8586 ["Recalculate all" (org-table-recalculate '(4)) :active (org-at-table-p) :keys "C-u C-c *"]
8587 ["Iterate all" (org-table-recalculate '(16)) :active (org-at-table-p) :keys "C-u C-u C-c *"]
8588 ["Toggle Recalculate Mark" org-table-rotate-recalc-marks :active (org-at-table-p) :keys "C-c #"]
8590 :active (or (org-at-table-p) (org-region-active-p)) :keys "C-c +"]
8591 ["Which Column?" org-table-current-column :active (org-at-table-p) :keys "C-c ?"]
8593 org-table-toggle-formula-debugger :active (org-at-table-p)
8597 org-table-toggle-coordinate-overlays :active (org-at-table-p)
8611 (setq action (cond ((looking-at "#\\+ORGTBL:.*\n[ \t]*|") (match-end 0))
8612 ((looking-at "[ \t]*|") pos)
8613 ((looking-at "#\\+TBLFM:") 'recalc))))
8627 (if (org-at-table-p)
8647 If the cursor is in a table looking at whitespace, the whitespace is
8650 (if (and (org-at-table-p)
8663 (looking-at "[^|\n]* +|"))
8689 (unless (org-at-table-p) (error "Not at a table"))
8695 (unless (looking-at "#\\+ORGTBL: *SEND +\\([a-zA-Z0-9_]+\\) +\\([^ \t\r\n]+\\)\\( +.*\\)?")
8705 (txt (buffer-substring-no-properties
8744 (message "Table converted and installed at receiver location"))))
8759 "Comment or uncomment the orgtbl at point."
8764 (cond ((looking-at re1) t)
8765 ((looking-at re2) nil)
8766 (t (error "Not at an org table")))))
8771 (while (looking-at re) (beginning-of-line 0))
8774 (while (looking-at re) (beginning-of-line 2))
8944 ;; We need to make text lines for it, so put the fields back together.
9214 (t (buffer-substring (point-at-bol) (point-at-eol)))))
9231 (buffer-substring (point-at-bol) (point-at-eol))))
9232 ;; Only use search option if there is some text.
9257 "Store link properties, extract names and addresses."
9345 (defun org-link-escape (text)
9347 (when text
9350 (while (string-match re text)
9351 (setq text
9353 (cdr (assoc (match-string 0 text) org-link-escape-chars))
9354 t t text)))
9355 text)))
9357 (defun org-link-unescape (text)
9359 (when text
9362 (while (string-match re text)
9363 (setq text
9365 (car (rassoc (match-string 0 text) org-link-escape-chars))
9366 t t text)))
9367 text)))
9412 press RET at the prompt), the link defaults to the most recently
9419 If there is already a link at point, this command will allow you to edit link
9440 ;; We do have a link at point, and we are going to edit it.
9442 (setq desc (if (match-end 3) (org-match-string-no-properties 3)))
9445 (org-match-string-no-properties 1)))))
9542 If the link is in hidden text, expose it."
9562 If the link is in hidden text, expose it."
9580 (defun org-find-file-at-mouse (ev)
9581 "Open file link or URL at mouse."
9584 (org-open-at-point 'in-emacs))
9586 (defun org-open-at-mouse (ev)
9587 "Open file link or URL at mouse."
9590 (org-open-at-point))
9597 "Marker pointing to the location where `org-open-at-point; was called.")
9599 (defun org-open-at-point (&optional in-emacs)
9600 "Open link at or after point.
9601 If there is no link at point, this function will search forward up to
9609 (if (org-at-timestamp-p t)
9616 (setq link (org-link-unescape (org-match-string-no-properties 1)))
9625 (when (get-text-property (point) 'org-linked-text)
9627 pos (if (get-text-property (1+ (point)) 'org-linked-text)
9630 (previous-single-property-change pos 'org-linked-text)
9631 (next-single-property-change pos 'org-linked-text)))
9774 (browse-url-at-point)))))
9782 These functions are called in turn with point at the location to
9791 file link, given after a double colon, and `org-open-at-point'
9798 `description' to provide a suggestion for the descriptive text to
9820 the window configuration before `org-open-at-point' was called using:
9863 (remove-text-properties
10013 ((org-at-date-range-p t)
10020 ((org-at-timestamp-p t)
10309 "Open the file at PATH.
10417 RET at beg-of-buf -> Append to file as level 2 headline
10470 (point-at-bol) (match-beginning 0))))
10539 file the text at a specific location.
10546 RET buffer-start as level 2 heading at end of file
10547 RET on headline as sublevel of the heading at cursor
10548 RET no heading at cursor position, level taken from context.
10558 Before being stored away, the function ensures that the text has a
10562 If the variable `org-adapt-indentation' is non-nil, the entire text is
10568 (while (looking-at "^[ \t]*\n\\|^##.*\n")
10580 ;; Modify text so that it becomes a nice subtree which can be inserted
10625 ;; Put it at the end, one level below level 1
10632 ;; Put it at the start, as level 1
10640 ;; Put it below this entry, at the beg/end of the subtree
10683 If not found, stay at current position and return nil."
10715 This empties the block, puts the cursor at the insert position and returns
10717 (unless (looking-at org-dblock-start-re)
10718 (error "Not at a dynamic block"))
10748 Update the dynamic block at point. With prefix ARG, update all dynamic
10753 (or (looking-at org-dblock-start-re)
10758 "Update the dynamic block at point
10769 "Find the beginning of the dynamic block at point.
10770 Error if there is no scuh block at point."
10792 "Perform completion on word at point.
10815 (opt (equal (buffer-substring (max (point-at-bol) (- beg 2))
10819 (buffer-substring (point-at-bol) (point))))
10839 (buffer-substring (point-at-bol) beg))
10855 (pattern (buffer-substring-no-properties beg end))
10896 (if (looking-at (concat outline-regexp
10899 (if (looking-at outline-regexp)
10911 The state of an item is given by a keyword at the start of the heading,
10920 DONE are present, add TODO at the beginning of the heading.
10934 (if (looking-at outline-regexp) (goto-char (match-end 0)))
10935 (or (looking-at (concat " +" org-todo-regexp " *"))
10936 (looking-at " *"))
11005 (looking-at org-todo-line-regexp))
11101 (when (and org-insert-labeled-timestamps-at-point
11111 (looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"))
11115 (if (and (not (looking-at outline-regexp))
11116 (looking-at (concat "[^\r\n]*?" org-keyword-time-regexp
11136 (if (looking-at "--+<[^>]+>") (replace-match ""))
11137 (if (looking-at " +") (replace-match ""))))
11152 (if (looking-at "[ \t]+\r?\n")
11171 (looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"
11181 "Pop up a window for taking a note, and add this note later at point."
11231 (setq ind (concat (buffer-substring (point-at-bol) (point)) " "))
11289 ;; Show heading or entry text
11295 ;; Show next sibling, or heading below text
11368 (if (looking-at org-priority-regexp)
11393 (looking-at org-todo-line-regexp)
11627 (nreverse (org-get-tags-at))))
11645 ;; Insert new tags at the correct column
11649 (point-at-eol) t)
11699 (if (re-search-forward "[ \t]+Next change exits" (point-at-eol) t)
11711 (put-text-property 0 (length s) 'face '(secondary-selection org-tag) s)
11738 (if (looking-at ".*[ \t]\\(:[A-Za-z_@0-9:]+:\\)[ \t]*\\(\r\\|$\\)")
11742 (setq ov-start (1- (point-at-eol))
11870 (delete-region (point) (point-at-eol))
11875 (add-text-properties (match-beginning 1) (match-end 1)
11893 (if (looking-at ".*[ \t]\\(:[A-Za-z_@0-9:]+:\\)[ \t]*\\(\r\\|$\\)")
11894 (org-match-string-no-properties 1)
11904 (org-split-string (org-match-string-no-properties 1) ":"))))
11921 at the cursor, it will be modified."
11925 ((and (org-at-timestamp-p)
11932 ((org-at-timestamp-p)
11935 (when (org-at-timestamp-p) ; just to get the match data
11966 which will at least partially be understood by `parse-time-string'.
12162 (if (and (get-text-property p 'display)
12163 (eq (get-text-property p 'face) 'org-date))
12164 (remove-text-properties
12169 (remove-text-properties (point-min) (point-max) '(end-glyph t)))
12190 (add-text-properties (1+ beg) (+ 2 beg)
12194 (put-text-property beg end 'invisible t)
12195 (put-text-property beg end 'end-glyph (make-glyph str)))
12196 (put-text-property beg end 'display str))))
12286 (unless (org-at-date-range-p)
12287 (goto-char (point-at-bol))
12288 (re-search-forward org-tr-regexp (point-at-eol) t))
12289 (if (not (org-at-date-range-p))
12290 (error "Not at a time-stamp range, and none found in current line")))
12322 (when (org-at-table-p)
12325 (and (looking-at " *|") (goto-char (match-end 0))))
12326 (if (looking-at
12370 "Increase the date item at the cursor by one.
12378 "Decrease the date item at the cursor by one.
12389 (if (and (not (org-at-timestamp-p t))
12398 (if (and (not (org-at-timestamp-p t))
12408 (defun org-at-timestamp-p (&optional inactive-ok)
12409 "Determine if the cursor is in or at a timestamp."
12413 (ans (or (looking-at tsr)
12417 (and (looking-at tsr)
12432 "Change the date in the time stamp at point.
12440 (if (not (org-at-timestamp-p t))
12441 (error "Not at a timestamp"))
12444 (get-text-property (point) 'display)
12445 (not (get-text-property (1- (point)) 'display)))
12500 "Go to the Emacs calendar at the current date.
12508 (if (or (org-at-timestamp-p)
12511 (looking-at (concat ".*" tsr))))
12522 If there is already a time stamp at the cursor position, update it."
12540 (when (and (looking-at (concat "[ \t]*" org-keyword-time-regexp))
12550 (message "Clock started at %s" ts))))
12564 (if (and (looking-at (concat "[ \t]*" org-keyword-time-regexp))
12580 (message "Clock stopped at %s after HH:MM = %d:%02d" te h m)))))
12590 (delete-region (1- (point-at-bol)) (point-at-eol)))
12599 Puts the resulting times in minutes as a text property on each headline."
12611 (remove-text-properties (point-min) (point-max) '(:org-clock-minutes t))
12636 (put-text-property (point) (point-at-eol) :org-clock-minutes time))))
12653 (when (setq time (get-text-property p :org-clock-minutes))
12678 (setq ov (org-make-overlay (1- (point)) (point-at-eol))
12740 is inserted at point, surrounded by the special lines.
12758 (when (looking-at org-clock-string)
12763 (if (not (looking-at re))
12843 (insert-before-markers "Clock summary at ["
12861 (when (setq time (get-text-property p :org-clock-minutes))
12864 (when (and (looking-at "\\(\\*+\\)[ \t]+\\(.*?\\)\\([ \t]+:[0-9a-zA-Z_@:]+:\\)?[ \t]*$")
12908 total (or (get-text-property (1+ (point)) :org-clock-minutes) 0)
12911 (looking-at "\\(\\*+\\) +\\(.*\\)")
12913 title (org-match-string-no-properties 2))
12917 (setq leafp (and (looking-at "^\\*+ ")
12959 ;; Make sure properties are removed when copying text
12963 (set-text-properties 0 (length x) nil x) x)
13144 "Execute BODY if ther is no `org-protected' text property at point."
13146 `(unless (get-text-property (point) 'org-protected)
13272 (add-text-properties (match-beginning 2) (match-end 2)
13308 (delete-region (point-at-bol) (point))
13619 (add-text-properties (match-beginning 0) (match-end 0)
13639 (remove-text-properties (point-min) (point-max) pall)
13644 (add-text-properties (point-at-bol) (org-end-of-subtree t) pa))))
13648 (add-text-properties
13653 "Function to be called at each match during agenda construction.
13665 (let ((p (point-at-bol)) to)
13667 (get-text-property p :org-archived)
13670 (and (get-text-property p :org-comment)
13804 (put-text-property s (1- (point)) 'face 'org-level-3))
13827 (put-text-property s (1- (point)) 'face 'org-level-3)
13828 (put-text-property s (1- (point)) 'org-date-line t)
13830 (put-text-property s (1- (point)) 'org-today t))
13832 (put-text-property s (1- (point)) 'day d)))))
13834 (goto-char (or (text-property-any (point-min) (point-max) 'org-today t)
13836 (add-text-properties (point-min) (point-max) '(org-agenda-type timeline))
13955 (add-text-properties (point-min) (1- (point))
13960 (add-text-properties s (1- (point)) (list 'face 'org-level-3))
13997 (put-text-property s (1- (point)) 'face 'org-level-3)
13998 (put-text-property s (1- (point)) 'org-date-line t)
13999 (if todayp (put-text-property s (1- (point)) 'org-today t))
14005 (put-text-property s (1- (point)) 'day d))))
14017 (add-text-properties (point-min) (point-max) '(org-agenda-type agenda))
14068 (add-text-properties (point-min) (1- (point))
14072 (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14082 (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14087 (add-text-properties (point-min) (point-max) '(org-agenda-type todo))
14140 (add-text-properties (point-min) (1- (point))
14144 (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14148 (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14153 (add-text-properties (point-min) (point-max) '(org-agenda-type tags))
14237 ;; Add prefix to each line and extend the text properties
14249 ;; Extend the text properties to the beginning of the line
14250 (org-add-props x (text-properties-at (1- (length x)) x)))
14259 (if (looking-at ".*?:[ \t]*")
14274 ;; Make sure entries from the diary have the right text properties.
14288 "Add text properties to string, allowing org-mode to act on it."
14295 'org-marker (org-agenda-new-marker (point-at-bol))))
14321 in the diary for *today*, not at any other date. If
14331 diary for *today*, not at any other date.
14425 (looking-at org-nl-done-regexp))))
14427 (defun org-at-date-range-p (&optional inactive-ok)
14435 (and (looking-at (if inactive-ok org-tr-regexp-both org-tr-regexp))
14440 (and (looking-at (if inactive-ok org-tr-regexp-both org-tr-regexp))
14482 tags (org-get-tags-at (point))
14524 (and (save-match-data (org-at-date-range-p)) (throw :skip nil))
14532 timestr (buffer-substring (match-beginning 0) (point-at-eol))
14547 tags (org-get-tags-at))
14548 (looking-at "\\*+[ \t]*\\([^\r\n]+\\)")
14599 timestr (buffer-substring (match-beginning 0) (point-at-eol))
14610 tags (org-get-tags-at))
14611 (looking-at "\\*+[ \t]*\\([^\r\n]+\\)")
14657 (setq tags (org-get-tags-at pos1))
14658 (setq head (buffer-substring-no-properties
14662 (if (string-match org-looking-at-done-regexp head)
14713 (setq tags (org-get-tags-at))
14714 (setq head (buffer-substring-no-properties
14717 (if (string-match org-looking-at-done-regexp head)
14764 (setq tags (org-get-tags-at))
14765 (looking-at "\\*+[ \t]*\\([^\r\n]+\\)")
14821 In particular, it adds the prefix and corresponding text properties. EXTRA
14832 ;; Diary entries sometimes have extra whitespace at the beginning
14889 ;; And finally add the text properties
14907 (lambda (x) (get-text-property 1 'time-of-day x))
14924 (put-text-property
15015 (setq re (get-text-property (point) 'org-not-done-regexp))
15016 (goto-char (+ (point) (or (get-text-property (point) 'prefix-length) 0)))
15017 (and (looking-at (concat "[ \t]*\\.*" re))
15018 (add-text-properties (match-beginning 0) (match-end 0)
15020 (setq re (concat (get-text-property 0 'org-not-done-regexp x))
15021 pl (get-text-property 0 'prefix-length x))
15023 (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0)
15029 (let ((pa (or (get-text-property 1 'priority a) 0))
15030 (pb (or (get-text-property 1 'priority b) 0)))
15037 (let ((ca (or (get-text-property 1 'category a) ""))
15038 (cb (or (get-text-property 1 'category b) "")))
15045 (let ((ta (car (last (get-text-property 1 'tags a))))
15046 (tb (car (last (get-text-property 1 'tags b)))))
15056 (ta (or (get-text-property 1 'time-of-day a) def))
15057 (tb (or (get-text-property 1 'time-of-day b) def)))
15138 (let ((tdpos (text-property-any (point-min) (point-max) 'org-today t)))
15150 (or (text-property-any (point-min) (point-max) 'org-today t)
15151 (text-property-any (point-min) (point-max) 'org-agenda-type 'agenda)
15187 (or (get-text-property (point) 'day)
15204 (or (get-text-property (point) 'day)
15218 (if (looking-at "^\\S-") (forward-char 1))
15306 (setq org-agenda-type (get-text-property (point) 'org-agenda-type))
15308 (get-text-property (point) 'org-marker))
15316 (let* ((pri (get-text-property (point-at-bol) 'priority)))
15322 (let* ((tags (get-text-property (point-at-bol) 'tags)))
15325 (org-no-properties (mapconcat 'identity tags ":")))
15329 "Go to the Org-mode file which contains the item at point."
15331 (let* ((marker (or (get-text-property (point) 'org-marker)
15343 (and highlight (org-highlight (point-at-bol) (point-at-eol)))))
15349 (let* ((marker (or (get-text-property (point) 'org-marker)
15361 (setq dbeg (point-at-bol)
15362 dend (min (point-max) (1+ (point-at-eol)))))
15381 (let* ((marker (or (get-text-property (point) 'org-marker)
15397 The subtree is the one in buffer BUF, starting at BEG and ending at END.
15398 If this information is not given, the function uses the tree at point."
15411 (when (and (setq m (get-text-property (point) 'org-marker))
15417 (delete-region (point-at-bol) (1+ (point-at-eol)))))
15423 (let ((eol (point-at-eol)))
15428 (call-interactively 'org-open-at-point)
15432 "Go to the Org-mode file which contains the item at point."
15434 (let* ((marker (or (get-text-property (point) 'org-marker)
15449 "Go to the Org-mode file which contains the item at the mouse click."
15455 "Display the Org-mode file which contains the item at point."
15462 "Display the Org-mode file which contains the item at point and recenter."
15470 "Display the Org-mode file which contains the item at the mouse click."
15477 (if (get-text-property (point) 'org-agenda-diary-link)
15492 (let* ((marker (or (get-text-property (point) 'org-marker)
15506 "Cycle TODO state of line at point, also in Org-mode file.
15507 This changes the line at point, all other lines in the agenda referring to
15512 (marker (or (get-text-property (point) 'org-marker)
15516 (hdmarker (get-text-property (point) 'org-hd-marker))
15542 `equal' against all `org-hd-marker' text properties in the file.
15552 (when (and (setq m (get-text-property (point) 'org-hd-marker))
15554 (setq props (text-properties-at (point))
15555 dotime (get-text-property (point) 'dotime)
15556 cat (get-text-property (point) 'org-category)
15557 tags (get-text-property (point) 'tags)
15559 pl (get-text-property (point) 'prefix-length)
15560 undone-face (get-text-property (point) 'undone-face)
15561 done-face (get-text-property (point) 'done-face))
15566 (and (looking-at ".*\n?") (replace-match "")))
15567 ((looking-at ".*")
15570 (add-text-properties (point-at-bol) (point-at-eol) props)
15572 (add-text-properties
15573 (point-at-bol) (point-at-eol)
15589 (goto-char (if line (point-at-bol) (point-min)))
15591 (if line (point-at-eol) nil) t)
15597 (text-properties-at (point))))))))
15600 "Increase the priority of line at point, also in Org-mode file."
15605 "Decrease the priority of line at point, also in Org-mode file."
15610 "Set the priority of line at point, also in Org-mode file.
15611 This changes the line at point, all other lines in the agenda referring to
15615 (let* ((marker (or (get-text-property (point) 'org-marker)
15619 (hdmarker (get-text-property (point) 'org-hd-marker))
15636 (defun org-get-tags-at (&optional pos)
15637 "Get a list of all headline tags applicable at POS.
15651 (if (looking-at "[^\r\n]+?:\\([a-zA-Z_@0-9:]+\\):[ \t]*\\([\n\r]\\|\\'\\)")
15653 (org-match-string-no-properties 1) ":")
15666 (let* ((hdmarker (or (get-text-property (point) 'org-hd-marker)
15691 (let* ((hdmarker (or (get-text-property (point) 'org-hd-marker)
15716 (let* ((marker (or (get-text-property (point) 'org-marker)
15724 (if (not (org-at-timestamp-p))
15736 "Show new date stamp via text properties."
15737 ;; We use text properties to make this undoable
15743 (when (equal marker (get-text-property (point) 'org-marker))
15750 (set-extent-properties
15752 (insert-extent ex (1- (point)) (point-at-eol)))
15753 (add-text-properties
15754 (1- (point)) (point-at-eol)
15767 (let* ((marker (or (get-text-property (point) 'org-marker)
15775 (if (not (org-at-timestamp-p))
15781 "Schedule the item at point."
15785 (let* ((marker (or (get-text-property (point) 'org-marker)
15789 (org-insert-labeled-timestamps-at-point nil)
15799 "Schedule the item at point."
15803 (let* ((marker (or (get-text-property (point) 'org-marker)
15807 (org-insert-labeled-timestamps-at-point nil)
15820 (if (looking-at "\\*+[ \t]+\\([^\r\n]*\\)") (match-string 1) "")))
15826 (let* ((marker (or (get-text-property (point) 'org-marker)
15874 (unless (and (get-text-property point 'day)
15876 (get-text-property mark 'day)))
15882 (or (get-text-property mark 'day)
15883 (get-text-property point 'day))))))
15889 (get-text-property point 'day))))
15899 (unless (get-text-property (point) 'day)
15904 (get-text-property point 'day)))
15914 (get-text-property point 'day))))
15941 "Open the Emacs calendar with the date at the cursor."
15944 (let* ((day (or (get-text-property (point) 'day)
15954 "Compute the Org-mode agenda for the calendar date displayed at the cursor.
15964 (let ((day (get-text-property (point) 'day))
15975 " (Julian date number at noon UTC)\n"
16127 "Preview the LaTeX fragment at point, or all locally or globally.
16129 it over the source code. If there is no fragment at point, display
16130 all fragments in the current text, from one headline to the next. With
16139 (let (beg end at msg)
16151 (if (setq at (org-inside-LaTeX-fragment-p))
16152 (goto-char (max (point-min) (- (cdr at) 2)))
16155 msg (if at "Creating image...%s"
16163 default-directory 'overlays msg at)
16176 (defun org-format-latex (prefix &optional dir overlays msg at)
16200 (when (or (not at) (equal (cdr at) (match-beginning n)))
16338 p key val text options)
16340 (setq key (org-match-string-no-properties 1)
16341 val (org-match-string-no-properties 2))
16348 (setq text (if text (concat text "\n" val) val)))
16350 (setq p (plist-put p :text text))
16787 (if org-export-with-archived-trees (1+ (point-at-eol)) (point))
16793 (add-text-properties (match-beginning 0) (match-end 0)
16799 (add-text-properties
16800 (point-at-bol) (min (1+ (point-at-eol)) (point-max))
16806 (add-text-properties (match-beginning 1) (1+ (match-end 1))
16813 (add-text-properties (point) (org-end-of-subtree t)
16891 (defun org-solidify-link-text (s &optional alist)
16892 "Take link text and make a safe target out of it."
16995 (text nil)
17031 (if text (insert (concat (org-html-expand-for-ascii text) "\n\n")))
17184 As a special case, if the you type SPC at the prompt, the temporary
17218 (if (looking-at "#[^\r\n]*")
17255 #+TEXT: Some descriptive text to be emitted. Several lines OK.
17316 If there is no active region, the QUOTE keyword at the current headline is
17317 inserted or removed. When present, it causes the text between this headline
17318 and the next to be exported as fixed-width text, and unmodified.
17335 (setq off (looking-at re))
17344 ((and off (looking-at re))
17350 (if (looking-at (concat outline-regexp
17353 (if (looking-at outline-regexp)
17441 (text (plist-get opt-plist :text))
17495 <meta http-equiv=\"Content-Type\" content=\"text/html;charset=%s\"/>
17511 (if text (insert "<p>\n" (org-html-expand text) "</p>")))
17570 (push (cons (org-solidify-link-text tg)
17620 (when (get-text-property 0 'org-protected line)
17635 (org-solidify-link-text (match-string 1 line))
17646 (org-solidify-link-text (match-string 1 line))
17679 (org-solidify-link-text path target-alist)
17719 (org-solidify-link-text
17914 ;; Need to use the code generator in table.el, with the original text.
17919 ;; Get rid of hlines at beginning and end
18367 (if (looking-at re2)
18491 (let* ((hd (match-string-no-properties 1))
18493 (text (concat
18494 (match-string-no-properties 2)
18501 (if (looking-at "^[ \t]\\(.*\\)")
18502 (setq str (concat str (match-string-no-properties 1)))
18528 (if (equal ?+ (elt text 0))
18529 (org-export-as-xoxo-insert-into out "<li class='" (substring text 1) "'>")
18530 (org-export-as-xoxo-insert-into out "<li>" text))))
18640 (define-key org-mode-map "\C-c\C-o" 'org-open-at-point)
18693 (defsubst org-table-p () (org-at-table-p))
18697 If the cursor is in a table looking at whitespace, the whitespace is
18706 (if (or (equal (char-after) ?\ ) (looking-at "[^|\n]* |"))
18713 (looking-at "[^|\n]* |"))
18723 "Like `delete-backward-char', insert whitespace at field end in tables.
18731 (string-match "|" (buffer-substring (point-at-bol) (point)))
18732 (looking-at ".*?|"))
18734 (noalign (looking-at "[^|\n\r]* |"))
18740 ;; noalign: if there were two spaces at the end, this field
18746 "Like `delete-char', but insert whitespace at field end in tables.
18756 (if (looking-at ".*?|")
18758 (noalign (looking-at "[^|\n\r]* |"))
18764 ;; noalign: if there were two spaces at the end, this field
18816 ((org-at-table-p) (call-interactively 'org-table-previous-field))
18828 ((org-at-table-p) (call-interactively 'org-table-delete-column))
18830 ((org-at-item-p) (call-interactively 'org-outdent-item))
18839 ((org-at-table-p) (call-interactively 'org-table-insert-column))
18841 ((org-at-item-p) (call-interactively 'org-indent-item))
18851 ((org-at-table-p) (call-interactively 'org-table-kill-row))
18853 ((org-at-item-p) (call-interactively 'org-move-item-up))
18862 ((org-at-table-p) (call-interactively 'org-table-insert-row))
18864 ((org-at-item-p) (call-interactively 'org-move-item-down))
18874 ((org-at-table-p) (org-call-with-arg 'org-table-move-column 'left))
18877 ((org-at-item-p) (call-interactively 'org-outdent-item))
18887 ((org-at-table-p) (call-interactively 'org-table-move-column))
18890 ((org-at-item-p) (call-interactively 'org-indent-item))
18900 ((org-at-table-p) (org-call-with-arg 'org-table-move-row 'up))
18902 ((org-at-item-p) (call-interactively 'org-move-item-up))
18912 ((org-at-table-p) (call-interactively 'org-table-move-row))
18914 ((org-at-item-p) (call-interactively 'org-move-item-down))
18923 ((org-at-timestamp-p t) (call-interactively 'org-timestamp-up))
18925 ((org-at-item-p) (call-interactively 'org-previous-item))
18934 ((org-at-timestamp-p t) (call-interactively 'org-timestamp-down))
18942 ((org-at-timestamp-p t) (call-interactively 'org-timestamp-up-day))
18950 ((org-at-timestamp-p t) (call-interactively 'org-timestamp-down-day))
18960 (if (org-at-table-p) 'org-table-copy-region 'org-copy-subtree)))
18968 (if (org-at-table-p) 'org-table-cut-region 'org-cut-subtree)))
18975 (if (org-at-table-p)
18980 "Set tags in headline, or update according to changed information at point.
19025 ((org-at-table.el-p)
19030 ((org-at-table-p)
19036 ((org-at-item-checkbox-p)
19038 ((org-at-item-p)
19040 ((save-excursion (beginning-of-line 1) (looking-at "#\\+\\([A-Z]+\\)"))
19047 (if (org-at-table-p)
19051 (t (error "C-c C-c can do nothing useful at this location.")))))
19066 ((org-at-table-p)
19077 ((org-at-table-p)
19086 ["Align" org-ctrl-c-ctrl-c (org-at-table-p)]
19087 ["Next Field" org-cycle (org-at-table-p)]
19088 ["Previous Field" org-shifttab (org-at-table-p)]
19089 ["Next Row" org-return (org-at-table-p)]
19091 ["Blank Field" org-table-blank-field (org-at-table-p)]
19092 ["Edit Field" org-table-edit-field (org-at-table-p)]
19093 ["Copy Field from Above" org-table-copy-down (org-at-table-p)]
19096 ["Move Column Left" org-metaleft (org-at-table-p)]
19097 ["Move Column Right" org-metaright (org-at-table-p)]
19098 ["Delete Column" org-shiftmetaleft (org-at-table-p)]
19099 ["Insert Column" org-shiftmetaright (org-at-table-p)])
19101 ["Move Row Up" org-metaup (org-at-table-p)]
19102 ["Move Row Down" org-metadown (org-at-table-p)]
19103 ["Delete Row" org-shiftmetaup (org-at-table-p)]
19104 ["Insert Row" org-shiftmetadown (org-at-table-p)]
19105 ["Sort lines in region" org-table-sort-lines (org-at-table-p)]
19107 ["Insert Hline" org-table-insert-hline (org-at-table-p)])
19109 ["Copy Rectangle" org-copy-special (org-at-table-p)]
19110 ["Cut Rectangle" org-cut-special (org-at-table-p)]
19111 ["Paste Rectangle" org-paste-special (org-at-table-p)]
19112 ["Fill Rectangle" org-table-wrap-region (org-at-table-p)])
19115 ["Set Column Formula" org-table-eval-formula (org-at-table-p)]
19116 ["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="]
19117 ["Edit Formulas" org-table-edit-formulas (org-at-table-p)]
19119 ["Recalculate line" org-table-recalculate (org-at-table-p)]
19120 ["Recalculate all" (lambda () (interactive) (org-table-recalculate '(4))) :active (org-at-table-p) :keys "C-u C-c *"]
19121 ["Iterate all" (lambda () (interactive) (org-table-recalculate '(16))) :active (org-at-table-p) :keys "C-u C-u C-c *"]
19123 ["Toggle Recalculate Mark" org-table-rotate-recalc-marks (org-at-table-p)]
19126 (or (org-at-table-p) (org-region-active-p))]
19127 ["Which Column?" org-table-current-column (org-at-table-p)])
19135 ["Create" org-table-create (and (not (org-at-table-p))
19137 ["Convert Region" org-table-convert-region (not (org-at-table-p 'any))]
19138 ["Import from File" org-table-import (not (org-at-table-p))]
19139 ["Export to File" org-table-export (org-at-table-p)]
19147 ["Cycle Global Visibility" org-shifttab (not (org-at-table-p))]
19164 ["Move Subtree Up" org-shiftmetaup (not (org-at-table-p))]
19165 ["Move Subtree Down" org-shiftmetadown (not (org-at-table-p))]
19167 ["Copy Subtree" org-copy-special (not (org-at-table-p))]
19168 ["Cut Subtree" org-cut-special (not (org-at-table-p))]
19169 ["Paste Subtree" org-paste-special (not (org-at-table-p))]
19171 ["Promote Heading" org-metaleft (not (org-at-table-p))]
19172 ["Promote Subtree" org-shiftmetaleft (not (org-at-table-p))]
19173 ["Demote Heading" org-metaright (not (org-at-table-p))]
19174 ["Demote Subtree" org-shiftmetaright (not (org-at-table-p))]
19176 ["Sort Region/Children" org-sort (not (org-at-table-p))]
19214 ; ["Toggle Checkbox" org-ctrl-c-ctrl-c (org-at-item-checkbox-p)]
19216 ; (or (org-on-heading-p) (org-at-item-p))]
19218 ; (or (org-on-heading-p) (org-at-item-p))]
19263 ["Follow Link" org-open-at-point t]
19392 (let* ((f (get-text-property (point) 'face))
19398 (push (list :headline (point-at-bol) (point-at-eol)) clist)
19401 (looking-at org-todo-line-tags-regexp))
19407 (if (looking-at "\\[#[A-Z]\\]")
19410 ((org-at-item-p)
19412 (push (list :item (point-at-bol)
19415 (and (org-at-item-checkbox-p)
19418 ((org-at-table-p)
19424 ((org-at-table-p 'any)
19430 ((org-at-timestamp-p)
19443 (if (looking-at org-radio-target-regexp)
19450 (org-overlays-at (point))))))
19470 (eol (point-at-eol (+ 1 (or nlines 0))))
19493 The process starts by copying the first list, and then setting properties
19550 Counting starts at 1."
19558 (defun org-at-regexp-p (regexp)
19562 (let ((pos (point)) (end (point-at-eol)))
19583 ;; text in a line directly attached to a headline would otherwise
19614 (let ((table-p (org-at-table-p))
19615 (table.el-p (org-at-table.el-p)))
19616 (cond ((equal (char-after (point-at-bol)) ?*) t) ; skip headlines
19628 (cond ((looking-at "#[ \t]+")
19630 ((looking-at " *\\([-*+] \\|[0-9]+[.)] \\)?")
19675 "Check if point is at a character currently not visible."
19682 "Check if point is at a character currently not visible."
19776 "Show everything after this heading at deeper levels."