• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.10.1/emacs-93/emacs/lisp/textmodes/

Lines Matching +defs:gnus +defs:make +defs:sort +defs:function

71   (require 'gnus-sum)
148 When the function `org-mode' is called interactively in an empty file, this
268 "Options about how to make context of a location visible."
376 this way, `org-cycle-hook' is disables temporarily, to make sure the
401 The function(s) in this hook must accept a single argument which indicates
738 "Fraction of numbers in a column required to make the column align right.
857 (make-variable-buffer-local 'org-link-abbrev-alist-local)
869 also be a function that will be called with the tag as the only argument to
977 will be removed from the list, to make completing the unused links
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1077 This is a list with the first element being a lisp function, and the
1078 remaining elements being arguments to the function. In string arguments,
1086 (cons :tag "other" (function) (repeat :tag "argument" sexp))))
1088 (defcustom org-confirm-shell-link-function 'yes-or-no-p
1105 (defcustom org-confirm-elisp-link-function 'yes-or-no-p
1241 When nil, just let remember make the buffer.
1270 link type that is created. For example, calling `remember' in emails or gnus
1282 gnus | %:group, for messages also all email fields
1325 action is required, and will make the entry show up in todo lists, diaries
1476 (make-variable-buffer-local 'org-display-custom-times)
1509 "Non-nil means, make the calendar window follow timestamp changes.
1597 make sure all corresponding TODO items find their way into the list."
1623 (make-variable-buffer-local 'org-category)
1717 (symbol :tag "Other, user-defined function"))
1750 (list :tag "Other, user-defined function"
1751 (symbol :tag "function")
2029 means: Pull out all entries having a specified time of day and sort them,
2030 in order to make a time schedule for the current day the first thing in the
2032 the grouped in categories, don't sort the categories, but keep them in
2033 the sequence given in `org-agenda-files'. Within each category sort by
2049 (defcustom org-sort-agenda-notime-is-late t
2243 Note that a numeric prefix argument to an exporter function overrides
2548 "Non-nil means, make file links to `file.org' point to `file.html'.
2644 make this work.
2688 ;; make sure special characters appear at the right position in the class
2802 (defface org-level-1 ;; font-lock-function-name-face
2957 (defface org-table ;; font-lock-function-name-face
3026 (make-variable-buffer-local 'org-done-string)
3029 (make-variable-buffer-local 'org-todo-regexp)
3032 (make-variable-buffer-local 'org-not-done-regexp)
3035 (make-variable-buffer-local 'org-todo-line-regexp)
3039 (make-variable-buffer-local 'org-todo-line-tags-regexp)
3042 (make-variable-buffer-local 'org-nl-done-regexp)
3045 (make-variable-buffer-local 'org-looking-at-done-regexp)
3048 (make-variable-buffer-local 'org-todo-kwd-priority-p)
3051 (make-variable-buffer-local 'org-todo-kwd-max-priority)
3054 (make-variable-buffer-local 'org-ds-keyword-length)
3057 (make-variable-buffer-local 'org-deadline-regexp)
3060 (make-variable-buffer-local 'org-deadline-time-regexp)
3063 (make-variable-buffer-local 'org-deadline-line-regexp)
3066 (make-variable-buffer-local 'org-scheduled-regexp)
3069 (make-variable-buffer-local 'org-scheduled-time-regexp)
3072 (make-variable-buffer-local 'org-closed-time-regexp)
3076 (make-variable-buffer-local 'org-keyword-time-regexp)
3079 (make-variable-buffer-local 'org-keyword-time-not-clock-regexp)
3082 (make-variable-buffer-local 'org-maybe-keyword-time-regexp)
3107 (set (make-variable-buffer-local var) value))
3119 (put 'org-let 'lisp-indent-function 1)
3123 (put 'org-let2 'lisp-indent-function 2)
3152 (let ((re (org-make-options-regexp
3190 (set (make-local-variable var) val)
3192 (set (make-local-variable var) nil))
3193 (set (make-local-variable var) (symbol-value var))
3286 (defvar org-finish-function nil
3303 (defvar font-lock-unfontify-region-function)
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3331 ;; FIXME: Occasionally check by commenting these, to make sure
3356 (defun org-make-overlay (beg end &optional buffer)
3358 (make-extent beg end buffer)
3359 (make-overlay beg end buffer)))
3375 (let ((gl (make-glyph text)))
3385 (let ((gl (make-glyph text)))
3417 (defun org-add-hook (hook function &optional append local)
3420 (add-local-hook hook function append)
3421 (add-hook hook function append local)))
3470 ;; We use a before-change function to check if a table might need
3474 This variable is set by `org-before-change-function'.
3529 (setq org-display-table (make-display-table)))
3538 (org-set-local 'font-lock-unfontify-region-function
3540 ;; Activate before-change-function
3542 (org-add-hook 'before-change-functions 'org-before-change-function nil
3556 (not (boundp 'outline-isearch-open-invisible-function)))
3557 ;; Emacs 21 and XEmacs make use of the hook
3560 (org-set-local 'outline-isearch-open-invisible-function
3563 ;; If empty file that did not turn on org-mode automatically, make it to.
3607 (put 'org-add-props 'lisp-indent-function 2)
3612 (defvar org-mouse-map (make-sparse-keymap))
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
3751 intangible property is needed to make sure point skips this text.
3829 (org-make-target-link-regexp (org-all-targets 'radio)))
3859 (defun org-make-target-link-regexp (targets)
3995 (make-variable-buffer-local 'org-cycle-global-status)
3997 (make-variable-buffer-local 'org-cycle-subtree-status)
4003 - When this function is called with a prefix argument, rotate the entire
4026 no headline in line 1, this function will act as if called with prefix arg."
4210 This function is the default value of the hook `org-cycle-hook'."
4237 (defvar org-goto-map (make-sparse-keymap))
4296 This function uses a recursive edit. It returns the selected position
4324 ;; now we make sure that during selection, ony very few keys work
4411 (select-frame (make-frame))
4420 (setq org-indirect-dedicated-frame (make-frame)))))
4443 (make-indirect-buffer buffer bname 'clone)
4444 (error (make-indirect-buffer buffer bname)))))
4461 at that position and make the rest of the headline part of the sibling below
4576 (up-head (make-string (org-get-legal-level level -1) ?*))
4590 (down-head (make-string (org-get-legal-level level 1) ?*))
4697 (ins-point (make-marker))
4896 (defun org-sort (with-case)
4897 "Call `org-sort-entries' or `org-table-sort-lines', depending on context."
4900 (org-call-with-arg 'org-table-sort-lines with-case)
4901 (org-call-with-arg 'org-sort-entries with-case)))
4903 (defun org-sort-entries (&optional with-case sorting-type)
4906 Else, if the cursor is before the first entry, sort the top-level items.
4911 type unless it has been given to the function through the SORTING-TYPE
4921 ;; Find beginning and end of region to sort
4924 ;; we will sort the region
4932 ;; we will sort the children of the current headline
4939 ;; we will sort the top-level entries in this file
4946 (if (>= (point) end) (error "Nothing to sort"))
4954 (error "Region to sort contains a level above the first entry"))
4968 (setq entries (org-do-sort entries what with-case sorting-type)))
4984 (defun org-do-sort (table what &optional with-case sorting-type)
4987 function does not specify it. WHAT is only for the prompt, to indicate
5019 (sort (mapcar (lambda (x) (cons (funcall extractfun (car x)) (cdr x)))
5135 (end (move-marker (make-marker)
5198 (make-string
5214 (concat (make-string i1 ?\ ) l)
5425 (defvar org-last-indent-begin-marker (make-marker))
5426 (defvar org-last-indent-end-marker (make-marker))
5587 (begm (make-marker))
5588 (endm (make-marker))
5595 (make-string
5709 (defun org-before-change-function (beg end)
5804 (indent (make-string (current-column) ?\ ))
5808 (line (concat (apply 'concat indent "|" (make-list columns " |"))
5814 ;; (mapcar (lambda (x) (insert line)) (make-list rows t))
5828 slightly, to make sure a beginning of line in the first line is included.
5838 (setq beg (move-marker (make-marker) (point)))
5841 (setq end (move-marker (make-marker) (point)))
5908 (defvar org-table-aligned-begin-marker (make-marker)
5911 (defvar org-table-aligned-end-marker (make-marker)
5922 (make-variable-buffer-local 'org-table-overlay-coordinates)
5948 (make-string sp2 ?\ ) "%%%s%ds" (make-string sp1 ?\ ) "|"))
5950 (make-string sp2 ?-) "%s" (make-string sp1 ?-) "+"))
5974 (setq indent (make-string (- (match-end 0) (match-beginning 0)) ?\ )))
5997 (setq emptystrings (make-list maxfields ""))
6043 ;; So we need to make these fields wide by hand.
6052 (setcar c (concat (car c) (make-string (- len (org-string-width (car c))) ?\ )))))))
6059 hfmt (concat hfmt (format hfmt1 (make-string l ?-)))))
6312 (replace-match (concat "|" (make-string (1- len) ?\ )))
6649 (concat "+" (make-string (- (match-end 1) (match-beginning 1))
6666 (concat "|" (make-string (org-string-width (match-string 1 s))
6685 (defun org-table-sort-lines (with-case &optional sorting-type)
6702 If SORTING-TYPE is specified when this function is called from a Lisp
6739 (setq beg (move-marker (make-marker) beg)
6740 end (move-marker (make-marker) end))
6752 (setq lns (org-do-sort lns "Table" with-case sorting-type))
6843 (let ((beg (move-marker (make-marker) (org-table-begin t)))
6844 (end (move-marker (make-marker) (org-table-end t))))
6852 (let ((beg (move-marker (make-marker) (org-table-begin)))
6853 (end (move-marker (make-marker) (org-table-end))))
6888 further down in the table get overwritten - so you might need to make space in
6945 When called with a \\[universal-argument] prefix, just make the full field visible so that
6955 (let ((pos (move-marker (make-marker) (point)))
6969 (org-set-local 'org-finish-function
7068 (defun org-table-map-tables (function)
7078 (save-excursion (funcall function)))
7228 (setq alist (sort alist (lambda (a b) (string< (car a) (car b)))))
7456 (make-variable-buffer-local 'org-table-formula-debug)
7476 This function makes use of Dave Gillespie's Calc package, in my view the
7478 installed in order to use this function.
7500 This function can also be called from Lisp programs and offers
7505 formula, assuming that this has been done already outside the function.
7582 (org-table-make-reference
7591 (org-table-make-reference
7608 (org-table-make-reference x nil numbers lispp))
7629 (make-string (car ev) ?\-) (nth 1 ev)))
7694 ;; First sort the numbers to get a regular ractangle
7767 (defun org-table-make-reference (elements keep-empty numbers lispp)
7803 (let* ((eqlist (sort (org-table-get-stored-formulas)
7824 (setq end (move-marker (make-marker) (1+ (org-table-end))))
7836 end (move-marker (make-marker) (1+ (point-at-eol)))))
7927 (defvar org-edit-formulas-map (make-sparse-keymap))
7950 (pos (move-marker (make-marker) (point)))
8041 (setq ind (make-string (current-column) ?\ ))
8244 (let ((ov (org-make-overlay beg end)))
8285 (make-variable-buffer-local 'org-table-coordinate-overlays)
8297 (setq ov (org-make-overlay (point-at-bol) (1+ (point-at-bol))))
8308 (setq ov (org-make-overlay beg (+ beg (length str))))
8341 ;; function which tests if the cursor is currently inside a table. If that
8343 ;; those keys is used outside a table, the function uses `key-binding' to
8363 (make-variable-buffer-local 'orgtbl-mode)
8365 (defvar orgtbl-mode-map (make-keymap)
8402 (org-add-hook 'before-change-functions 'org-before-change-function
8420 (remove-hook 'before-change-functions 'org-before-change-function t)
8445 (defun orgtbl-make-binding (fun n &rest keys)
8446 "Create a function for binding in the table minor mode.
8473 (error "This key is has no function outside tables"))
8505 '("\C-c^" org-table-sort-lines)
8512 cmd (orgtbl-make-binding fun nfunc key))
8517 (orgtbl-make-binding 'orgtbl-ret 100 [(return)] "\C-m"))
8519 (orgtbl-make-binding 'orgtbl-ret 101 "\C-m" [(return)]))
8522 (orgtbl-make-binding 'orgtbl-tab 102 [(tab)] "\C-i"))
8524 (orgtbl-make-binding 'orgtbl-tab 103 "\C-i" [(tab)]))
8527 (orgtbl-make-binding 'org-table-previous-field 104
8531 (orgtbl-make-binding 'org-table-wrap-region 105
8534 (orgtbl-make-binding 'org-table-wrap-region 106
8568 ["Sort lines in region" org-table-sort-lines (org-at-table-p) :keys "C-c ^"]
8727 (error "No such transformation function %s" transform))
8798 Assumes variables VAL, PARAMS, HEAD and I to be scoped into the function."
8917 this function is called."
8933 Currently this function recognizes the following parameters:
8939 this function is called. The function does *not* use `orgtbl-to-generic',
8944 ;; We need to make text lines for it, so put the fields back together.
8979 this function is called."
9042 link (org-make-link cpltxt))
9046 (setq link (org-make-link "info:"
9084 (setq link (org-make-link "vm:" folder "#" message-id)))))
9104 (setq link (org-make-link "wl:" wl-summary-buffer-folder-name
9116 (setq link (org-make-link "mhe:" (org-mhe-get-message-real-folder) "#"
9133 (setq link (org-make-link "rmail:" folder "#" message-id))))))
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:")
9148 link (org-make-link cpltxt))))
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
9173 link (org-make-link cpltxt))
9178 link (org-make-link w3m-current-url))
9190 link (org-make-link cpltxt))
9199 link (org-make-link cpltxt)))
9217 (concat cpltxt "::" (org-make-org-heading-search-string txt))
9221 (setq link (org-make-link cpltxt)))
9235 (concat cpltxt "::" (org-make-org-heading-search-string txt))
9237 (setq link (org-make-link cpltxt)))
9254 (org-make-link-string link desc))))
9301 (defun org-make-org-heading-search-string (&optional string heading)
9322 (defun org-make-link (&rest strings)
9326 (defun org-make-link-string (link &optional description)
9460 (setq link (org-make-link
9464 (setq link (org-make-link "file:" (match-string 1 file))))
9467 (setq link (org-make-link
9469 (t (setq link (org-make-link "file:" file))))))
9490 (setq link (org-make-link (org-remove-angle-brackets link))))
9529 (insert (org-make-link-string link desc))))
9596 (defvar org-open-link-marker (make-marker)
9601 If there is no link at point, this function will search forward up to
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9713 (org-follow-gnus-link group article)))
9753 (if (or (not org-confirm-shell-link-function)
9754 (funcall org-confirm-shell-link-function
9765 (if (or (not org-confirm-elisp-link-function)
9766 (funcall org-confirm-elisp-link-function
9785 A function in the hook should first test if it would like to
9793 taken to make the search successful, another function should be
9797 A function in this hook may also use `setq' to set the variable
9807 double colon. The function must first check if it would like to
9814 Each function can access the current prefix argument through the
9817 use a numeric or double prefix to guide the search function.
9819 In case this is needed, a function in this hook can also restore
9931 (t ; make a new indirect buffer for displaying the link
9934 (ib (or (get-buffer ibn) (make-indirect-buffer buffer ibn 'clone))))
9966 (push (make-marker) org-mark-ring))
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))))
10264 (bibtex-autokey-name-case-convert-function 'identity)
10271 (bibtex-autokey-titleword-case-convert-function 'identity)
10411 conventions in Org-mode. This function returns such a link."
10424 This function should be placed into `remember-mode-hook' and in fact requires
10486 (org-set-local 'org-finish-function 'remember-buffer)
10512 (org-set-local 'org-finish-function 'remember-buffer)))
10517 If there is an active region, make sure remember uses it as initial content
10520 (if (eq org-finish-function 'remember-buffer)
10558 Before being stored away, the function ensures that the text has a
10760 the correct writing function."
10784 This function can be used in a hook."
10848 (org-make-org-heading-search-string
10880 (let ((list (sort (all-completions pattern table confirm)
11026 This function should be run in the `org-after-todo-state-change-hook'."
11027 ;; last-state is dynamically scoped into this function
11079 "Insert the DEADLINE: string to make a deadline.
11156 (defvar org-log-note-marker (make-marker))
11160 (defvar org-log-note-return-to (make-marker))
11197 (org-set-local 'org-finish-function 'org-store-log-note))
11242 (make-variable-buffer-local 'org-occur-highlights)
11248 to make sure editing the matching entry is easy.
11252 If CALLBACK is non-nil, it is a function which is called to confirm
11327 (let ((ov (org-make-overlay beg end)))
11333 BEG and END are ignored. If NOREMOVE is nil, remove this function
11478 (make-string (1- level) ?.) "")
11502 (org-scan-tags 'sparse-tree (cdr (org-make-tags-matcher match)) todo-only))
11504 (defun org-make-tags-matcher (match)
11506 ;; todo-only is scoped dynamically into this function, and the function
11514 "Match: " 'org-tags-completion-function nil nil nil
11599 (defvar org-tags-overlay (org-make-overlay 1 1))
11635 (completing-read "Tags: " 'org-tags-completion-function
11658 rpl (concat (make-string (max 0 (- c1 c0)) ?\ ) tags)))
11664 (defun org-tags-completion-function (string predicate &optional flag)
11750 (make-string (- org-tags-column (current-column)) ?\ ))))))
11795 (insert "[" c "] " tg (make-string
11864 (sort current
11956 (defvar org-date-ovl (org-make-overlay 1 1))
11964 "Read a date and make things smooth for the user.
11978 The function understands only English month and weekday abbreviations,
11992 enter a time, and this function will inform the calling routine about
12195 (put-text-property beg end 'end-glyph (make-glyph str)))
12321 (message (org-make-tdiff-string y d h m))
12336 (defun org-make-tdiff-string (y d h m)
12367 (make-list 9 0)))
12528 (defvar org-clock-marker (make-marker)
12595 (make-variable-buffer-local 'org-clock-file-total-minutes)
12606 (ltimes (make-vector lmax 0))
12664 (make-variable-buffer-local 'org-clock-overlays)
12678 (setq ov (org-make-overlay (1- (point)) (point-at-eol))
12680 (make-string (+ off (max 0 (- c (current-column)))) ?.)
12682 (make-string l ?*) h m
12683 (make-string (- 10 l) ?\ ))
12689 (org-overlay-put ov 'end-glyph (make-glyph tx)))
12694 BEG and END are ignored. If NOREMOVE is nil, remove this function
12826 (ins (make-marker))
12875 (make-string (1- level) ?|)
12929 (defvar org-agenda-mode-map (make-sparse-keymap)
13166 ;; make sure there are undo boundaries
13197 (make-local-variable 'pending-undo-list)
13216 (defvar org-agenda-restrict-begin (make-marker))
13217 (defvar org-agenda-restrict-end (make-marker))
13587 (insert "\n" (make-string (window-width) ?=) "\n"))
13652 (defvar org-agenda-skip-function nil
13654 If this function return nil, the current match should not be skipped.
13655 Otherwise, the function must return a position from where the search
13674 (when (and (functionp org-agenda-skip-function)
13677 (funcall org-agenda-skip-function)))))
13811 (insert (make-string 79 ?-) "\n")))
13843 not every single day in the range. If FORCE-TODAY is non-nil, make
13866 (setq dates (sort dates '<))
14105 (setq matcher (org-make-tags-matcher match)
14162 used by user-defined selections using `org-agenda-skip-function'.")
14170 to skip this subtree. This is a function that can be put into
14171 `org-agenda-skip-function' for the duration of a command."
14186 (let* ((org-agenda-skip-function 'org-agenda-skip-subtree-when-regexp-matches)
14221 (diary-file-name-prefix-function nil) ; turn this feature off
14222 (diary-modify-entry-list-string-function 'org-modify-diary-entry-string)
14276 '(if (boundp 'diary-modify-entry-list-string-function)
14279 ;; Hook not avaiable, must use advice to make this work
14310 This function can be used in a \"sexp\" diary entry in the Emacs calendar.
14312 listed in the diary. The function accepts arguments specifying what
14348 The function expects the lisp variables `entry' and `date' to be provided
14350 function from a program - use `org-agenda-get-day-entries' instead."
14384 ;; If file does not exist, make sure an error message ends up in diary
14807 1 date plus weekday, for backreferencing to make sure both times on same day
14873 (concat (make-string (max (- 50 (length txt)) 1) ?\ )
15008 (mapconcat 'identity (sort list 'org-entries-lessp) "\n")))
15055 (let* ((def (if org-sort-agenda-notime-is-late 9901 -1))
15212 ;; FIXME: this no longer works if user make date format that starts with a blank
15234 (defvar org-hl (org-make-overlay 1 1))
15398 If this information is not given, the function uses the tree at point."
15488 With a C-u prefix, make a separate frame for this tree (i.e. don't use the
15501 (defvar org-last-heading-marker (make-marker)
15595 (make-string (max 1 (- org-agenda-align-tags-to-column
15737 ;; We use text properties to make this undoable
15747 (let ((ex (make-extent nil nil))
15748 (gl (make-glyph stamp)))
15868 (oldf (symbol-function 'calendar-cursor-to-date))
15878 ;; We implement this by hacking the `calendar-cursor-to-date' function
15901 (let* ((oldf (symbol-function 'calendar-cursor-to-date))
15992 (defvar org-cdlatex-mode-map (make-sparse-keymap)
16041 Even though the matchers for math are configurable, this function assumes
16047 This function does a reasonably good job, but can locally be fooled by
16051 with the uncertainty caused by missing closing delimiters. This function
16119 (make-variable-buffer-local 'org-latex-fragment-image-overlays)
16209 (unless checkdir ; make sure the directory exists
16211 (or (file-directory-p todir) (make-directory todir)))
16216 (setq ov (org-make-overlay beg end))
16222 (make-glyph (vector 'png :file movefile))))
16231 ;; This function borrows from Ganesh Swami's latex2png.el
16236 (texfilebase (make-temp-name
16239 ;(texfilebase (make-temp-file "orgtex"))
16336 (let ((re (org-make-options-regexp
16892 "Take link text and make a safe target out of it."
16902 (defvar org-section-numbers (make-vector org-level-max 0))
16983 (org-levels-open (make-vector org-level-max nil))
17009 ;; create local variables for all options, to make sure all called
17012 (set (make-local-variable (cdr x))
17038 (make-string (length (nth 3 lang-words)) ?=) "\n")
17071 (make-string (* (1- level) 4) ?\ )
17144 (insert (make-string ind ?\ ) s "\n")
17146 (insert (make-string ind ?\ )
17147 (make-string (string-width s) underline)
17155 (insert (make-string (* 2 n) ?\ )
17176 (insert title "\n" (make-string (string-width title) char) "\n")
17215 ;; Copy all comment lines to the end, to make sure #+ settings are
17394 (link-validate (plist-get opt-plist :link-validation-function))
17424 (org-levels-open (make-vector org-level-max nil))
17475 ;; create local variables for all options, to make sure all called
17478 (set (make-local-variable (cdr x))
17629 ;; make targets to anchors
17714 ;; make sure this is can be used as target search
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
17950 (unless fnum (setq fnum (make-vector (length fields) 0)))
18236 ;; If title is nil, this means this function is called to close
18444 KEYWORD is added in front, to make a complete line like DTSTART....
18465 (put 'org-export-as-xoxo-insert-into 'lisp-indent-function 1)
18556 (define-key org-mode-map "\C-c\C-x" (make-sparse-keymap))
18655 (define-key org-mode-map "\C-c^" 'org-sort)
18724 When deleting backwards, in tables this function will insert whitespace in
18747 When deleting characters, in tables this function will insert whitespace in
19020 ((and (local-variable-p 'org-finish-function (current-buffer))
19021 (fboundp org-finish-function))
19022 (funcall org-finish-function))
19105 ["Sort lines in region" org-table-sort-lines (org-at-table-p)]
19176 ["Sort Region/Children" org-sort (not (org-at-table-p))]
19337 "Call the customize function with org as argument."
19389 This function expects the position to be visible because it uses font-lock
19513 (setq pos (move-marker (make-marker) (point)))
19526 (setq pos (move-marker (make-marker) (point)))
19602 ;; We use our own fill-paragraph function, to make sure that tables
19603 ;; and fixed-width regions are not wrapped. That function will pass
19605 (org-set-local 'fill-paragraph-function 'org-fill-paragraph)
19606 ; Adaptive filling: To get full control, first make sure that
19609 (org-set-local 'adaptive-fill-function
19610 'org-adaptive-fill-function))
19624 (defun org-adaptive-fill-function ()
19631 (make-string (- (match-end 0) (match-beginning 0)) ?\ ))
19660 to a visible line beginning. This makes the function of C-a more intuitive."
19699 This function considers both visible and invisible heading lines.
19739 "Flag the current heading. FLAG non-nil means make invisible.
19755 ;; This is an exact copy of the original function, but it uses
19756 ;; `org-back-to-heading', to make it work also in invisible
19796 (defun org-make-options-regexp (kwds)
19815 ;; (Emacs 22 has a special variable, see function `org-mode')
19835 (defadvice bookmark-jump (after org-make-visible activate)