Lines Matching +defs:gnus +defs:summary +defs:position +defs:point
71 (require 'gnus-sum)
731 (const :tag "Exponential, Floating point, Integer"
776 When it sees such a table, it moves point into it and - if necessary -
963 `org-open-at-point'.
1009 A longer mouse click will still set point. Does not wortk on XEmacs.
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1233 When filing remember notes, the cursor will start at that position.
1267 %? After completing the template, position cursor here.
1270 link type that is created. For example, calling `remember' in emails or gnus
1282 gnus | %:group, for messages also all email fields
1447 (defcustom org-insert-labeled-timestamps-at-point nil
1448 "Non-nil means, SCHEDULED and DEADLINE timestamps are inserted at point.
1843 A longer mouse click will still set point. Does not wortk on XEmacs.
2548 "Non-nil means, make file links to `file.org' point to `file.html'.
2555 When nil, the links still point to the plain `.org' file."
2688 ;; make sure special characters appear at the right position in the class
3044 "Matches the DONE keyword a point.")
3160 (goto-char (point-min))
3307 (defvar wl-summary-buffer-elmo-folder)
3308 (defvar wl-summary-buffer-folder-name)
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3402 (if (featurep 'xemacs) (extent-start-position o) (overlay-start o)))
3404 (if (featurep 'xemacs) (extent-end-position o) (overlay-end o)))
3406 "Find all overlays specifying PROP at POS or point.
3408 (let ((overlays (org-overlays-at (or pos (point))))
3566 (= (point-min) (point-max)))
3588 (+ (if (bolp) 1 0) (count-lines 1 (point)))))
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))
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
3751 intangible property is needed to make sure point skips this text.
3834 (setq s (text-property-any (point) (or limit (point-max))
3854 (goto-char (point-min))
3982 (inhibit-read-only t) (inhibit-point-motion-hooks t)
4009 - When point is at the beginning of a headline, rotate the subtree started
4018 a `show-subtree' and return to the previous cursor position. If ARG
4021 - When point is not at the beginning of a headline, execute
4025 - Special case: if point is the the beginning of the buffer and there is
4039 (pos (point)))
4101 (get-char-property (1- (point)) 'invisible))
4102 (beginning-of-line 2)) (setq eol (point)))
4103 (outline-end-of-heading) (setq eoh (point))
4107 (setq eos (1- (point))))
4143 (= (match-end 0) (point-at-eol)))
4150 (point-at-bol) (point))))
4181 (goto-char (point-min))
4195 (goto-char (point-max))
4199 (error (goto-char (point-min))))
4223 (save-excursion (org-end-of-subtree t) (point))))
4228 (goto-char (point-min))
4281 (let* ((org-goto-start-pos (point))
4282 (selected-point
4284 (if selected-point
4287 (goto-char selected-point)
4292 (defvar org-selected-point nil) ; dynamically scoped parameter
4296 This function uses a recursive edit. It returns the selected position
4298 (let (org-selected-point)
4321 (goto-char (point-min)))
4334 org-selected-point))
4339 (setq org-selected-point (point)
4349 (setq org-selected-point (point)
4361 (setq org-selected-point (point)
4369 (setq org-selected-point nil)
4391 (pos (point))
4400 (setq beg (point)
4402 (org-end-of-subtree t) (setq end (point)))
4457 "Insert a new heading or item with same depth at point.
4458 If point is in a plain list and FORCE-HEADING is nil, create a new list item.
4459 If point is at the beginning of a headline, insert a sibling before the
4460 current headline. If point is in the middle of a headline, split the headline
4461 at that position and make the rest of the headline part of the sibling below
4484 (setq pos (point))
4486 (unless (= (point) pos) (just-one-space) (backward-delete-char 1))
4515 (org-fix-position-after-promote))
4523 (org-fix-position-after-promote))
4535 (org-fix-position-after-promote))
4546 (org-fix-position-after-promote))
4548 (defun org-fix-position-after-promote ()
4549 "Make sure that after pro/demotion cursor position is right."
4550 (let ((pos (point)))
4616 (< (point) end))
4620 (< (point) end))
4630 (point-marker)))
4651 (goto-char (point-min))
4665 (goto-char (point-min))
4673 (goto-char (point-min))
4697 (ins-point (make-marker))
4702 (setq beg (point))
4708 (setq end (point))
4709 ;; Find insertion point, with error handling
4723 (move-marker ins-point (point))
4727 (goto-char ins-point)
4729 (move-marker ins-point nil)))
4753 (setq beg (point))
4759 (setq end (point))
4773 before and after the insertion point, and taken to be the inferior headline
4801 ^re_ (buffer-substring (point-at-bol) (point)))
4833 (delete-region (point-at-bol) (point)))
4839 (setq beg (point))
4843 (setq end (point))
4853 (org-map-region func (point-min) (point-max))
4855 (goto-char (point-min))
4890 (progn (org-back-to-heading) (point))
4891 (progn (org-end-of-subtree t) (point)))))
4907 Else, the children of the entry at point are sorted.
4929 (setq start (point)))
4934 (setq start (point) end (org-end-of-subtree) what "children")
4940 (goto-char (point-min))
4942 (setq start (point) end (point-max) what "top-level")
4945 (setq beg (point))
4946 (if (>= (point) end) (error "Nothing to sort"))
5028 "Is point in a line starting a hand-formatted item?"
5031 (goto-char (point-at-bol))
5068 ((and (org-at-item-p) (<= (point) eow))
5072 ((<= (point) eow)
5077 (setq pos (point))
5079 (unless (= (point) pos) (just-one-space) (backward-delete-char 1)))
5087 "Is point at a line starting a plain-list item with a checklet?"
5103 (setq beg (point) end (save-excursion (outline-next-heading) (point))))
5111 (while (< (point) end)
5134 (beg (progn (outline-back-to-heading) (point)))
5136 (progn (outline-next-heading) (point))))
5141 (goto-char (point-min))
5143 (setq beg (point) end (point-max)))
5151 ((org-on-heading-p) (outline-next-heading) (point))
5152 ((org-at-item-p) (org-end-of-item) (point))
5221 (let ((pos (point))
5223 (beginning-of-line 2) (point)))
5233 (if (< (point) limit) (throw 'exit nil))
5247 (let ((pos (point))
5248 (limit (save-excursion (outline-next-heading) (point)))
5257 (if (>= (point) limit) (throw 'exit t))
5270 (let (ind ind1 (pos (point)))
5283 (let (beg ind (pos (point)))
5285 (setq beg (point))
5301 "Move the plain list item at point down, i.e. swap with following item.
5305 (let (beg end ind ind1 (pos (point)) txt)
5307 (setq beg (point))
5310 (setq end (point))
5318 (setq pos (point))
5326 "Move the plain list item at point up, i.e. swap with previous item.
5330 (let (beg end ind ind1 (pos (point)) txt)
5332 (setq beg (point))
5335 (setq end (point))
5354 (setq pos (point))
5362 "Renumber the ordered list at point if setup allows it.
5392 (buffer-substring (point-at-bol) (match-beginning 3))))
5444 (setq beg (move-marker org-last-indent-begin-marker (point)))
5446 (setq end (move-marker org-last-indent-end-marker (point))))
5450 (while (< (point) end)
5453 (delete-region (point-at-bol) (point))
5522 (goto-char (point-max))
5536 (goto-char (point-min))
5545 (goto-char (point-max))
5556 (goto-char (point-max)) (insert "\n"))
5599 (move-marker begm (point))
5602 (move-marker begm (point-min))
5603 (move-marker endm (point-max)))
5608 end (save-excursion (org-end-of-subtree t) (point)))
5629 (beg (if globalp (point-min) (point)))
5630 (end (if globalp (point-max) (org-end-of-subtree t))))
5661 (point-at-eol) t)
5771 If there is already a table at point, convert between Org-mode tables
5803 (let* ((pos (point))
5811 (point-at-bol) (point)))
5838 (setq beg (move-marker (make-marker) (point)))
5841 (setq end (move-marker (make-marker) (point)))
5867 (let ((beg (point))
5868 (pm (point-max)))
5870 (org-table-convert-region beg (+ (point) (- (point-max) pm)) arg)))
5889 (goto-char (point-min))
5893 (goto-char (point-min))
5896 (goto-char (min (1+ (point)) (point-max))))
5897 (goto-char (point-min))
5902 (goto-char (point-min))
5929 "Align the table at point by aligning all vertical bars."
5935 ;; Current cursor position
5939 (winstartline (org-current-line (min winstart (1- (point-max)))))
6072 (move-marker org-table-aligned-begin-marker (point))
6074 (move-marker org-table-aligned-end-marker (point))
6080 (setq winstart (point-at-bol))
6111 "Find the beginning of the table and return its position.
6118 (progn (goto-char (point-min)) (point))
6121 (point))))
6124 "Find the end of the table and return its position.
6131 (goto-char (point-max))
6133 (point-marker)))
6144 (< (point) org-table-aligned-begin-marker)
6145 (>= (point) org-table-aligned-end-marker)))
6149 (let* ((pos (point)) s
6287 "Is point inside a table data field?
6329 (goto-char (min (point-at-eol) (+ 2 pos)))
6335 "Show info about the current field, and highlight any reference at point."
6339 (let* ((pos (point))
6370 (let ((cnt 0) (pos (point)))
6383 (let ((cnt 0) (pos (point)))
6385 (while (<= (point) pos)
6393 With optional argument ON-DELIM, stop with point before the left delimiter
6398 (let ((pos (point-at-eol)))
6447 (if (table--at-cell-p (point))
6474 ;; Current cursor position
6478 (while (< (point) end)
6498 (while (and (< (point) end)
6507 "Please position cursor in a data line for column operations")))))
6519 ;; Current cursor position
6523 (while (< (point) end)
6557 ;; Current cursor position
6565 (while (< (point) end)
6593 (pos (point))
6607 (setq pos (point))
6608 (setq txt (buffer-substring (point) (1+ (point-at-eol))))
6609 (delete-region (point) (1+ (point-at-eol)))
6625 (let* ((line (buffer-substring (point-at-bol) (point-at-eol)))
6633 (re-search-forward "| ?" (point-at-eol) t)
6645 (buffer-substring (point-at-bol) (point-at-eol))))
6678 (kill-region (point-at-bol) (min (1+ (point-at-eol)) (point-max)))
6686 "Sort table lines according to the column at point.
6688 The position of point indicates the column to be used for
6691 exist. If point is before the first column, you will be prompted
6693 specifies the first line and the sorting column, while point
6723 beg (point-at-bol))
6725 (setq end (point-at-bol 2)))
6727 pos (point)
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))))
6863 (while (progn (beginning-of-line 3) (< (point) end))
6880 If there is an active region, and both point and mark are in the same column,
6891 If there is no region, the current field is split at the cursor position and
6919 ;; No region, split the current field at point
6949 (let ((b (save-excursion (skip-chars-backward "^|") (point)))
6950 (e (save-excursion (skip-chars-forward "^|\r\n") (point))))
6955 (let ((pos (move-marker (make-marker) (point)))
6963 (goto-char (setq p (point-max)))
6965 (remove-text-properties p (point-max)
6983 (goto-char (point-min))
7073 (goto-char (point-min))
7075 (message "Mapping tables: %d%%" (/ (* 100.0 (point)) (buffer-size)))
7091 region and point is located in a table column, sum all numbers in that
7112 (setq beg (point))
7117 (setq end (point))))
7280 (while (re-search-forward re2 (point-at-eol) t)
7282 (while (re-search-forward re (point-at-eol) t)
7350 (let ((beg (progn (skip-chars-backward "^ \t\n") (point)))
7351 (end (progn (skip-chars-forward "^ \t\n") (point))))
7422 (setq epos (point-at-eol))
7439 (if (not (= epos (point-at-eol))) (org-table-align))
7566 (buffer-substring (point-at-bol) (point-at-eol)))
7692 (if highlight (org-table-highlight-rectangle (point) (point)))))
7701 (setq beg (point))
7706 (setq end (point))
7709 beg (progn (skip-chars-forward "^|\n") (point))))
7835 (setq beg (point-at-bol)
7836 end (move-marker (make-marker) (1+ (point-at-eol)))))
7873 ;; back to initial position
7950 (pos (move-marker (make-marker) (point)))
7974 (goto-char (point-min))
7993 (goto-char (point-min))
8007 (error "Lost table position - cannot install formulae"))
8029 (let ((pos (point)) beg end ind)
8040 (setq beg (point))
8045 (setq end (point))
8050 (goto-char (point-min))
8055 (untabify (point-min) (point-max))
8056 (goto-char (1+ (point-min)))
8060 (goto-char (point-max))
8068 "Show the location/value of the $ expression at point."
8072 (let ((pos (if local (point) org-pos))
8084 (t (error "No reference at point")))
8086 (when (and match (not (equal (match-beginning 0) (point-at-bol))))
8122 (move-marker pos (point))
8135 (org-table-highlight-rectangle (point) (point))
8139 (org-table-highlight-rectangle (point) (point))
8151 (org-table-highlight-rectangle (point) (point))
8163 ((not var) (error "No reference at point"))
8178 (set-window-start (selected-window) (point-at-bol))
8191 (goto-char (if (< (abs (- p1 (point))) (abs (- p2 (point))))
8222 (setq p (point))
8228 (move-marker pos (point))
8250 (setq beg (or beg (point)) end (or end (point)))
8268 (skip-chars-backward "^|\n") (setq beg (point))
8270 (skip-chars-forward "^|\n") (setq end (point))
8288 "Add overlays to the table at point, to show row/column coordinates."
8296 (setq eol (point-at-eol))
8297 (setq ov (org-make-overlay (point-at-bol) (1+ (point-at-bol))))
8430 (while (setq s (text-property-any s (point-max)
8434 (while (setq s (text-property-any s (point-max) 'org-cwidth 1))
8437 (while (setq s (text-property-any s (point-max) 'invisible 'org-cwidth))
8608 (let ((pos (point)) action)
8684 "Send a tranformed version of this table to the receiver position.
8731 (goto-char (point-min))
8737 (setq beg (point))
8741 (delete-region beg (point))
8759 "Comment or uncomment the orgtbl at point."
8773 (setq beg (point))
8775 (setq end (point)))
8789 (setq pos (point))
9064 ((or (eq major-mode 'vm-summary-mode)
9067 (vm-follow-summary-cursor)
9086 ((eq major-mode 'wl-summary-mode)
9087 (let* ((msgnum (wl-summary-message-number))
9088 (message-id (elmo-message-field wl-summary-buffer-elmo-folder
9093 wl-summary-buffer-elmo-folder msgnum)
9095 msgnum (wl-summary-buffer-msgdb))))
9096 (from (wl-summary-line-from))
9099 (wl-summary-line-subject))))
9104 (setq link (org-make-link "wl:" wl-summary-buffer-folder-name
9135 ((eq major-mode 'gnus-group-mode)
9136 (let ((group (cond ((fboundp 'gnus-group-group-name) ; depending on Gnus
9137 (gnus-group-group-name)) ; version
9138 ((fboundp 'gnus-group-name)
9139 (gnus-group-name))
9142 (org-store-link-props :type "gnus" :group group)
9146 "gnus:")
9150 ((memq major-mode '(gnus-summary-mode gnus-article-mode))
9151 (and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
9152 (let* ((group gnus-newsgroup-name)
9153 (article (gnus-summary-article-number))
9154 (header (gnus-summary-article-header article))
9158 (subject (gnus-summary-subject-string)))
9159 (org-store-link-props :type "gnus" :from from :subject subject
9168 (setq link (org-make-link "gnus:" group
9214 (t (buffer-substring (point-at-bol) (point-at-eol)))))
9231 (buffer-substring (point-at-bol) (point-at-eol))))
9376 (goto-char (point-min))
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.
9545 (goto-char (point-min))
9548 (let* ((pos (point))
9565 (goto-char (point-max))
9568 (let* ((pos (point))
9583 (mouse-set-point ev)
9584 (org-open-at-point 'in-emacs))
9589 (mouse-set-point ev)
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
9606 (move-marker org-open-link-marker (point))
9611 (let (type path link line search (pos (point)))
9625 (when (get-text-property (point) 'org-linked-text)
9627 pos (if (get-text-property (1+ (point)) 'org-linked-text)
9628 (1+ (point)) (point))
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9713 (org-follow-gnus-link group article)))
9774 (browse-url-at-point)))))
9782 These functions are called in turn with point at the location to
9783 which the link should point.
9791 file link, given after a double colon, and `org-open-at-point'
9820 the window configuration before `org-open-at-point' was called using:
9830 in all files. If AVOID-POS is given, ignore matches near that position."
9833 (pos (point))
9841 (goto-char (point-min))
9885 (t (goto-char (point-min))
9899 (goto-char (point-min))
9907 enclose the position of `org-open-link-marker'."
9913 (> (match-beginning 0) (marker-position m))
9914 (< (match-end 0) (marker-position m)))
9918 (and (<= (match-beginning 4) (point))
9919 (>= (match-end 4) (point))))))
9920 (throw 'exit (point)))))))
9948 (goto-char (point-min))
9954 (goto-char (point-min))
9962 "Last position in the mark ring used to go back.")
9971 "Put the current position or POS into the mark ring and rotate it."
9973 (setq pos (or pos (point)))
9976 (or pos (point))
9983 "Jump to the previous position in the mark ring.
9986 Org-mode commands jumping to a different position in the current file,
9987 or to another Org-mode file, automatically push the old position
10062 (defun org-follow-gnus-link (&optional group article)
10064 (require 'gnus)
10065 (funcall (cdr (assq 'gnus org-link-frame-setup)))
10066 (if gnus-other-frame-object (select-frame gnus-other-frame-object))
10068 (gnus-group-read-group 0 nil group)
10069 (gnus-summary-goto-article (string-to-number article) nil t))
10070 (group (gnus-group-jump-to-group group))))
10098 (goto-char (point-min))
10118 (wl-summary-goto-folder-subr folder 'no-sync t nil t nil nil)
10120 (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article))
10121 (wl-summary-redisplay)))
10133 (goto-char (point-max))
10285 (goto-char (point-min))
10291 (let ((b (current-buffer)) (p (point)))
10328 (old-pos (point))
10371 (not (equal old-pos (point))))
10464 (insert tpl) (goto-char (point-min))
10470 (point-at-bol) (match-beginning 0))))
10479 (goto-char (point-min))
10492 (goto-char (point-min))
10507 (goto-char (point-min))
10530 (remember (buffer-substring (point) (mark)))
10544 Key Cursor position Note gets inserted
10548 RET no heading at cursor position, level taken from context.
10567 (goto-char (point-min))
10571 (let* ((txt (buffer-substring (point-min) (point-max)))
10600 (save-excursion (and (goto-char (point-min))
10610 (goto-char (point-min))
10628 (goto-char (point-max))
10635 (goto-char (point-min))
10683 If not found, stay at current position and return nil."
10686 (goto-char (point-min))
10715 This empties the block, puts the cursor at the insert position and returns
10736 (goto-char (point-min))
10748 Update the dynamic block at point. With prefix ARG, update all dynamic
10758 "Update the dynamic block at point
10761 (let* ((pos (point))
10769 "Find the beginning of the dynamic block at point.
10770 Error if there is no scuh block at point."
10771 (let ((pos (point))
10792 "Perform completion on word at point.
10803 (let* ((end (point))
10806 (point)))
10809 (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))
10845 (goto-char (point-min))
11006 (< (point) (+ 2 (or (match-end 2) (match-end 1)))))
11017 org-repeat-re (save-excursion (outline-next-heading) (point)) t)
11046 re (save-excursion (outline-next-heading) (point)) t)
11101 (when (and org-insert-labeled-timestamps-at-point
11122 (narrow-to-region (point) (point))
11128 (goto-char (point-min))
11138 (goto-char (point-max))
11150 (goto-char (point-min))
11175 (move-marker org-log-note-marker (point))
11181 "Pop up a window for taking a note, and add this note later at point."
11185 (move-marker org-log-note-return-to (point))
11231 (setq ind (concat (buffer-substring (point-at-bol) (point)) " "))
11258 (goto-char (point-min))
11273 (org-hide-archived-subtrees (point-min) (point-max)))
11280 "Make sure point and context and visible.
11440 (goto-char (point-min))
11490 (org-hide-archived-subtrees (point-min) (point-max)))
11612 (goto-char (point-min))
11649 (point-at-eol) t)
11654 (setq c0 (current-column) p0 (point)
11660 (and (not (featurep 'xemacs)) c0 (tabify p0 (point)))
11699 (if (re-search-forward "[ \t]+Next change exits" (point-at-eol) t)
11742 (setq ov-start (1- (point-at-eol))
11747 (buffer-substring (1- (point)) (point))
11804 (goto-char (point-min))
11818 (goto-char (point-min))
11868 (goto-char (point-min))
11870 (delete-region (point) (point-at-eol))
11881 (goto-char (point-min)))))
11901 (goto-char (point-min))
12005 (- (point) 20) t))
12126 (org-move-overlay org-date-ovl (1- (point)) (1+ (point)) (current-buffer))
12160 (let ((p (point-min)) (bmp (buffer-modified-p)))
12169 (remove-text-properties (point-min) (point-max) '(end-glyph t)))
12246 (mouse-set-point ev)
12287 (goto-char (point-at-bol))
12288 (re-search-forward org-tr-regexp (point-at-eol) t))
12412 (pos (point))
12416 (if (> (point) 1) (backward-char 1))
12432 "Change the date in the time stamp at point.
12434 `year', `minute', `second'. If WHAT is not given, the cursor position
12436 (let ((pos (point))
12444 (get-text-property (point) 'display)
12445 (not (get-text-property (1- (point)) 'display)))
12522 If there is already a time stamp at the cursor position, update it."
12549 (move-marker org-clock-marker (point) (buffer-base-buffer))
12590 (delete-region (1- (point-at-bol)) (point-at-eol)))
12611 (remove-text-properties (point-min) (point-max) '(:org-clock-minutes t))
12613 (goto-char (point-max))
12636 (put-text-property (point) (point-at-eol) :org-clock-minutes time))))
12650 (goto-char (point-min))
12651 (while (setq p (next-single-property-change (point) :org-clock-minutes))
12678 (setq ov (org-make-overlay (1- (point)) (point-at-eol))
12679 tx (concat (buffer-substring (1- (point)) (point))
12709 (< (point) org-clock-marker)
12710 (> (save-excursion (outline-next-heading) (point))
12740 is inserted at point, surrounded by the special lines.
12841 (move-marker ins (point))
12842 (setq ipos (point))
12843 (insert-before-markers "Clock summary at ["
12858 (goto-char (point-min))
12859 (while (setq p (next-single-property-change (point) :org-clock-minutes))
12898 (goto-char (point-min))
12907 (setq titlepos (point)
12908 total (or (get-text-property (1+ (point)) :org-clock-minutes) 0)
12914 (save-excursion (outline-next-heading) (setq next (point)))
12918 (<= (- (match-end 0) (point)) level)))
13144 "Execute BODY if ther is no `org-protected' text property at point."
13146 `(unless (get-text-property (point) 'org-protected)
13296 (goto-char (point-min))
13307 (goto-char (point-max))
13308 (delete-region (point-at-bol) (point))
13309 (goto-char (point-min)))
13319 (move-marker org-agenda-restrict-begin (point))
13403 (goto-char (point-min)))
13585 (goto-char (point-max))
13586 (unless (= (point) 1)
13588 (narrow-to-region (point) (point-max)))
13617 (goto-char (point-min))
13618 (while (org-activate-bracket-links (point-max))
13639 (remove-text-properties (point-min) (point-max) pall)
13641 (goto-char (point-min))
13644 (add-text-properties (point-at-bol) (org-end-of-subtree t) pa))))
13645 (goto-char (point-min))
13655 Otherwise, the function must return a position from where the search
13663 Also moves point to the end of the skipped region, so that search can
13665 (let ((p (point-at-bol)) to)
13690 (let ((m (copy-marker (or pos (point)))))
13736 (goto-char (point-min))
13738 (push (cons (point) (org-trim (match-string 2))) tbl)))
13742 "Get the category applying to position POS."
13754 (pos (or pos (point))))
13777 (beg (if (org-region-active-p) (region-beginning) (point-min)))
13778 (end (if (org-region-active-p) (region-end) (point-max)))
13802 (setq s (point))
13804 (put-text-property s (1- (point)) 'face 'org-level-3))
13813 (setq s (point))
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)))))
13833 (goto-char (point-min))
13834 (goto-char (or (text-property-any (point-min) (point-max) 'org-today t)
13835 (point-min)))
13836 (add-text-properties (point-min) (point-max) '(org-agenda-type timeline))
13955 (add-text-properties (point-min) (1- (point))
13958 (setq s (point))
13960 (add-text-properties s (1- (point)) (list 'face 'org-level-3))
13963 s (point))
13966 (setq start-pos (point))
13968 (setq end-pos (point))))
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))))
14006 (goto-char (point-min))
14008 (unless (and (pos-visible-in-window-p (point-min))
14009 (pos-visible-in-window-p (point-max)))
14010 (goto-char (1- (point-max)))
14017 (add-text-properties (point-min) (point-max) '(org-agenda-type agenda))
14068 (add-text-properties (point-min) (1- (point))
14070 (setq pos (point))
14072 (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14073 (setq pos (point))
14082 (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14085 (goto-char (point-min))
14087 (add-text-properties (point-min) (point-max) '(org-agenda-type todo))
14140 (add-text-properties (point-min) (1- (point))
14142 (setq pos (point))
14144 (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14145 (setq pos (point))
14148 (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14151 (goto-char (point-min))
14153 (add-text-properties (point-min) (point-max) '(org-agenda-type tags))
14169 If yes, it returns the end position of this tree, causing agenda commands
14232 (if (= (point-max) 1)
14238 (if (= (point-max) 1)
14240 (setq entries (buffer-substring (point-min) (- (point-max) 1)))))
14258 (goto-char (point-min))
14266 (delete-region (point-min) (min (point-max) (1+ (match-end 0)))))
14267 (goto-char (point-min))
14270 (goto-char (point-min))
14281 "Make the position visible."
14295 'org-marker (org-agenda-new-marker (point-at-bol))))
14432 (let ((pos (point)))
14463 (goto-char (point-min))
14468 (setq beg (point) end (progn (outline-next-heading) (point)))
14482 tags (org-get-tags-at (point))
14521 (goto-char (point-min))
14528 tmp (buffer-substring (max (point-min)
14532 timestr (buffer-substring (match-beginning 0) (point-at-eol))
14592 (goto-char (point-min))
14599 timestr (buffer-substring (match-beginning 0) (point-at-eol))
14639 (goto-char (point-min))
14659 (point)
14661 (point))))
14696 (goto-char (point-min))
14715 (point)
14716 (progn (skip-chars-forward "^\r\n") (point))))
14744 (goto-char (point-min))
14748 (setq pos (point))
14758 (setq marker (org-agenda-new-marker (point)))
15015 (setq re (get-text-property (point) 'org-not-done-regexp))
15016 (goto-char (+ (point) (or (get-text-property (point) 'prefix-length) 0)))
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)
15152 (point-min))))
15187 (or (get-text-property (point) 'day)
15204 (or (get-text-property (point) 'day)
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)))
15329 "Go to the Org-mode file which contains the item at point."
15331 (let* ((marker (or (get-text-property (point) 'org-marker)
15334 (pos (marker-position marker)))
15343 (and highlight (org-highlight (point-at-bol) (point-at-eol)))))
15349 (let* ((marker (or (get-text-property (point) 'org-marker)
15352 (pos (marker-position marker))
15359 (setq dbeg (progn (org-back-to-heading t) (point))
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)
15384 (pos (marker-position marker)))
15398 If this information is not given, the function uses the tree at point."
15403 (setq beg (point))
15405 (setq end (point)))
15408 (goto-char (point-max))
15411 (when (and (setq m (get-text-property (point) 'org-marker))
15413 (setq p (marker-position m))
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)
15437 (pos (marker-position marker)))
15451 (mouse-set-point ev)
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."
15472 (mouse-set-point ev)
15477 (if (get-text-property (point) 'org-agenda-diary-link)
15492 (let* ((marker (or (get-text-property (point) 'org-marker)
15495 (pos (marker-position 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)
15515 (pos (marker-position marker))
15516 (hdmarker (get-text-property (point) 'org-hd-marker))
15532 (move-marker org-last-heading-marker (point))))
15548 (goto-char (point-max))
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))
15570 (add-text-properties (point-at-bol) (point-at-eol) props)
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)
15618 (pos (marker-position marker))
15619 (hdmarker (get-text-property (point) 'org-hd-marker))
15638 POS defaults to point. If tags are inherited, the list contains
15646 (goto-char (or pos (point)))
15666 (let* ((hdmarker (or (get-text-property (point) 'org-hd-marker)
15669 (pos (marker-position hdmarker))
15691 (let* ((hdmarker (or (get-text-property (point) 'org-hd-marker)
15694 (pos (marker-position hdmarker))
15716 (let* ((marker (or (get-text-property (point) 'org-marker)
15719 (pos (marker-position marker)))
15741 (goto-char (point-max))
15743 (when (equal marker (get-text-property (point) 'org-marker))
15752 (insert-extent ex (1- (point)) (point-at-eol)))
15754 (1- (point)) (point-at-eol)
15767 (let* ((marker (or (get-text-property (point) 'org-marker)
15770 (pos (marker-position marker)))
15781 "Schedule the item at point."
15785 (let* ((marker (or (get-text-property (point) 'org-marker)
15788 (pos (marker-position 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)
15806 (pos (marker-position marker))
15807 (org-insert-labeled-timestamps-at-point nil)
15826 (let* ((marker (or (get-text-property (point) 'org-marker)
15828 (pos (marker-position marker)))
15870 (point (point))
15871 (mark (or (mark t) (point))))
15874 (unless (and (get-text-property point 'day)
15883 (get-text-property point 'day))))))
15889 (get-text-property point 'day))))
15896 the cursor position."
15899 (unless (get-text-property (point) 'day)
15902 (point (point))
15904 (get-text-property point 'day)))
15914 (get-text-property point 'day))))
15944 (let* ((day (or (get-text-property (point) 'day)
15964 (let ((day (get-text-property (point) 'day))
16016 the LaTeX math segments. If Orgmode thinks that point is actually inside
16038 "Test if point is inside a LaTeX fragment.
16040 sequence appearing also before point.
16045 and the position of this delimiter.
16052 looks only before point, not after."
16054 (let ((pos (point))
16058 (point)))
16062 (setq str (concat (buffer-substring lim (point)) "\000 X$.")
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
16144 (setq beg (point-min) end (point-max)
16148 (setq beg (point) end (org-end-of-subtree t)
16152 (goto-char (max (point-min) (- (cdr at) 2)))
16154 (setq beg (point) end (progn (outline-next-heading) (point))
16198 (goto-char (point-min))
16777 (untabify (point-min) (point-max))
16781 (goto-char (point-min))
16787 (if org-export-with-archived-trees (1+ (point-at-eol)) (point))
16791 (goto-char (point-min))
16796 (goto-char (point-min))
16800 (point-at-bol) (min (1+ (point-at-eol)) (point-max))
16802 (goto-char (point-min))
16809 (goto-char (point-min))
16813 (add-text-properties (point) (org-end-of-subtree t)
16818 (goto-char (point-min))
16823 (goto-char (point-min))
16828 (goto-char (point-min))
16835 (goto-char (point-min))
16852 (goto-char (point-min))
16859 (goto-char (point-min))
16866 (goto-char (point-min))
16881 (goto-char (point-min))
16964 (if (org-region-active-p) (region-beginning) (point-min))
16965 (if (org-region-active-p) (region-end) (point-max))))
17103 (goto-char (point-min))
17104 (while (setq beg (next-single-property-change (point) 'display))
17109 (goto-char (point-min))
17110 (while (setq beg (next-single-property-change (point) 'org-cwidth))
17114 (goto-char (point-min))))
17168 (not (equal (char-before (1- (point))) ?\n)))
17208 (setq s (goto-char (point-min)))
17209 (while (not (= (point) (point-max)))
17211 (append-to-buffer buffer s (point))
17213 (goto-char (point-min))
17222 (min (point-max) (1+ (match-end 0))))))
17232 (goto-char (point-min)))))
17235 (let ((s (point)))
17236 (while (and (not (= (point-max) (setq s (next-overlay-change s))))
17240 (let ((s (point)))
17241 (while (and (not (= (point-max) (setq s (next-overlay-change s))))
17325 (beg (if regionp (region-beginning) (point)))
17400 (if region-p (region-beginning) (point-min))
17401 (if region-p (region-end) (point-max))))
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
17882 (goto-char (point-min))
17885 (goto-char (point-min))
17889 (goto-char (point-min))
18061 (goto-char (point-min))
18068 (buffer-substring (point-min) (point-max))))
18360 (goto-char (point-min))
18372 tmp (buffer-substring (max (point-min)
18398 (goto-char (point-min))
18475 (goto-char (point-min)) ;; CD: beginning-of-buffer is not allowed.
18490 (while (re-search-forward "^\\(\\*+\\) \\(.+\\)" (point-max) 't)
18540 (indent-region (point-min) (point-max) nil)
18542 (goto-char (point-min))
18640 (define-key org-mode-map "\C-c\C-o" 'org-open-at-point)
18731 (string-match "|" (buffer-substring (point-at-bol) (point)))
18733 (let ((pos (point))
18757 (let ((pos (point))
18980 "Set tags in headline, or update according to changed information at point.
19028 (re-search-forward "|" (save-excursion (end-of-line 2) (point)))
19263 ["Follow Link" org-open-at-point t]
19365 "Return a list of contexts of the current cursor position.
19389 This function expects the position to be visible because it uses font-lock
19392 (let* ((f (get-text-property (point) 'face))
19394 (p (point)) clist o)
19398 (push (list :headline (point-at-bol) (point-at-eol)) clist)
19402 (push (org-point-in-group p 1 :headline-stars) clist)
19403 (push (org-point-in-group p 2 :todo-keyword) clist)
19404 (push (org-point-in-group p 4 :tags) clist))
19408 (push (org-point-in-group p 0 :priority) clist)))
19411 (push (org-point-in-group p 2 :item-bullet) clist)
19412 (push (list :item (point-at-bol)
19413 (save-excursion (org-end-of-item) (point)))
19416 (push (org-point-in-group p 0 :checkbox) clist)))
19431 (push (org-point-in-group p 0 :timestamp) clist))
19441 (push (org-point-in-group p 0 :target) clist)
19444 (push (org-point-in-group p 0 :radio-target) clist))
19450 (org-overlays-at (point))))))
19457 (push (list :latex-fragment (point) (point)) clist)))
19463 "Check if point is inside a match of regexp.
19465 lines both before and after point into the search.
19469 (let ((pos (point))
19470 (eol (point-at-eol (+ 1 (or nlines 0))))
19479 (defun org-point-in-group (point group &optional context)
19482 match. If the match group does ot exist or point is not inside it,
19485 (>= point (match-beginning group))
19486 (<= point (match-end group))
19510 (beginning-of-line 1) (setq beg (point))
19511 (beginning-of-line 2) (setq end (point))
19513 (setq pos (move-marker (make-marker) (point)))
19523 (beginning-of-line 1) (setq beg (point))
19524 (beginning-of-line 2) (setq end (point))
19526 (setq pos (move-marker (make-marker) (point)))
19559 "Is point inside a match of REGEXP in the current line?"
19562 (let ((pos (point)) (end (point-at-eol)))
19616 (cond ((equal (char-after (point-at-bol)) ?*) t) ; skip headlines
19675 "Check if point is at a character currently not visible."
19679 (get-char-property (point) 'invisible)))
19682 "Check if point is at a character currently not visible."
19688 (get-char-property (point) 'invisible))))
19709 move point."
19711 (pos (point))
19750 (outline-flag-region (max 1 (1- (point)))
19751 (save-excursion (outline-end-of-heading) (point))
19773 (point))
19778 (point)
19780 (outline-end-of-subtree) (outline-next-heading) (point))
19790 (max 1 (1- (point)))
19793 (or (match-beginning 1) (point-max)))
19836 "Make the position visible."
19840 "Unhide the current position, to show the bookmark location."
19843 (save-excursion (goto-char (max (point-min) (1- (point))))