Lines Matching +defs:set +defs:end
45 ;; iCalendar file. It can also serve as a publishing tool for a set of
129 "Non-nil means, entering Org-mode will set `truncate-lines'.
152 has been set."
173 This option is only relevant at load-time of Org-mode, and must be set
275 been invisible before. When this is set, the hierarchy of headings
288 default default for all contexts not set explicitly"
310 been invisible before. When this is set, the heading following the
338 been invisible before. When this is set, the sibling of the current entry
402 the new state that was set by the most recent `org-cycle' command. The
422 You may also set this on a per-file basis by adding one of the following
433 When this is set and the *entire* text in an entry is indented, the
529 When this is set, checkbox statistics is updated each time you either insert
583 at the end of the file, as top-level entries.
601 You may set this option on a per-file basis by adding to the buffer a
677 \\end{comment}\n")
683 @end ignore\n")
915 :type '(set (const :tag "Double bracket links (new style)" bracket)
997 Needs to be set before org.el is loaded."
1003 Needs to be set before org.el is loaded."
1009 A longer mouse click will still set point. Does not wortk on XEmacs.
1010 Needs to be set before org.el is loaded."
1027 set this up for the different types of links.
1063 another window. When this option is set, the other window actually displays
1165 you can use this variable to set the application for a given file
1224 You can set this on a per-template basis with the variable
1234 You can set this on a per-template basis with the variable
1303 When nil, new notes will be filed to the end of a file or entry."
1358 "When set, insert a (non-active) time stamp when TODO entry is marked DONE.
1370 When `state' is set, this includes tracking `done'.
1391 (set :tag "on, with notes, detailed control" :greedy t :value (done)
1474 :set 'set-default
1482 `org-display-custom-times' is set."
1612 "Variable used by org files to set a category for agenda display.
1613 Such files should use a file variable to set it, for example
1640 "When set, remote killing from the agenda buffer needs confirmation.
1684 You can also define a set of commands, to create a composite agenda buffer.
1694 So valid commands for a set are:
1702 Each command can carry a list of options, and another set of options can be
1703 given for the whole set of commands. Individual command options take
1843 A longer mouse click will still set point. Does not wortk on XEmacs.
1844 Needs to be set before org.el is loaded."
1879 `q' or `x' and this option is set, the old state is restored. If
1954 A time grid is a set of lines for specific times (like every two hours between
1983 (set :greedy t :tag "Grid Display Options"
2224 Use the variable `org-export-default-language' to set the language,
2246 This option can also be set with the +OPTIONS line, e.g. \"H:2\"."
2253 This option can also be set with the +OPTIONS line, e.g. \"num:t\"."
2267 `org-export-mark-todo-in-toc' is set.
2271 This option can also be set with the +OPTIONS line, e.g. \"toc:nil\"
2289 This option can also be set with the +OPTIONS line, e.g. \"\\n:t\"."
2338 This option can also be set with the +OPTIONS line, e.g. \"*:nil\"."
2360 This option can also be set with the +OPTIONS line, e.g. \"^:nil\"."
2372 This option can also be set with the +OPTIONS line, e.g. \"TeX:nil\"."
2379 When set, the exporter will find LaTeX environments if the \\begin line is
2384 This option can also be set with the +OPTIONS line, e.g. \"LaTeX:t\"."
2399 This option can also be set with the +OPTIONS line, e.g. \"::nil\"."
2405 This has to be set before loading org.el to be effective."
2424 This option can also be set with the +OPTIONS line, e.g. \"|:nil\"."
2439 This removes the special marking character column from tables that are set
2576 This option can also be set with the +OPTIONS line, e.g. \"@:nil\"."
2596 "<br/><br/><hr><p><!-- hhmts start --> <!-- hhmts end --></p>\n"
2647 You may also set this on a per-file basis by adding one of the following
2658 When this is non-nil, the headline after the keyword is set to the
2673 (defun org-set-emph-re (var val)
2675 (set var val)
2728 export. When this is set, all marker characters (as given in
2733 :set 'org-set-emph-re
2756 :set 'org-set-emph-re
2764 (string :tag "HTML end tag"))))
2903 This face is only used if `org-fontify-done-headline' is set."
3105 (defsubst org-set-local (var value)
3106 "Make VAR local in current buffer and set it to VALUE."
3107 (set (make-variable-buffer-local var) value))
3146 set this variable to if the option is found. An optional forth element PUSH
3149 (defun org-set-regexps-and-options ()
3190 (set (make-local-variable var) val)
3192 (set (make-local-variable var) nil))
3193 (set (make-local-variable var) (symbol-value var))
3201 (and cat (org-set-local 'org-category cat))
3202 (and kwds (org-set-local 'org-todo-keywords kwds))
3203 (and arch (org-set-local 'org-archive-location arch))
3204 (and int (org-set-local 'org-todo-interpretation int))
3217 (org-set-local 'org-tag-alist nil)
3279 (org-set-font-lock-defaults)))
3356 (defun org-make-overlay (beg end &optional buffer)
3358 (make-extent beg end buffer)
3359 (make-overlay beg end buffer)))
3364 (defun org-move-overlay (ovl beg end &optional buffer)
3366 (set-extent-endpoints ovl beg end (or buffer (current-buffer)))
3367 (move-overlay ovl beg end buffer)))
3370 (set-extent-property ovl prop value)
3376 (and face (set-glyph-face gl face))
3377 (set-extent-property ovl 'invisible t)
3378 (set-extent-property ovl 'end-glyph gl))
3386 (and face (set-glyph-face gl face))
3387 (set-extent-property ovl 'begin-glyph gl))
3397 (defun org-overlays-in (&optional start end)
3399 (extent-list nil start end)
3400 (overlays-in start end)))
3403 (defun org-overlay-end (o)
3404 (if (featurep 'xemacs) (extent-end-position o) (overlay-end o)))
3474 This variable is set by `org-before-change-function'.
3522 (org-set-local 'line-move-ignore-invisible t))
3527 (fboundp 'set-display-table-slot) (boundp 'buffer-display-table))
3530 (set-display-table-slot org-display-table
3533 (org-set-regexps-and-options)
3535 (org-set-local 'calc-embedded-open-mode "# ")
3538 (org-set-local 'font-lock-unfontify-region-function
3541 (org-set-local 'org-table-may-need-update t)
3547 (org-set-autofill-regexps)
3551 ; (org-set-local 'comment-start "#") ;; FIXME: this breaks wrapping
3552 (org-set-local 'comment-padding " ")
3558 (org-add-hook 'isearch-mode-end-hook 'org-isearch-end 'append 'local)
3560 (org-set-local 'outline-isearch-open-invisible-function
3573 (set-buffer-modified-p bmp)))
3601 "Add text properties to entire string, from beginning to end.
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)
3777 (remove-text-properties (match-beginning 0) (match-end 0)
3779 (if (match-end 3)
3782 (add-text-properties (match-beginning 3) (match-end 3) vp)
3783 (add-text-properties (match-end 3) (match-end 0) 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)
3798 (if (match-end 3)
3799 (org-display-custom-time (match-beginning 3) (match-end 3)))
3800 (org-display-custom-time (match-beginning 1) (match-end 1)))
3816 (add-text-properties (match-beginning 0) (match-end 0)
3878 (add-text-properties (match-beginning 1) (match-end 1)
3887 (- (match-end 0) (match-beginning 0))))
3894 (- (match-end 0) (match-beginning 0)))))
3898 (defun org-set-font-lock-defaults ()
3958 ;; Now set the full font-lock-keywords
3959 (org-set-local 'org-font-lock-keywords org-font-lock-extra-keywords)
3960 (org-set-local 'font-lock-defaults
3969 (setq org-l (- (match-end 2) (match-beginning 1)))
3978 (defun org-unfontify-region (beg end &optional maybe_loudly)
3980 (font-lock-default-unfontify-region beg end)
3985 (remove-text-properties beg end
4103 (outline-end-of-heading) (setq eoh (point))
4104 (org-end-of-subtree t)
4108 ;; Find out what to do next and set `this-command'
4143 (= (match-end 0) (point-at-eol)))
4145 (>= (match-end 0) pos))))
4217 ((eq state 'children) (or (org-subtree-end-visible-p) (recenter 1)))
4218 ((eq state 'subtree) (or (org-subtree-end-visible-p) (recenter 1))))))
4220 (defun org-subtree-end-visible-p ()
4221 "Is the end of the current subtree visible?"
4223 (save-excursion (org-end-of-subtree t) (point))))
4350 current-prefix-arg (- (match-end 0) (match-beginning 0)))
4359 (outline-end-of-subtree)
4362 current-prefix-arg (- (match-end 0) (match-beginning 0)))
4392 beg end level heading ibuf)
4402 (org-end-of-subtree t) (setq end (point)))
4414 (org-set-frame-title heading))
4423 (org-set-frame-title (concat "Indirect: " heading)))
4431 (narrow-to-region beg end)
4446 (defun org-set-frame-title (title)
4485 (end-of-line 1)
4533 (org-map-region 'org-promote (region-beginning) (region-end))
4544 (org-map-region 'org-demote (region-beginning) (region-end))
4554 (or (equal pos (match-end 1)) (equal pos (match-end 2))))
4581 (and org-auto-align-tags (org-set-tags nil t))
4594 (and org-auto-align-tags (org-set-tags nil t))
4609 (defun org-map-region (fun beg end)
4613 (setq end (copy-marker end))
4616 (< (point) end))
4620 (< (point) end))
4627 would end up with no indentation after the change, nothing at all is done."
4629 (let ((end (save-excursion (outline-next-heading)
4635 (unless (save-excursion (re-search-forward prohibit end t))
4636 (while (re-search-forward "^[ \t]+" end t)
4637 (goto-char (match-end 0))
4641 (move-marker end nil))))
4656 (end-of-line 1))))))
4678 (end-of-line 1))))))
4699 beg end txt folded)
4704 (save-excursion (outline-end-of-heading)
4706 (outline-end-of-subtree))
4708 (setq end (point))
4718 (progn (outline-end-of-subtree)
4724 (setq txt (buffer-substring beg end))
4725 (delete-region beg end)
4751 (let (beg end folded)
4755 (save-excursion (outline-end-of-heading)
4757 (outline-end-of-subtree))
4759 (setq end (point))
4761 (when (> end beg)
4763 (if cut (kill-region beg end) (copy-region-as-kill beg end))
4790 "The kill is not a (set of) tree(s) - please use \\[yank] to yank anyway")))
4797 (- (match-end 0) (match-beginning 0))
4802 (- (match-end 0) (match-beginning 0)))
4809 (- (match-end 0) (match-beginning 0))
4817 (- (match-end 0) (match-beginning 0))
4830 beg end)
4843 (setq end (point))
4851 (narrow-to-region beg end)
4865 "Check if the current kill is an outline subtree, or a set of trees.
4874 (- (match-end 0) (match-beginning 0))))
4881 (if (< (- (match-end 0) (match-beginning 0)) start-level)
4891 (progn (org-end-of-subtree t) (point)))))
4919 start beg end entries stars re re2 p nentries (nremoved 0)
4921 ;; Find beginning and end of region to sort
4925 (setq end (region-end)
4934 (setq start (point) end (org-end-of-subtree) what "children")
4942 (setq start (point) end (point-max) what "top-level")
4946 (if (>= (point) end) (error "Nothing to sort"))
4951 txt (buffer-substring beg end))
4972 (kill-region beg end)
5064 (match-end 0)))
5078 (end-of-line 1)
5090 (goto-char (match-end 0))
5098 (let (beg end status (firstnew 'unknown))
5101 (setq beg (region-beginning) end (region-end)))
5103 (setq beg (point) end (save-excursion (outline-next-heading) (point))))
5111 (while (< (point) end)
5135 (end (move-marker (make-marker)
5143 (setq beg (point) end (point-max)))
5145 (while (re-search-forward re end t)
5148 e1 (match-end 0)
5152 ((org-at-item-p) (org-end-of-item) (point))
5174 (if (match-end 1)
5176 (if (and (> (match-end 2) (match-beginning 2))
5186 (match-end 0))
5208 leave it alone. If it is larger than ind, set it to the target."
5243 (defun org-end-of-item ()
5244 "Go to the end of the current hand-formatted item.
5273 (org-end-of-item)
5305 (let (beg end ind ind1 (pos (point)) txt)
5309 (org-end-of-item)
5310 (setq end (point))
5314 (org-end-of-item)
5315 (setq txt (buffer-substring beg end))
5317 (delete-region beg end))
5330 (let (beg end ind ind1 (pos (point)) txt)
5334 (org-end-of-item)
5335 (setq end (point))
5351 (setq txt (buffer-substring beg end))
5353 (delete-region beg end))
5419 (delete-region (match-beginning 3) (1- (match-end 3)))
5426 (defvar org-last-indent-end-marker (make-marker))
5439 (let (beg end ind ind1)
5442 end org-last-indent-end-marker)
5445 (org-end-of-item)
5446 (setq end (move-marker org-last-indent-end-marker (point))))
5450 (while (< (point) end)
5508 (setq level (match-end 0))
5515 (set-buffer buffer)
5543 (goto-char (match-end 0))
5544 ;; Heading not found, just insert it at the end
5548 (end-of-line 0))
5551 (org-end-of-subtree t)
5555 ;; No specific heading, just go to end of file.
5559 ;; Mark the entry as done, i.e. set to last work in org-todo-keywords
5567 (goto-char (or (match-end 2) (match-beginning 3)))
5591 beg end (cntarch 0))
5596 (1+ (- (match-end 0) (match-beginning 0)))
5600 (move-marker endm (org-end-of-subtree t)))
5608 end (save-excursion (org-end-of-subtree t) (point)))
5610 (if (re-search-forward re end t)
5611 (goto-char end)
5620 (goto-char end)))))
5630 (end (if globalp (point-max) (org-end-of-subtree t))))
5631 (org-hide-archived-subtrees beg end)
5644 (defun org-hide-archived-subtrees (beg end)
5649 (while (re-search-forward re end t)
5651 (org-end-of-subtree t)))))
5655 If ONOFF is `on' or `off', don't toggle but set to this state."
5677 (end-of-line 1)
5680 (org-set-tags nil t))
5690 (let (set)
5693 (setq set (org-toggle-tag org-archive-tag))
5694 (when set (hide-subtree)))
5695 (and set (beginning-of-line 1))
5696 (message "Subtree %s" (if set "archived" "unarchived")))))
5709 (defun org-before-change-function (beg end)
5790 (org-table-convert-region (region-beginning) (region-end) arg)
5820 (end-of-line 1)
5833 (end (max beg0 end0))
5839 (goto-char end)
5840 (if (bolp) (backward-char 1) (end-of-line 1))
5841 (setq end (move-marker (make-marker) (point)))
5847 (and (re-search-forward "^[^\n\t]+$" end t) (setq tabsep nil)))
5854 (while (re-search-forward re end t)
5877 (end (org-table-end))
5878 (table (buffer-substring beg end))
5892 (end-of-line 1))
5911 (defvar org-table-aligned-end-marker (make-marker)
5912 "Marker at the end of the table last aligned.
5934 (end (org-table-end))
5952 (untabify beg end)
5953 (remove-text-properties beg end '(org-cwidth t org-dwidth t display t))
5956 (setq links (re-search-forward org-bracket-link-regexp end t))
5959 (re-search-forward org-ts-regexp-both end t)))
5961 (when links (goto-char beg) (while (org-activate-bracket-links end)))
5963 (when dates (goto-char beg) (while (org-activate-dates end)))
5968 (re-search-forward "<[0-9]+>" end t)))
5971 (buffer-substring beg end) "\n"))
5974 (setq indent (make-string (- (match-end 0) (match-beginning 0)) ?\ )))
5993 (kill-region beg end)
6070 (delete-region beg end)
6071 (move-marker end nil)
6074 (move-marker org-table-aligned-end-marker (point))
6077 (while (org-hide-wide-columns org-table-aligned-end-marker)))
6082 (set-window-start (selected-window) winstart 'noforce)
6123 (defun org-table-end (&optional table-type)
6124 "Find the end of the table and return its position.
6125 With argument TABLE-TYPE, go to the end of a table.el-type table."
6145 (>= (point) org-table-aligned-end-marker)))
6159 l (max 1 (- (match-end 0) (match-beginning 0) 3))
6160 e (not (= (match-beginning 2) (match-end 2))))
6183 (let ((end (org-table-end)))
6185 (end-of-line 1))
6188 (re-search-forward "|" end)
6190 (re-search-forward "|" end))
6193 (re-search-forward "^[ \t]*|\\([^-]\\)" end t))
6213 (end-of-line 1))
6219 (goto-char (match-end 0))))
6305 (org-table-cut-region (region-beginning) (region-end)))
6326 (val (buffer-substring (1+ pos) (match-end 0))))
6404 (progn (end-of-line 1)
6409 (save-excursion (end-of-line 1) (insert " | ")))
6444 (if (re-search-forward "|" (org-table-end t) t)
6473 (end (org-table-end))
6478 (while (< (point) end)
6484 (move-marker end nil)
6496 (end (org-table-end)))
6498 (while (and (< (point) end)
6518 (end (org-table-end))
6523 (while (< (point) end)
6530 (move-marker end nil)
6556 (end (org-table-end))
6565 (while (< (point) end)
6572 (move-marker end nil)
6649 (concat "+" (make-string (- (match-end 1) (match-beginning 1))
6709 beg end bcol ecol tend tbeg column lns pos)
6720 (setq beg (region-beginning) end (region-end))
6724 (goto-char end)
6725 (setq end (point-at-bol 2)))
6729 tend (org-table-end))
6738 (setq end (point-at-bol))))
6740 end (move-marker (make-marker) end))
6741 (untabify beg end)
6751 (org-split-string (buffer-substring beg end) "\n")))
6753 (delete-region beg end)
6755 (move-marker end nil)
6761 (defun org-table-cut-region (beg end)
6764 (org-table-copy-region beg end 'cut))
6766 (defun org-table-copy-region (beg end &optional cut)
6778 (goto-char end)
6819 (progn (end-of-line 0) (org-table-next-field)))
6844 (end (move-marker (make-marker) (org-table-end t))))
6845 (table-unrecognize-region beg end)
6847 (while (re-search-forward "^\\([ \t]*\\)\\+-.*\n" end t)
6853 (end (move-marker (make-marker) (org-table-end))))
6856 (while (re-search-forward "^\\([ \t]*\\)|-.*\n" end t)
6863 (while (progn (beginning-of-line 3) (< (point) end))
6866 (setq end (move-marker end (org-table-end)))
6868 (while (re-search-forward "^\\([ \t]*\\)|-" end t)
6871 (while (re-search-forward "-|[ \t]*$" end t)
6905 (org-table-cut-region (region-beginning) (region-end))
6969 (org-set-local 'org-finish-function
6971 (org-set-local 'org-window-configuration cw)
6972 (org-set-local 'org-field-marker pos)
6988 (set-window-configuration cw)
6999 "Remove whitespace at beginning and end of string."
7011 The return value is a list of lines, without newlines at the end."
7043 and end of string."
7056 (and (eq (match-beginning 0) (match-end 0))
7061 (setq start (match-end 0)))
7084 (defun org-table-sum (&optional beg end nlast)
7103 ((and beg end)) ; beg and end given explicitly
7105 (setq beg (region-beginning) end (region-end)))
7113 (goto-char (org-table-end))
7117 (setq end (point))))
7118 (let* ((items (apply 'append (org-table-copy-region beg end)))
7216 ;; We set the column equation, delete the named one.
7230 (goto-char (org-table-end))
7235 (delete-region (match-beginning 2) (match-end 0)))
7250 (goto-char (org-table-end))
7255 (setq scol (if (match-end 2)
7270 (goto-char (org-table-end))
7293 (let ((beg (org-table-begin)) (end (org-table-end))
7302 (when (re-search-forward "^[ \t]*| *! *\\(|.*\\)" end t)
7313 (while (re-search-forward "^[ \t]*| *\\$ *\\(|.*\\)" end t)
7320 (while (re-search-forward "^[ \t]*| *\\([_^]\\) *\\(|.*\\)" end t)
7339 (push (if (match-end 1) 'hline 'dline) types)
7340 (if (match-end 1) (push l hlines) (push l dlines))
7351 (end (progn (skip-chars-forward "^ \t\n") (point))))
7352 (buffer-substring-no-properties beg end))))
7395 (end (org-table-end))
7398 (l2 (if (org-region-active-p) (org-current-line (region-end))))
7402 (not (re-search-forward "^[ \t]*|[^-|][^|]*[^#!$*_^| \t][^|]*|" end t))))
7459 (defsubst org-set-calc-mode (var &optional value)
7542 (setq modes (org-set-calc-mode 'calc-internal-prec n))
7543 (setq modes (org-set-calc-mode
7556 (setq modes (org-set-calc-mode (match-string 0 fmt)))
7663 beg end c1 c2 r1 r2 rangep tmp)
7666 (setq rangep (match-end 3)
7667 r1 (and (match-end 1) (match-string 1 desc))
7668 r2 (and (match-end 4) (match-string 4 desc))
7669 c1 (and (match-end 2) (substring (match-string 2 desc) 1))
7670 c2 (and (match-end 5) (substring (match-string 5 desc) 1)))
7706 (setq end (point))
7711 (apply 'append (org-table-copy-region beg end))))))
7725 (and (not (match-end 3)) (not (match-end 6)))
7726 (and (match-end 3) (match-end 6) (not (match-end 5))))
7728 (let* ((hdir (and (match-end 2) (match-string 2 desc)))
7729 (hn (if (match-end 3) (- (match-end 3) (match-beginning 3)) nil))
7730 (odir (and (match-end 5) (match-string 5 desc)))
7731 (on (if (match-end 6) (string-to-number (match-string 6 desc))))
7733 (rel (and (match-end 6)
7734 (or (and (match-end 1) (not (match-end 3)))
7735 (match-end 5)))))
7809 beg end entry eqlnum eqlname eql (cnt 0) eq a name)
7824 (setq end (move-marker (make-marker) (1+ (org-table-end))))
7826 (if (re-search-forward org-table-calculate-mark-regexp end t)
7830 (if (and (re-search-forward org-table-dataline-regexp end t)
7831 (re-search-forward org-table-hline-regexp end t)
7832 (re-search-forward org-table-dataline-regexp end t))
7836 end (move-marker (make-marker) (1+ (point-at-eol)))))
7839 (while (re-search-forward line-re end t)
7885 (lasttbl (buffer-substring (org-table-begin) (org-table-end)))
7891 (setq thistbl (buffer-substring (org-table-begin) (org-table-end)))
7958 (org-set-local 'font-lock-global-modes (list 'not major-mode))
7959 (org-set-local 'org-pos pos)
7960 (org-set-local 'org-window-configuration wc)
7997 (setq var (if (match-end 2) (match-string 2) (match-string 1))
8003 (set-window-configuration org-window-configuration)
8020 (set-window-configuration org-window-configuration)
8029 (let ((pos (point)) beg end ind)
8039 (goto-char (- (match-end 0) 2))
8045 (setq end (point))
8047 (narrow-to-region beg end)
8087 (org-table-add-rectangle-overlay (match-beginning 0) (match-end 0)
8101 (match-beginning 1) (match-end 1) face2))))
8142 (org-table-end) t)
8178 (set-window-start (selected-window) (point-at-bol))
8218 Use COMMAND to do the motion, repeat if necessary to end up in a data line."
8242 (defun org-table-add-rectangle-overlay (beg end &optional face)
8244 (let ((ov (org-make-overlay beg end)))
8248 (defun org-table-highlight-rectangle (&optional beg end face)
8250 (setq beg (or beg (point)) end (or end (point)))
8251 (let ((b (min beg end))
8252 (e (max beg end))
8256 (goto-char (min beg end))
8259 (goto-char (max beg end))
8270 (skip-chars-forward "^|\n") (setq end (point))
8271 (org-table-add-rectangle-overlay beg end face))
8401 (org-set-local (quote org-table-may-need-update) t)
8404 (org-set-local 'org-old-auto-fill-inhibit-regexp
8406 (org-set-local 'auto-fill-inhibit-regexp
8611 (setq action (cond ((looking-at "#\\+ORGTBL:.*\n[ \t]*|") (match-end 0))
8665 (goto-char (1- (match-end 0)))
8702 (params (if (match-end 3) (read (concat "(" (match-string 3) ")"))))
8706 (org-table-begin) (org-table-end)))
8739 (error "Cannot find end of insertion region"))
8768 beg end)
8775 (setq end (point)))
8776 (comment-region beg end (if commented '(4) nil))))
8816 :tend String to end the table. Ignored when :splice is t.
8818 :splice When set to t, return only table body lines, don't wrap
8825 :lend String to end a table line
8903 :splice When set to t, return only table body lines, don't wrap
8923 :tend "\\end{tabular}"
8935 :splice When set to t, return only table body lines, don't wrap
8965 :splice nil/t When set to t, return only table body lines, don't wrap
8988 :tend "@end multitable"
9003 (tag (and (match-end 2) (match-string 3 link)))
9213 (buffer-substring (region-beginning) (region-end)))
9230 (buffer-substring (region-beginning) (region-end))
9434 (prog1 (buffer-substring (region-beginning) (region-end))
9435 (delete-region (region-beginning) (region-end)))))
9441 (setq remove (list (match-beginning 0) (match-end 0)))
9442 (setq desc (if (match-end 3) (org-match-string-no-properties 3)))
9449 (setq remove (list (match-beginning 0) (match-end 0))
9523 (match-end 0)))))))
9566 (message "Link search wrapped back to end of buffer"))
9583 (mouse-set-point ev)
9589 (mouse-set-point ev)
9602 the end of the current subtree.
9797 A function in this hook may also use `setq' to set the variable
9822 (set-window-configuration org-window-config-before-follow-link)")
9911 (goto-char (match-end group))
9914 (< (match-end 0) (marker-position m)))
9917 (not (match-end 4)) ; no description
9919 (>= (match-end 4) (point))))))
9945 (let ((cwin (selected-window)) win beg end)
9950 (setq beg (match-end 0))
9952 (setq end (1- (match-beginning 0)))))
9953 (and beg end (let ((buffer-read-only)) (delete-region beg end)))
10156 (end-index
10163 (string= mh-index-folder (substring folder 0 end-index)))
10216 (set-buffer buffer)
10293 (set-window-configuration org-window-config-before-follow-link)
10294 (save-excursion (set-buffer b) (goto-char p)
10304 ;; end of Bibtex link setup
10484 ;; Turn on org-mode in the remember buffer, set local variables
10486 (org-set-local 'org-finish-function 'remember-buffer)
10488 (org-set-local 'org-default-notes-file file))
10490 (org-set-local 'org-remember-default-headline headline))
10494 (setq char (if (match-end 3) (match-string 3))
10495 prompt (if (match-end 2) (match-string 2)))
10512 (org-set-local 'org-finish-function 'remember-buffer)))
10546 RET buffer-start as level 2 heading at end of file
10625 ;; Put it at the end, one level below level 1
10640 ;; Put it below this entry, at the beg/end of the subtree
10644 (outline-end-of-heading)
10645 (org-end-of-subtree t))
10697 (defconst org-dblock-end-re "^#\\+END\\([: \t\r\n]\\|$\\)"
10698 "Matches the end of a dyhamic block.")
10719 (let* ((begdel (1+ (match-end 0)))
10723 (unless (re-search-forward org-dblock-end-re nil t)
10743 (unless (re-search-forward org-dblock-end-re nil t)
10773 (end-of-line 1)
10776 (re-search-forward org-dblock-end-re nil t)
10777 (> (match-end 0) pos))
10803 (let* ((end (point))
10855 (pattern (buffer-substring-no-properties beg end))
10866 (delete-region beg end)
10901 (goto-char (match-end 0))
10934 (if (looking-at outline-regexp) (goto-char (match-end 0)))
10997 (and org-auto-align-tags (org-set-tags nil t))
11006 (< (point) (+ 2 (or (match-end 2) (match-end 1)))))
11008 (goto-char (or (match-end 2) (match-end 1)))
11024 If yes, set TODO state back to what it was and change any SCHEDULED
11047 (setq type (if (match-end 1) org-scheduled-string org-deadline-string)
11050 (setq start (match-end 0)
11112 (goto-char (match-end 1))
11114 (goto-char (1+ (match-end 0)))
11119 (narrow-to-region (match-beginning 0) (match-end 0))
11149 (end-of-line 1))
11174 (goto-char (match-end 0)))
11197 (org-set-local 'org-finish-function 'org-store-log-note))
11225 (set-buffer (marker-buffer org-log-note-marker))
11229 (end-of-line 1)
11235 (set-window-configuration org-log-note-window-configuration)
11267 (org-highlight-new-match (match-beginning 0) (match-end 0))
11312 This can be used to show a consistent set of context around locations
11325 (defun org-highlight-new-match (beg end)
11327 (let ((ov (org-make-overlay beg end)))
11331 (defun org-remove-occur-highlights (&optional beg end noremove)
11362 ACTION can be set, up, or down."
11364 (setq action (or action 'set))
11373 ((eq action 'set)
11394 (if (match-end 2)
11396 (goto-char (match-end 2))
11402 (message "Priority of current item set to %s" news))))
11418 evaluated, testing if a given set of tags qualifies a headline for
11444 (setq todo (if (match-end 1) (match-string 2))
11445 tags (if (match-end 4) (match-string 4)))
11486 ;; if we are to skip sublevels, jump to end of subtree
11487 (or org-tags-match-list-sublevels (org-end-of-subtree t))))))
11527 todomatch (substring match (match-end 0)))
11543 (setq minus (and (match-end 1)
11547 level-p (match-end 3)
11554 term (substring term (match-end 0)))
11569 (setq minus (and (match-end 1)
11573 term (substring term (match-end 0))
11602 (defun org-set-tags (&optional arg just-align)
11615 (org-set-tags nil t)
11616 (end-of-line 1)))
11620 ;; Get a new set of tags from the user
11690 (defun org-fast-tag-insert (kwd tags face &optional end)
11694 (or end "")))
11702 (end-of-line 1)
11706 (defun org-set-current-tags-overlay (current prefix)
11733 ov-start ov-end ov-prefix
11740 ov-end (match-end 1)
11743 ov-end (1+ ov-start))
11751 (org-move-overlay org-tags-overlay ov-start ov-end)
11754 (set-buffer (get-buffer-create " *Org tags*"))
11762 (org-set-current-tags-overlay current ov-prefix)
11872 (org-set-current-tags-overlay current ov-prefix)
11875 (add-text-properties (match-beginning 1) (match-end 1)
11991 insert a time. Note that when WITH-TIME is not set, you can still
12083 (setq year (if (match-end 2)
12167 (set-buffer-modified-p bmp)))
12169 (remove-text-properties (point-min) (point-max) '(end-glyph t)))
12176 (defun org-display-custom-time (beg end)
12179 (org-parse-time-string (buffer-substring beg end) t)))
12180 (w1 (- end 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))))
12200 But do this only if the variable `org-display-custom-times' is set."
12205 t1 with-hm inactive tf time str beg end)
12208 end (match-end 0)
12210 (org-parse-time-string (substring string beg end) t))
12246 (mouse-set-point ev)
12275 "Evaluate a time range by computing the difference between start and end.
12294 (match-end (match-end 0))
12323 (goto-char match-end)
12325 (and (looking-at " *|") (goto-char (match-end 0))))
12406 (>= (match-end n) pos)))
12418 (> (- (match-end 0) pos) -1))))))
12449 (- (match-end 0) (match-beginning 0))))
12469 (set-buffer "*Calendar*")
12554 If there is no running clock, throw an error, unless FAIL-QUIETLY is set."
12561 (set-buffer (marker-buffer org-clock-marker))
12588 (set-buffer (marker-buffer org-clock-marker))
12615 (if (match-end 2)
12628 (setq level (- (match-end 1) (match-beginning 1)))
12638 (set-buffer-modified-p bmp)))
12689 (org-overlay-put ov 'end-glyph (make-glyph tx)))
12692 (defun org-remove-clock-overlays (&optional beg end noremove)
12765 (and (match-end 3) (delete-region (match-beginning 3) (match-end 3)))
12766 (end-of-line 1)
12865 (setq level (- (match-end 1) (match-beginning 1)))
12894 rtn beg end next cont level title total closedp leafp
12901 beg (match-string 1) end (match-string 2)
12902 cont (match-end 0))
12904 end (apply 'encode-time (org-parse-time-string end)))
12912 (setq level (- (match-end 1) (match-beginning 1))
12918 (<= (- (match-end 0) (point)) level)))
12919 (push (list beg end clockpos closedp donep
12952 (org-set-local 'font-lock-global-modes (list 'not major-mode))
12961 (org-set-local 'buffer-substring-filters
12963 (set-text-properties 0 (length x) nil x) x)
12980 (org-agenda-set-mode-name)
13003 (define-key org-agenda-mode-map ":" 'org-agenda-set-tags)
13088 ["Set Tags" org-agenda-set-tags t])
13217 (defvar org-agenda-restrict-end (make-marker))
13253 (move-marker org-agenda-restrict-end nil)
13271 (setq start (match-end 0))
13272 (add-text-properties (match-beginning 2) (match-end 2)
13292 (format "set of %d commands" (length match))))))
13316 (move-marker org-agenda-restrict-end (region-end)))
13320 (move-marker org-agenda-restrict-end
13321 (progn (org-end-of-subtree t)))))))
13417 (set-buffer "*Org Agenda*")
13453 latter case, the buffer is set up in a way that saving it automatically kills
13459 (org-set-local 'org-window-configuration cw)
13462 (set-window-configuration
13511 (defun org-agenda-file-to-end ()
13512 "Move/add the current file to the end of the agenda file list.
13516 (org-agenda-file-to-front 'to-end))
13518 (defun org-agenda-file-to-front (&optional to-end)
13522 end of the list."
13532 (if to-end
13538 (if had "moved" "added") (if to-end "end" "front"))))
13619 (add-text-properties (match-beginning 0) (match-end 0)
13635 (set-buffer (org-get-agenda-file-buffer file))
13644 (add-text-properties (point-at-bol) (org-end-of-subtree t) pa))))
13649 (match-beginning 0) (org-end-of-subtree t) pc)))
13650 (set-buffer-modified-p bmp))))))
13657 Never set this variable using `setq' or so, because then it will apply
13663 Also moves point to the end of the skipped region, so that search can
13668 (org-end-of-subtree t)
13671 (org-end-of-subtree t)
13771 (org-set-sorting-strategy 'timeline)
13778 (end (if (org-region-active-p) (region-end) (point-max)))
13779 (day-numbers (org-get-all-dates beg end 'no-ranges
13840 (defun org-get-all-dates (beg end &optional no-ranges force-today inactive empty)
13842 If NO-RANGES is non-nil, include only the start and end dates of a range,
13853 (while (re-search-forward re end t)
13859 (while (re-search-forward org-tr-regexp end t)
13909 (org-set-sorting-strategy 'agenda)
13929 s e rtn rtnall file date d start-pos end-pos todayp nd)
13940 (org-set-local 'org-starting-day (car day-numbers))
13941 (org-set-local 'org-include-all-loc include-all)
13967 (if (and start-pos (not end-pos))
13968 (setq end-pos (point))))
14037 (org-set-sorting-strategy 'todo)
14053 (org-set-local 'org-last-arg arg)
14054 (org-set-local 'org-todo-keywords kwds)
14099 (org-set-sorting-strategy 'tags)
14132 org-agenda-restrict-end)
14161 This is basically a temporary global variable that can be set and then
14165 "When this is set during todo and tags searches, will replace header.")
14169 If yes, it returns the end position of this tree, causing agenda commands
14173 (let ((end (save-excursion (org-end-of-subtree t)))
14176 (setq skip (re-search-forward org-agenda-skip-regexp end t)))
14177 (and skip end))))
14241 (set-buffer-modified-p nil)
14266 (delete-region (point-min) (min (point-max) (1+ (match-end 0)))))
14353 (org-set-sorting-strategy 'agenda)
14395 org-agenda-restrict-end)
14436 (>= (match-end 0) pos)
14441 (>= (match-end 0) pos)
14462 ee txt beg end)
14468 (setq beg (point) end (progn (outline-next-heading) (point)))
14470 (re-search-forward org-scheduled-time-regexp end t))
14472 (re-search-forward org-deadline-time-regexp end t)
14475 (or org-agenda-todo-list-sublevels (org-end-of-subtree 'invisible))
14496 (goto-char (match-end 1))
14497 (org-end-of-subtree 'invisible))))
14540 ;; substring should only run to end of time stamp
14541 (setq timestr (substring timestr 0 (match-end 0))))
14545 (goto-char (match-end 1))
14603 ;; substring should only run to end of time stamp
14604 (setq timestr (substring timestr 0 (match-end 0))))
14608 (goto-char (match-end 1))
14655 (goto-char (match-end 0))
14656 (setq pos1 (match-end 1))
14711 (goto-char (match-end 0))
14712 (setq pos1 (match-end 1))
14762 (setq hdmarker (org-agenda-new-marker (match-end 1)))
14763 (goto-char (match-end 1))
14812 "A flag, set by `org-compile-prefix-format'.
14813 The flag is set if the currently compiled format contains a `%t'.")
14815 "A flag, set by `org-compile-prefix-format'.
14816 The flag is set if the currently compiled format contains a `%T'.")
14965 (defun org-set-sorting-strategy (key)
14988 (m (if (match-end 3) (string-to-number (match-string 3 s)) 0))
14989 (ampm (if (match-end 4) (downcase (match-string 4 s))))
15018 (add-text-properties (match-beginning 0) (match-end 0)
15023 (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0)
15101 (set-window-configuration org-pre-agenda-window-conf)))
15192 (org-agenda-set-mode-name)
15209 (org-agenda-set-mode-name)
15237 (defun org-highlight (begin end &optional buffer)
15239 (funcall (if (featurep 'xemacs) 'set-extent-endpoints 'move-overlay)
15240 org-hl begin end (or buffer (current-buffer))))
15246 (defun org-highlight-until-next-command (beg end &optional buffer)
15247 (org-highlight beg end buffer)
15258 (org-agenda-set-mode-name)
15267 (org-agenda-set-mode-name)
15278 (org-agenda-set-mode-name)
15288 (org-agenda-set-mode-name)
15292 (defun org-agenda-set-mode-name ()
15360 dend (org-end-of-subtree t))
15395 (defun org-remove-subtree-entries-from-agenda (&optional buf beg end)
15401 (unless (and beg end)
15404 (org-end-of-subtree t)
15405 (setq end (point)))
15406 (set-buffer (get-buffer org-agenda-buffer-name))
15415 (<= p end))
15451 (mouse-set-point ev)
15472 (mouse-set-point ev)
15584 ;; See the code in set-tags for the way to do this.
15592 (delete-region (match-beginning 1) (match-end 1))
15631 (end-of-line 1)
15661 (defun org-agenda-set-tags ()
15680 (call-interactively 'org-set-tags)
15681 (end-of-line 1)
15706 (end-of-line 1)
15749 (set-glyph-face gl 'secondary-selection)
15750 (set-extent-properties
15751 ex (list 'invisible t 'end-glyph gl 'duplicable t))
15814 (message "Deadline for this item set to %s" ts)))))
16066 ((= (match-end 0) (length str))
16068 ((= (match-end 0) (- (length str) 5))
16070 (t (setq start (match-end 0))))))
16071 (when (setq m (re-search-backward "\\(\\\\begin{[^}]*}\\|\\\\(\\|\\\\\\[\\)\\|\\(\\\\end{[^}]*}\\|\\\\)\\|\\\\\\]\\)\\|\\(\\$\\$\\)" lim t))
16139 (let (beg end at msg)
16144 (setq beg (point-min) end (point-max)
16148 (setq beg (point) end (org-end-of-subtree t)
16154 (setq beg (point) end (progn (outline-next-heading) (point))
16158 (narrow-to-region beg end)
16167 '(("begin" "^[ \t]*\\(\\\\begin{\\([a-zA-Z0-9\\*]+\\)[^\000]+?\\\\end{\\2}\\)" 1 t)
16185 (cnt 0) txt link beg end re e checkdir
16202 beg (match-beginning n) end (match-end n)
16216 (setq ov (org-make-overlay beg end))
16221 ov 'end-glyph
16227 (goto-char end))
16228 (delete-region beg end)
16256 \\begin{document}\n" string "\n\\end{document}\n"))
16397 (setq level (- (match-end 1) (match-beginning 1))))
16401 (> (- (match-end 1) (match-beginning 1)) level))))
16773 (set-buffer (get-buffer-create " org-mode-tmp"))
16784 (org-end-of-subtree t)
16788 (org-end-of-subtree t)))))
16793 (add-text-properties (match-beginning 0) (match-end 0)
16806 (add-text-properties (match-beginning 1) (1+ (match-end 1))
16808 (delete-region (match-beginning 0) (match-end 0))))
16812 (end-of-line 1)
16813 (add-text-properties (point) (org-end-of-subtree t)
16873 (if (match-end 3)
16884 (subst-char-in-region (match-beginning 0) (match-end 0) ?\n ?\ t)
16885 (goto-char (1- (match-end 0))))))
16965 (if (org-region-active-p) (region-end) (point-max))))
17012 (set (make-local-variable (cdr x))
17015 (org-set-local 'org-odd-levels-only odd)
17044 (setq level (- (match-end 1) (match-beginning 1))
17087 (if (match-end 3) "[\\3]" "[\\1]")
17094 (setq level (org-tr-level (- (match-end 1) (match-beginning 1)))
17102 (let (beg end)
17105 (setq end (next-single-property-change beg 'display))
17106 (delete-region beg end)
17111 (setq end (next-single-property-change beg 'org-cwidth))
17112 (delete-region beg end)
17125 (setq lv (- (match-end 1) (match-beginning 1))
17215 ;; Copy all comment lines to the end, to make sure #+ settings are
17219 (append-to-buffer buffer (match-beginning 0) (1+ (match-end 0))))
17222 (min (point-max) (1+ (match-end 0))))))
17223 (set-buffer buffer)
17326 (end (if regionp (region-end)))
17327 (nlines (or arg (if (and beg end) (count-lines beg end) 1)))
17355 (goto-char (match-end 0))
17401 (if region-p (region-end) (point-max))))
17469 (set-buffer buffer)
17478 (set (make-local-variable (cdr x))
17525 (setq level (- (match-end 1) (match-beginning 1))
17596 ;; end of quote section?
17632 ((match-end 2)
17661 (setq type (if (match-end 2) (match-string 2 line) "internal"))
17663 (setq desc1 (if (match-end 5) (match-string 5 line))
17664 desc2 (if (match-end 2) (concat type ":" path) path)
17671 (setq desc (substring desc (match-end 0)))))
17751 (setq level (org-tr-level (- (match-end 1) (match-beginning 1)))
17919 ;; Get rid of hlines at beginning and end
18067 (set-buffer " org-tmp2 ")
18075 (if (and (match-end 1) (equal (match-string 1 s) org-clock-string))
18081 s (substring s (match-end 0)))
18084 (if (match-end 1)
18090 s (substring s (match-end 0)))))
18127 string (substring string (match-end 0)))
18314 (set-buffer ical-buffer) (erase-buffer))
18318 (set-buffer (org-get-agenda-file-buffer file))
18338 (set-buffer ical-buffer)
18369 (goto-char (match-end 0))
18383 (setq hd (replace-match (if (match-end 3) (match-string 3 hd)
18410 (substring hd (match-end 1))))
18496 (goto-char (match-end 0))
18591 ;; We only set them when really needed because otherwise the
18715 (goto-char (1- (match-end 0)))
18723 "Like `delete-backward-char', insert whitespace at field end in tables.
18740 ;; noalign: if there were two spaces at the end, this field
18746 "Like `delete-char', but insert whitespace at field end in tables.
18764 ;; noalign: if there were two spaces at the end, this field
19024 ((org-on-heading-p) (call-interactively 'org-set-tags))
19028 (re-search-forward "|" (save-excursion (end-of-line 2) (point)))
19320 (set-buffer (pop bl))
19351 ["Set" Custom-set t]
19368 two positions indicating start and end of the context. Possible
19413 (save-excursion (org-end-of-item) (point)))
19419 (push (list :table (org-table-begin) (org-table-end)) clist)
19452 (org-overlay-start o) (org-overlay-end o)) clist)
19454 (org-overlay-start o) (org-overlay-end o)) clist))
19466 If VISUALLY is set, require that the cursor is not after the match but
19476 (>= (+ inc (match-end 0)) pos))
19477 (throw 'exit (cons (match-beginning 0) (match-end 0)))))))))
19486 (<= point (match-end group))
19488 (list context (match-beginning group) (match-end group))
19509 beg end pos)
19511 (beginning-of-line 2) (setq end (point))
19514 (insert (delete-and-extract-region beg end))
19522 beg end pos)
19524 (beginning-of-line 2) (setq end (point))
19527 (insert (delete-and-extract-region beg end))
19548 (defun org-sublist (list start end)
19553 (while (and list (<= c end))
19562 (let ((pos (point)) (end (point-at-eol)))
19564 (while (re-search-forward regexp end t)
19566 (>= (match-end 0) pos))
19580 (defun org-set-autofill-regexps ()
19585 (org-set-local 'comment-start-skip "^#+[ \t]*")
19586 (org-set-local 'paragraph-separate "\f\\|\\*\\|[ ]*$\\|[ \t]*[:|]")
19588 (org-set-local 'paragraph-start
19592 (org-set-local
19605 (org-set-local 'fill-paragraph-function 'org-fill-paragraph)
19608 (org-set-local 'adaptive-fill-regexp "\000")
19609 (org-set-local 'adaptive-fill-function
19631 (make-string (- (match-end 0) (match-beginning 0)) ?\ ))
19707 When PREVIOUS is set, go to the previous sibling instead. Returns t
19751 (save-excursion (outline-end-of-heading) (point))
19754 (defun org-end-of-subtree (&optional invisible-OK)
19768 ;; Go to end of line before heading
19780 (outline-end-of-subtree) (outline-next-heading) (point))
19806 (defun org-isearch-end ()
19816 (unless (and (boundp 'isearch-mode-end-hook-quit)
19817 isearch-mode-end-hook-quit)