Lines Matching +refs:gnus +refs:current +refs:article
71 (require 'gnus-sum)
338 been invisible before. When this is set, the sibling of the current entry
340 the same happens on each level of the hierarchy above the current entry.
389 If TAB is used in a place where it does not emulate TAB, the current subtree
577 file. %s will be replaced by the current file name (without directory part).
587 If the current file is Projects.org, archive in file
591 Archive in the current file, under the top-level headline
767 If a horizontal separator line is following the current line,
787 "Non-nil means, increment when copying current field with \\[org-table-copy-down]."
808 "Non-nil means, TAB and RET evaluate a formula in current table field.
809 If the current field starts with an equal sign, it is assumed to be a formula
886 relative relative to the current directory, i.e. the directory of the file
890 adaptive Use relative path for files in the current directory and sub-
972 The command `org-store-link' adds a link pointing to the current
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1064 an indirect buffer clone of the current buffer, to avoid any visibility
1065 changes to the current buffer."
1177 `emacs' The file will be visited by the current Emacs process.
1270 link type that is created. For example, calling `remember' in emails or gnus
1282 gnus | %:group, for messages also all email fields
1674 todo-tree Sparse tree of specific TODO keyword in *current* file.
1675 tags-tree Sparse tree with all tags matches in *current* file.
1676 occur-tree Occur sparse tree for *current* file.
1714 (const :tag "Tags sparse tree (current buffer)" tags-tree)
1715 (const :tag "TODO keyword tree (current buffer)" todo-tree)
1716 (const :tag "Occur tree (current buffer)" occur-tree)
1862 current-window Show agenda in the current window, keeping all other windows.
1865 reorganize-frame Show only two windows on the current frame, the current
1870 (const current-window)
1878 the current status is recorded. When the agenda is exited with
1890 current-window Display in the current window
1897 (const :tag "In current window" current-window)
1898 (const :tag "In current frame, other window" other-window)
1916 When nil, always start on the current day."
1973 today show grid on current date, independent of daily/weekly display
2030 in order to make a time schedule for the current day the first thing in the
2089 current entry. This is useful for fields which should have fixed
3106 "Make VAR local in current buffer and set it to VALUE."
3110 "Check if the current buffer is in Org-mode."
3150 "Precompute regular expressions for current buffer."
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3312 (defvar w3m-current-url)
3313 (defvar w3m-current-title)
3315 (defvar mh-current-folder)
3320 (defvar Info-current-file)
3321 (defvar Info-current-node)
3366 (set-extent-endpoints ovl beg end (or buffer (current-buffer)))
3583 (let ((current-prefix-arg arg)) (call-interactively command)))
3585 (defsubst org-current-line (&optional pos)
3590 (defun org-current-time ()
3598 (current-time)))
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
4211 (when (get-buffer-window (current-buffer))
4221 "Is the end of the current subtree visible?"
4268 "Go to a different location of the document, keeping current visibility.
4275 This command works around this by showing a copy of the current buffer in
4283 (org-get-location (current-buffer) org-goto-help)))
4326 (let ((gm (current-global-map))
4340 current-prefix-arg arg)
4350 current-prefix-arg (- (match-end 0) (match-beginning 0)))
4362 current-prefix-arg (- (match-end 0) (match-beginning 0)))
4379 "Create indirect buffer and narrow it to current subtree.
4389 (let ((cbuf (current-buffer))
4424 ((eq org-indirect-buffer-display 'current-window)
4437 (setq buffer (or buffer (current-buffer)))
4447 "Set the title of the current frame to the string TITLE."
4460 current headline. If point is in the middle of a headline, split the headline
4462 the current headline."
4491 "Insert a new heading with the same level and TODO state as current heading.
4527 "Promote the current heading higher up the tree.
4538 "Demote the current heading lower down the tree.
4561 LEVEL is a current level, CHANGE is by how much the level should be
4571 "Promote the current heading higher up the tree.
4585 "Demote the current heading lower down the tree.
4598 "Call FUN for every heading underneath the current one."
4625 "Change the indentation in the current entry by DIFF
4626 However, if any line in the current entry has no indentation, or if it
4638 (setq col (current-column))
4687 "Move the current subtree up past ARG headlines of the same level."
4692 "Move the current subtree down past ARG headlines of the same level."
4741 "Cut the current subtree into the clipboard.
4747 "Cut the current subtree into the clipboard.
4764 (setq org-subtree-clip (current-kill 0))
4791 (let* ((txt (or tree (and kill-ring (current-kill 0))))
4859 (eq org-subtree-clip (current-kill 0))
4865 "Check if the current kill is an outline subtree, or a set of trees.
4870 If optional TXT is given, check this string instead of the current kill."
4871 (let* ((kill (or txt (and kill-ring (current-kill 0)) ""))
4886 "Narrow buffer to the current subtree."
4932 ;; we will sort the children of the current headline
5052 "Insert a new item at the current level.
5095 "Toggle the checkbox in the current line."
5127 "Update the checkbox statistics in the current section.
5129 with the current numbers. With optional prefix argument ALL, do this for
5168 (if all "in entire file" "in current outline entry") cstat)))))
5182 "Get the indentation of the current line, interpreting tabs.
5190 (current-column))))
5207 If the current indenation in LINE is smaller than the minimum,
5218 "Go to the beginning of the current hand-formatted item.
5229 (setq ind (current-column))
5236 (setq ind1 (current-column))
5244 "Go to the end of the current hand-formatted item.
5252 (current-column)))
5260 (setq ind1 (current-column))
5267 "Move to the beginning of the next item in the current plain list.
5280 "Move to the beginning of the previous item in the current plain list.
5389 (let ((line (org-current-line))
5390 (col (current-column))
5401 (skip-chars-forward " \t") (setq ind1 (current-column))
5413 (skip-chars-forward " \t") (setq ind1 (current-column))
5448 (skip-chars-forward " \t") (setq ind (current-column))
5452 (skip-chars-forward " \t") (setq ind1 (current-column))
5462 "Move the current subtree to the archive.
5463 The archive can be a certain top-level heading in the current file, or in
5465 heading be marked DONE, and the current time will be added.
5484 (this-buffer (current-buffer))
5503 (setq buffer (current-buffer)))
5568 (org-insert-time-stamp (org-current-time) t t "(" ")"))
5581 "Archive sublevels of the current tree without open TODO items.
5654 "Toggle the tag TAG for the current line.
5657 (let (res current)
5663 (setq current (match-string 1))
5665 (setq current ""))
5666 (setq current (nreverse (org-split-string current ":")))
5670 (or (member tag current) (push tag current)))
5672 (or (not (member tag current)) (setq current (delete tag current))))
5673 (t (if (member tag current)
5674 (setq current (delete tag current))
5676 (push tag current))))
5678 (when current
5679 (insert " :" (mapconcat 'identity (nreverse current) ":") ":"))
5684 "Toggle the archive tag for the current headline.
5685 With prefix ARG, check all children of current headline and offer tagging
5742 "Regular expression matching the current column names.")
5748 (defvar org-table-current-line-types nil
5750 (defvar org-table-current-begin-line nil
5753 "Vector of data line line numbers in the current table.")
5755 "Vector of hline line numbers in the current table.")
5804 (indent (make-string (current-column) ?\ ))
5884 (with-current-buffer (find-file-noselect file)
5885 (setq buf (current-buffer))
5936 (linepos (org-current-line))
5937 (colpos (org-table-current-column))
5939 (winstartline (org-current-line (min winstart (1- (point-max)))))
6136 "Justify the current field, text to left, number to right.
6137 Optional argument NEW may specify text to replace the current field content."
6143 (current-buffer)))
6148 (t ;; realign the current field, based on previous full realign
6150 (col (org-table-current-column))
6175 "Go to the next field in the current table, creating new lines as needed.
6222 "Go to the next row (same column) in the current table.
6233 (let ((col (org-table-current-column)))
6245 "Copy a field down in the current column.
6248 If the current field is not empty, it is copied down to the next row, and
6254 (let* ((colpos (org-table-current-column))
6289 This actually throws an error, so it aborts the current command."
6291 (= (org-table-current-column) 0)
6300 "Blank the current table field or active region."
6317 "Return the value of the field in column N of current row.
6318 N defaults to current field.
6335 "Show info about the current field, and highlight any reference at point."
6340 (col (org-table-current-column))
6342 (name (car (rassoc (list (org-current-line) col)
6345 (dline (org-table-current-dline))
6364 (defun org-table-current-column ()
6377 (defun org-table-current-dline ()
6392 "Move the cursor to the Nth column in the current table line.
6471 (let* ((col (max 1 (org-table-current-column)))
6475 (linepos (org-current-line))
6491 "Find a dataline in the current table, which is needed for column commands."
6495 (let ((col (current-column))
6499 (or (not (= (current-column) col))
6516 (let* ((col (org-table-current-column))
6520 (linepos (org-current-line))
6547 "Move the current column to the right. With arg LEFT, move to the left."
6553 (let* ((col (org-table-current-column))
6558 (linepos (org-current-line))
6590 "Move the current table line down. With arg UP, move it up."
6592 (let* ((col (current-column))
6596 (dline1 (org-table-current-dline))
6620 "Insert a new row above the current line into the table.
6621 With prefix ARG, insert below the current line."
6636 (org-table-fix-formulas "@" nil (1- (org-table-current-dline)) 1)))
6639 "Insert a horizontal-line below the current line into the table.
6640 With prefix ARG, insert above the current line."
6646 (col (current-column)))
6672 "Delete the current row or horizontal line from the table."
6676 (let ((col (current-column))
6677 (dline (org-table-current-dline)))
6707 (let* ((thisline (org-current-line))
6708 (thiscol (org-table-current-column))
6722 (setq column (org-table-current-column)
6726 (setq column (org-table-current-column)
6745 (setq bcol (current-column))
6748 (setq ecol (1- (current-column)))
6776 (setq l01 (org-current-line)
6777 c01 (org-table-current-column))
6780 (setq l02 (org-current-line)
6781 c02 (org-table-current-column))
6802 The upper right corner ends up in the current field. All involved fields
6811 (line (org-current-line))
6812 (col (org-table-current-column))
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
6895 If there is no region, but you specify a prefix ARG, the current field gets
6902 (cline (save-excursion (goto-char beg) (org-current-line)))
6903 (ccol (save-excursion (goto-char beg) (org-table-current-column)))
6919 ;; No region, split the current field at point
6923 (col (org-table-current-column)))
6957 (cw (current-window-configuration))
6981 (cb (current-buffer))
7085 "Sum numbers in region of current table column.
7107 (setq col (org-table-current-column))
7162 (defun org-table-current-field-formula ()
7163 "Return the formula active for the current field.
7165 (let* ((name (car (rassoc (list (org-current-line)
7166 (org-table-current-column))
7168 (col (org-table-current-column))
7170 (ref (format "@%d$%d" (org-table-current-dline) col))
7182 (name (car (rassoc (list (org-current-line)
7183 (org-table-current-column))
7185 (ref (format "@%d$%d" (org-table-current-dline)
7186 (org-table-current-column)))
7190 (int-to-string (org-table-current-column))))
7227 "Store the list of formulas below the current table."
7246 "Return an alist with the stored formulas directly after current table."
7299 org-table-current-begin-line nil
7300 org-table-current-line-types nil)
7325 (setq line (org-current-line) col 1)
7336 (setq org-table-current-begin-line (org-current-line)
7337 l org-table-current-begin-line)
7343 (setq org-table-current-line-types (apply 'vector (nreverse types))
7348 ;; Get the current word
7355 "Check if the current field starts with \"=\" or \":=\".
7396 (l (org-current-line))
7397 (l1 (if (org-region-active-p) (org-current-line (region-beginning))))
7398 (l2 (if (org-region-active-p) (org-current-line (region-end))))
7403 (col (org-table-current-column))
7435 (while (progn (beginning-of-line 2) (not (= (org-current-line) l2)))
7444 "Recompute the current line if marked for it, and if we haven't just done it."
7448 (equal org-last-recalc-line (org-current-line))))
7480 In a table, this command replaces the value in the current field with the
7481 result of a formula. It also installs the formula as the \"current\" column
7483 with a `C-u' prefix, the current field must ba a named field, and the
7487 for the field back into the current field, so that it can be
7513 (let ((eq (org-table-current-field-formula)))
7514 (or eq (error "No equation active for current field"))
7526 (n0 (org-table-current-column))
7655 the current column, to avoid unnecessary parsing.
7661 (or col (setq col (org-table-current-column)))
7662 (let ((thisline (org-current-line))
7719 (setq cline (or cline (org-current-line))
7720 bline (or bline org-table-current-begin-line)
7721 table (or table org-table-current-line-types))
7794 "Recalculate the current table line by applying all stored formulas.
7807 (thisline (org-current-line))
7808 (thiscol (org-table-current-column))
7844 (setq org-last-recalc-line (org-current-line))
7945 "Edit the formulas of the current table in a separate buffer."
7951 (wc (current-window-configuration))
8041 (setq ind (make-string (current-column) ?\ ))
8257 (setq l1 (org-current-line)
8258 c1 (org-table-current-column))
8260 (setq l2 (org-current-line)
8261 c2 (org-table-current-column))
8591 ["Which Column?" org-table-current-column :active (org-at-table-p) :keys "C-c ?"]
8797 If the value is a protperty list, get the element for the current column.
9027 "\\<org-mode-map>Store an org-link to the current location.
9039 (let ((name (bbdb-record-name (bbdb-current-record)))
9040 (company (bbdb-record-company (bbdb-current-record))))
9047 (file-name-nondirectory Info-current-file)
9048 ":" Info-current-node))
9049 (setq cpltxt (concat (file-name-nondirectory Info-current-file)
9050 ":" Info-current-node))
9051 (org-store-link-props :type "info" :file Info-current-file
9052 :node Info-current-node))
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
9169 "#" (number-to-string article))))))
9177 (setq cpltxt (or w3m-current-title w3m-current-url)
9178 link (org-make-link w3m-current-url))
9194 ;; link to the file in the current line
9202 ;; Just link to current headline
9302 "Make search string for STRING or current headline."
9374 "Find a header field in the current buffer."
9424 the current directory if the file is in the current directory or a
9429 is in the current directory or below.
9492 ;; Check if we are linking to the current file with a search option
9602 the end of the current subtree.
9607 (setq org-window-config-before-follow-link (current-window-configuration))
9680 (org-get-buffer-for-internal-link (current-buffer)))
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9708 (let (group article)
9712 article (match-string 3 path))
9713 (org-follow-gnus-link group article)))
9716 (let (folder article)
9720 article (match-string 3 path))
9722 (org-follow-vm-link folder article in-emacs)))
9725 (let (folder article)
9729 article (match-string 3 path))
9730 (org-follow-wl-link folder article)))
9733 (let (folder article)
9737 article (match-string 3 path))
9738 (org-follow-mhe-link folder article)))
9741 (let (folder article)
9745 article (match-string 3 path))
9746 (org-follow-rmail-link folder article)))
9814 Each function can access the current prefix argument through the
9815 variable `current-prefix-argument'. Note that a single prefix is
9829 If the current buffer is in `dired-mode', grep will be used to search
9912 (if (and (or (not (eq (marker-buffer m) (current-buffer)))
9935 (with-current-buffer ib (org-overview))
9971 "Put the current position or POS into the mark ring and rotate it."
9977 (or buffer (current-buffer)))
9986 Org-mode commands jumping to a different position in the current file,
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))
10067 (cond ((and group article)
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))))
10072 (defun org-follow-vm-link (&optional folder article readonly)
10075 (setq article (org-add-angle-brackets article))
10094 (when article
10100 (concat "^" "message-id: *" (regexp-quote article))))
10107 (defun org-follow-wl-link (folder article)
10110 article
10111 (string-match "^\\([^#]+\\)\\(#\\(.*\\)\\)?" article))
10113 ;; Thus, we recompose folder and article ids.
10114 (setq folder (format "%s#%s" folder (match-string 1 article))
10115 article (match-string 3 article)))
10119 (and article
10120 (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article))
10123 (defun org-follow-rmail-link (folder article)
10125 (setq article (org-add-angle-brackets article))
10136 (or article "")))
10148 "Return the name of the current message real folder, so if you use
10153 mh-current-folder
10186 "Return the name of the current message folder. Be careful if you
10190 mh-current-folder
10195 "Return the number of the current message. Be careful if you
10211 (with-current-buffer buffer
10223 (defun org-follow-mhe-link (folder article)
10234 (if (not article)
10236 (setq article (org-add-angle-brackets article))
10240 (mh-search folder (list "--message-id" article))
10244 (mh-search "+" (list "--message-id" article))))
10245 (mh-search "+" article))
10289 (if (and (match-beginning 0) (equal current-prefix-arg '(16)))
10291 (let ((b (current-buffer)) (p (point)))
10327 (old-buffer (current-buffer))
10370 (or (not (equal old-buffer (current-buffer)))
10408 "Return a link to the current location as an annotation for remember.el.
10418 RET on headline -> Store as sublevel entry to current headline
10419 <left>/<right> -> before/after current headline, same headings level")
10444 (v-t (format-time-string (car org-time-stamp-formats) (org-current-time)))
10445 (v-T (format-time-string (cdr org-time-stamp-formats) (org-current-time)))
10550 <left> on headline as same level, before current heading
10551 <right> on headline as same level, after current heading
10554 the default file. This way your current train of thought is not
10560 is constructed from the current date and some additional data.
10572 (fastp current-prefix-arg)
10590 first (concat "* " (current-time-string)
10599 (with-current-buffer (or visiting (get-file-buffer file))
10620 (org-get-location (current-buffer) org-remember-help)))
10639 ((and (org-on-heading-p nil) (not current-prefix-arg))
10652 (org-paste-subtree current-prefix-arg txt)))
10655 (if (not visiting) (kill-buffer (current-buffer)))))))))
10666 "Check if the current file should receive notes in reversed order."
10683 If not found, stay at current position and return nil."
10731 "Apply COMMAND to all dynamic blocks in the current buffer.
10795 If the current word is preceded by a backslash, completes the TeX symbols
10797 If the current word is preceded by \"#+\", completes special words for
10829 (org-split-string (org-get-current-options) "\n")))
10993 (org-add-planning-info 'closed (org-current-time)
11023 "Check if the current headline contains a REPEAT key.
11113 (setq col (current-column))
11183 (setq org-log-note-window-configuration (current-window-configuration))
11204 (kill-buffer (current-buffer))
11218 (current-time)))
11236 (with-current-buffer (marker-buffer org-log-note-return-to)
11311 "Show current entry, hierarchy above it, and the following headline.
11334 from the `before-change-functions' in the current buffer."
11351 "Increase the priority of the current item."
11356 "Decrease the priority of the current item."
11365 (let (current new news have remove)
11369 (setq current (string-to-char (match-string 2))
11371 (setq current org-default-priority))
11381 (setq new (1- current)))
11383 (setq new (1+ current)))
11402 (message "Priority of current item set to %s" news))))
11460 ;; compile tags for current headline
11603 "Set the tags for the current headline.
11604 With prefix ARG, realign all tags in headings in the current buffer."
11607 (current (org-get-tags))
11608 table current-tags inherited-tags ; computed below when needed
11619 (setq tags current)
11624 current-tags (org-split-string current ":")
11626 (nthcdr (length current-tags)
11632 (org-fast-tag-selection current-tags inherited-tags table)
11636 nil nil current 'org-tags-history))))))
11648 (concat "\\([ \t]*" (regexp-quote current) "\\)[ \t]*$")
11654 (setq c0 (current-column) p0 (point)
11706 (defun org-set-current-tags-overlay (current prefix)
11707 (let ((s (concat ":" (mapconcat 'identity current ":") ":")))
11714 (defun org-fast-tag-selection (current inherited table)
11716 CURRENT is the current list of tags in the headline, INHERITED is the
11720 Returns the new tags string, or nil to not change the current settings."
11725 (buf (current-buffer))
11748 (if (> (current-column) org-tags-column)
11750 (make-string (- org-tags-column (current-column)) ?\ ))))))
11760 (org-fast-tag-insert "Current" current c-face "\n\n")
11762 (org-set-current-tags-overlay current ov-prefix)
11791 ((member tg current) c-face)
11835 (setq current nil)
11842 (with-current-buffer buf
11847 (if (member tg current)
11848 (setq current (delete tg current))
11849 (push tg current)))
11852 (if (member tg current)
11853 (setq current (delete tg current))
11857 (setq current (delete x current)))
11859 (push tg current))
11863 (setq current
11864 (sort current
11871 (org-fast-tag-insert "Current" current c-face)
11872 (org-set-current-tags-overlay current ov-prefix)
11878 ((member tg current) c-face)
11884 (mapconcat 'identity current ":")
11888 "Get the TAGS string in the current headline."
11918 specified by the user will be filled in from the current date/time.
11920 will represent the current date/time. If there is already a timestamp
11967 Unrecognized parts of the date will default to the current day, month, year,
11998 (ct (org-current-time))
12029 (calendar-current-date))))
12031 (let* ((old-map (current-local-map))
12117 "Eval FORM in the calendar window and return to current window.
12126 (org-move-overlay org-date-ovl (1- (point)) (1+ (point)) (current-buffer))
12234 (time-to-days (current-time))))
12237 "Is the time in TIMESTAMP-STRING close to the current date?"
12290 (error "Not at a time-stamp range, and none found in current line")))
12500 "Go to the Emacs calendar at the current date.
12501 If there is a time stamp in the current line, go to that date.
12502 A prefix ARG can be used to force the current date."
12512 (let ((d1 (time-to-days (current-time)))
12532 "Start the clock on the current item.
12548 (setq ts (org-insert-time-stamp (current-time) 'with-hm 'inactive))
12570 (setq te (org-insert-time-stamp (current-time) 'with-hm 'inactive))
12667 "Put an overlays on the current line, displaying TIME.
12680 (make-string (+ off (max 0 (- c (current-column)))) ?.)
12695 from the `before-change-functions' in the current buffer."
12704 (defun org-clock-out-if-current ()
12705 "Clock out if the current entry contains the running clock.
12708 (equal (marker-buffer org-clock-marker) (current-buffer))
12720 'org-clock-out-if-current)
12723 "Check if the current buffer contains the running clock.
12725 (when (and (equal (marker-buffer org-clock-marker) (current-buffer))
12785 The range is determined relative to TIME. TIME defaults to the current time.
12787 returned by `current time' or `encode-time'. if AS-STRINGS is non-nil,
12789 (let* ((tm (decode-time (or time (current-time))))
13139 "Buffers that have already seen `undo-start' in the current undo sequence.")
13152 `(let ((_cline (org-current-line))
13154 (_buf1 (current-buffer))
13157 (_undo2 (with-current-buffer ,_buffer buffer-undo-list))
13162 _undo1 (with-current-buffer _buf1 buffer-undo-list))
13164 _undo2 (with-current-buffer _buf2 buffer-undo-list)))
13167 (and _c1 (with-current-buffer _buf1 (undo-boundary)))
13168 (and _c2 (with-current-buffer _buf2 (undo-boundary)))
13192 (with-current-buffer buf
13226 a Call `org-agenda-list' to display the agenda for current day or week.
13233 l Create a timeeline for the current buffer.
13239 If the current buffer is in Org-mode and visiting a file, you can also
13241 next use of \\[org-agenda]) restricted to the current file."
13244 (let* ((buf (current-buffer))
13255 (setq org-agenda-last-dispatch-buffer (current-buffer))
13264 a Agenda for current week or day
13267 L Timeline for current buffer # List stuck projects (!=configure)
13295 (org-add-props "1 Restrict call to current buffer 0 Restrict call to region or subtree" nil 'face 'org-table)))
13305 (error "Cannot restrict agenda to current buffer"))
13306 (with-current-buffer " *Agenda Commands*"
13312 (with-current-buffer buf
13324 (if restrict-ok " (restricted to current file)" ""))
13337 (org-let lprops '(org-tags-view current-prefix-arg match)))
13344 (org-let lprops '(org-tags-sparse-tree current-prefix-arg match)))
13390 '(org-tags-view current-prefix-arg match)))
13425 "Make sure current buffer is in org-mode. Error if not."
13457 (let ((cw (current-window-configuration)))
13464 (kill-buffer (current-buffer))))
13494 If the current buffer visits an agenda file, find the next one in the list.
13495 If the current buffer does not, find the first agenda file."
13512 "Move/add the current file to the end of the agenda file list.
13519 "Move/add the current file to the top of the agenda file list.
13541 "Remove current file from the list of files in variable `org-agenda-files'.
13543 Optional argument FILE means, use this file instead of the current."
13594 ((equal (current-buffer) abuf) nil)
13596 ((not (setq org-pre-agenda-window-conf (current-window-configuration))))
13597 ((equal org-agenda-window-setup 'current-window)
13654 If this function return nil, the current match should not be skipped.
13683 (defvar org-agenda-last-marker-time (time-to-seconds (current-time))
13691 (setq org-agenda-last-marker-time (time-to-seconds (current-time)))
13698 (> (- (time-to-seconds (current-time))
13728 (with-current-buffer buf (save-buffer)))
13733 "Get the table of categories and positions in current buffer."
13762 "Show a time-sorted view of the entries in the current org file.
13765 under the current date.
13776 (date (calendar-current-date))
13782 (today (time-to-days (current-time)))
13788 (list 'switch-to-buffer-other-window (current-buffer))
13850 (setq dates (list (time-to-days (current-time)))))
13892 The view will be for the current week, but from the overview buffer you
13895 also be shown, under the current date.
13917 (today (time-to-days (current-time)))
14038 (let* ((today (time-to-days (current-time)))
14056 '(org-todo-list (or current-prefix-arg org-last-arg)))
14110 (list 'if 'current-prefix-arg nil match)))
14124 (with-current-buffer buffer
14168 "Checks if the current subtree contains match for `org-agenda-skip-regexp'.
14206 (with-current-buffer org-agenda-buffer-name
14209 (or current-prefix-arg org-last-arg))))))
14230 (with-current-buffer fancy-diary-buffer
14373 the one returned by `calendar-current-date'. ARGS are symbols indicating
14386 (with-current-buffer buffer
14401 (equal date (calendar-current-date)))
14416 (equal date (calendar-current-date)))
14422 "Is the current entry marked DONE?"
14635 (todayp (equal date (calendar-current-date))) ; DATE bound by calendar
14649 ;; Past-due deadlines are only shown on the current date
14692 (todayp (equal date (calendar-current-date))) ; DATE bound by calendar
15093 (let ((buf (current-buffer)))
15124 (line (org-current-line))
15125 (window-line (- line (org-current-line (window-start)))))
15240 org-hl begin end (or buffer (current-buffer))))
15312 "Show the priority of the current item.
15320 "Show the tags applicable to the current item."
15346 "Kill the entry or subtree belonging to the current agenda entry."
15355 (with-current-buffer buffer
15374 (with-current-buffer buffer (delete-region dbeg dend))
15378 "Kill the entry or subtree belonging to the current agenda entry."
15386 (with-current-buffer buffer
15399 (let ((buf (or buf (current-buffer))) m p)
15421 "Follow the link in the current line, if any."
15429 (error "No link in current line")))))
15484 "Show the subtree corresponding to the current entry in an indirect buffer.
15496 (with-current-buffer buffer
15511 (let* ((col (current-column))
15520 (with-current-buffer buffer
15596 (current-column))) ?\ )
15623 (with-current-buffer buffer
15640 the tags of the current headline come last."
15662 "Set tags for the current headline."
15673 (with-current-buffer buffer
15687 "Toggle the archive tag for the current entry."
15698 (with-current-buffer buffer
15721 (with-current-buffer buffer
15772 (with-current-buffer buffer
15792 (with-current-buffer buffer
15810 (with-current-buffer buffer
15817 "Return the heading of the current entry, without the stars."
15830 (with-current-buffer (marker-buffer marker)
16122 "Remove all overlays with LaTeX fragment images in current buffer."
16130 all fragments in the current text, from one headline to the next. With
16131 prefix SUBTREE, display all fragments in the current subtree. With a
16248 (insert "\\documentclass{article}
16293 (defvar org-current-export-file nil) ; dynamically scoped parameter
16294 (defvar org-current-export-dir nil) ; dynamically scoped parameter
16426 \[i] export current file as iCalendar file
16430 \[F] publish current file
16431 \[P] publish current project
16444 (?F . org-publish-current-file)
16445 (?P . org-publish-current-project)
16846 org-current-export-file)))
16847 org-current-export-dir nil "Creating LaTeX image %s"))
16922 "Return a string with the current section number.
16951 (defvar org-ascii-current-indentation nil) ; For communication
16972 (org-ascii-current-indentation '(0 . 0))
16985 (date (format-time-string "%Y/%m/%d" (current-time)))
16986 (time (format-time-string "%X" (org-current-time)))
17098 (insert (org-fix-indentation line org-ascii-current-indentation) "\n"))))
17166 (setq org-ascii-current-indentation (cons (* 2 (1+ n)) ind)))
17177 (setq org-ascii-current-indentation '(0 . 0)))))
17180 "Create a copy of the visible part of the current buffer, and export it.
17192 current-prefix-arg))
17206 (with-current-buffer buffer (erase-buffer))
17247 (defun org-get-current-options ()
17248 "Return a string with current options as keyword options.
17309 (let ((s (org-get-current-options)))
17316 If there is no active region, the QUOTE keyword at the current headline is
17333 (setq cc (current-column))
17404 (org-current-export-dir (org-export-directory :html opt-plist))
17405 (org-current-export-file buffer-file-name)
17422 (current-dir (file-name-directory buffer-file-name))
17425 (date (format-time-string "%Y/%m/%d" (current-time)))
17426 (time (format-time-string "%X" (org-current-time)))
17704 (funcall link-validate filename current-dir)
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
17824 ;; continue current list
18058 (with-current-buffer (get-buffer-create " org-tmp1 ")
18065 (with-current-buffer (get-buffer-create " org-tmp2 ") (erase-buffer))
18277 "Export current file as an iCalendar file.
18325 (with-current-buffer ical-buffer (erase-buffer)))
18345 The iCalendar buffer is still current when this hook is run.
18350 "Print iCalendar entries for the current Org-mode file to `standard-output'.
18355 (format-time-string (cdr org-time-stamp-formats) (current-time))
18429 (timezone (cadr (current-time-zone))))
18463 (with-current-buffer buffer
18470 (interactive (list (current-buffer)))
18474 (with-current-buffer (get-buffer buffer)
18487 (with-current-buffer out (erase-buffer))
18783 ;; How to do this: Measure non-white length of current string
18918 "Increase item in timestamp or increase priority of current headline.
18929 "Decrease item in timestamp or decrease priority of current headline.
18955 "Copy region in table or copy current subtree.
18963 "Cut region in table or cut current subtree.
18985 into the current line, aligned to `org-tags-column'. When called
18986 with prefix arg, realign all tags in the current buffer.
19001 - If the current buffer is a remember buffer, close note and file it.
19019 (message "Temporary highlights/overlays removed from current buffer"))
19020 ((and (local-variable-p 'org-finish-function (current-buffer))
19127 ["Which Column?" org-table-current-column (org-at-table-p)])
19254 ("Special views current file"
19353 ["Reset to Current" Custom-reset-current t]
19365 "Return a list of contexts of the current cursor position.
19464 Normally only the current line is checked, but you can include NLINES extra
19506 "Move the current line down. With prefix argument, move it past ARG lines."
19508 (let ((col (current-column))
19519 "Move the current line up. With prefix argument, move it past ARG lines."
19521 (let ((col (current-column))
19559 "Is point inside a match of REGEXP in the current line?"
19659 "Go to the beginning of the current line. If that is invisible, continue
19726 "Show all siblings of the current headline."
19739 "Flag the current heading. FLAG non-nil means make invisible.
19840 "Unhide the current position, to show the bookmark location."