Lines Matching +defs:gnus +defs:apply +defs:kill +defs:hook
71 (require 'gnus-sum)
376 this way, `org-cycle-hook' is disables temporarily, to make sure the
398 (defcustom org-cycle-hook '(org-cycle-hide-archived-subtrees
401 The function(s) in this hook must accept a single argument which indicates
407 :type 'hook)
450 (defcustom org-insert-heading-hook nil
486 (defcustom org-occur-hook '(org-first-headline-recenter)
491 :type 'hook)
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1270 link type that is created. For example, calling `remember' in emails or gnus
1282 gnus | %:group, for messages also all email fields
1350 (defcustom org-after-todo-state-change-hook nil
1355 :type 'hook)
1418 "Non-nil means, find REPEAT cookies in entries and apply them.
1579 "Non-nil means, tags in levels apply also for sublevels.
1580 When nil, only the tags directly given in a specific line apply there.
1639 (defcustom org-agenda-confirm-kill 1
1836 (defcustom org-finalize-agenda-hook nil
1839 :type 'hook)
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3417 (defun org-add-hook (hook function &optional append local)
3418 "Add-hook, compatible with both Emacsen."
3420 (add-local-hook hook function append)
3421 (add-hook hook function append local)))
3477 (defvar org-mode-hook nil)
3542 (org-add-hook 'before-change-functions 'org-before-change-function nil
3545 (org-add-hook 'kill-buffer-hook 'org-check-running-clock nil 'local)
3557 ;; Emacs 21 and XEmacs make use of the hook
3558 (org-add-hook 'isearch-mode-end-hook 'org-isearch-end 'append 'local)
3595 (apply 'encode-time
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
3962 (kill-local-variable 'font-lock-keywords) nil))
4034 (org-cycle-hook
4037 (copy-sequence org-cycle-hook))
4038 org-cycle-hook))
4066 (run-hook-with-args 'org-cycle-hook 'contents))
4074 (run-hook-with-args 'org-cycle-hook 'all))
4081 (run-hook-with-args 'org-cycle-hook 'overview))))
4120 (run-hook-with-args 'org-cycle-hook 'children))
4127 (run-hook-with-args 'org-cycle-hook 'subtree))
4133 (run-hook-with-args 'org-cycle-hook 'folded)))))
4210 This function is the default value of the hook `org-cycle-hook'."
4333 (kill-buffer "*org-goto*")
4405 (kill-buffer org-last-indirect-buffer))
4487 (run-hooks 'org-insert-heading-hook)))))
4733 This is actually only a copy of the kill, because we use the normal kill
4734 ring. We need it to check if the kill was created by `org-copy-subtree'.")
4763 (if cut (kill-region beg end) (copy-region-as-kill beg end))
4764 (setq org-subtree-clip (current-kill 0))
4785 If optional TREE is given, use this text instead of the kill ring."
4787 (unless (org-kill-is-subtree-p tree)
4790 "The kill is not a (set of) tree(s) - please use \\[yank] to yank anyway")))
4791 (let* ((txt (or tree (and kill-ring (current-kill 0))))
4858 (if (and kill-ring
4859 (eq org-subtree-clip (current-kill 0))
4864 (defun org-kill-is-subtree-p (&optional txt)
4865 "Check if the current kill is an outline subtree, or a set of trees.
4866 Returns nil if kill does not start with a headline, or if the first
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)) ""))
4872 (start-level (and kill
4873 (string-match (concat "\\`" outline-regexp) kill)
4880 (while (setq start (string-match re kill (1+ start)))
4972 (kill-region beg end)
5512 ;; we need to protect this-command, to avoid kill-region sets it,
5574 (if (and (not (eobp)) (looking-at "[ \t]*$")) (kill-line))
5808 (line (concat (apply 'concat indent "|" (make-list columns " |"))
5906 (kill-buffer buf)))
5991 (setq maxfields (apply 'max (mapcar 'length fields)))
5993 (kill-region beg end)
6026 (push (apply 'max 1 (mapcar 'org-string-width column)) lengths)
6065 (if l (apply 'format rfmt
6671 (defun org-table-kill-row ()
6678 (kill-region (point-at-bol) (min (1+ (point-at-eol)) (point-max)))
6978 the table and kill the editing buffer."
6989 (kill-buffer cb)
7013 (maxword (apply 'max (mapcar 'org-string-width words)))
7087 as kill to be inserted with \\[yank].
7118 (let* ((items (apply 'append (org-table-copy-region beg end)))
7126 (res (apply '+ numbers))
7134 (kill-new sres)
7343 (setq org-table-current-line-types (apply 'vector (nreverse types))
7344 org-table-dlines (apply 'vector (cons nil (nreverse dlines)))
7345 org-table-hlines (apply 'vector (cons nil (nreverse hlines)))))))
7356 If yes, store the formula and apply it."
7501 additional arguments: EQUATION can be the formula to apply. If this
7711 (apply 'append (org-table-copy-region beg end))))))
7962 (org-add-hook 'post-command-hook 'org-table-edit-formulas-post-command t t)
7963 (setq s "# `C-c C-c' to finish, `C-u C-c C-c' to also apply, `C-c C-q' to abort.
7988 With prefix ARG, apply the new formulas to the table."
8010 (kill-buffer "*Edit Formulas*")
8013 (message "New formulas installed - press C-u C-c C-c to apply."))))
8089 (org-add-hook 'before-change-functions
8173 (let ((min (apply 'min org-show-positions))
8174 (max (apply 'max org-show-positions)))
8274 (add-hook 'before-change-functions 'org-table-remove-rectangle-highlight))
8279 (remove-hook 'before-change-functions 'org-table-remove-rectangle-highlight)
8389 ;; Exit without error, in case some hook functions calls this
8402 (org-add-hook 'before-change-functions 'org-before-change-function
8416 (run-hooks 'orgtbl-mode-hook))
8420 (remove-hook 'before-change-functions 'org-before-change-function t)
8484 '([(meta shift up)] org-table-kill-row)
8883 (push (apply 'format lfmt line) rtn)
8980 (let* ((total (float (apply '+ org-table-last-column-widths)))
9059 (apply 'encode-time
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
9181 ((setq search (run-hook-with-args-until-success
9324 (apply 'concat strings))
9528 (if remove (apply 'delete-region remove))
9535 (apply 'completing-read args)))
9670 (apply cmd (nreverse args1))))
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9713 (org-follow-gnus-link group article)))
9785 A function in the hook should first test if it would like to
9794 added to the companion hook `org-execute-file-search-functions',
9797 A function in this hook may also use `setq' to set the variable
9805 Functions added to this hook must accept a single argument, the
9819 In case this is needed, a function in this hook can also restore
9838 ((run-hook-with-args-until-success 'org-execute-file-search-functions s))
9910 (while (apply 're-search-forward args)
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))))
10243 (kill-this-buffer)
10248 (kill-this-buffer)
10301 (add-hook 'org-create-file-search-functions 'org-create-file-search-in-bibtex)
10302 (add-hook 'org-execute-file-search-functions 'org-execute-file-search-in-bibtex)
10422 (defun org-remember-apply-template (&optional use-char skip-interactive)
10424 This function should be placed into `remember-mode-hook' and in fact requires
10425 to be run from that hook to fucntion properly."
10516 "Call `remember'. If this is already a remember buffer, re-apply template.
10527 (org-remember-apply-template))
10655 (if (not visiting) (kill-buffer (current-buffer)))))))))
10784 This function can be used in a hook."
10998 (run-hooks 'org-after-todo-state-change-hook)
11026 This function should be run in the `org-after-todo-state-change-hook'."
11037 (unless (memq 'org-add-log-note (default-value 'post-command-hook))
11178 (add-hook 'post-command-hook 'org-add-log-note 'append))))
11182 (remove-hook 'post-command-hook 'org-add-log-note)
11204 (kill-buffer (current-buffer))
11270 (org-add-hook 'before-change-functions 'org-remove-occur-highlights
11274 (run-hooks 'org-occur-hook)
11340 (remove-hook 'before-change-functions
11463 (apply 'append (mapcar 'cdr tags-alist))
11721 (let* ((maxlen (apply 'max (mapcar
12006 (apply
12011 (calendar-move-hook nil)
12186 (substring tf 1 -1) (apply 'encode-time time))
12220 (apply 'encode-time time))
12347 (apply 'format fmt (nreverse l))))
12350 (apply 'encode-time (org-parse-time-string s)))
12456 (apply 'encode-time
12477 (setq time (apply 'encode-time time0))))
12492 (calendar-move-hook nil))
12505 (calendar-move-hook nil)
12571 (setq s (- (time-to-seconds (apply 'encode-time (org-parse-time-string te)))
12572 (time-to-seconds (apply 'encode-time (org-parse-time-string ts))))
12620 (apply 'encode-time (org-parse-time-string ts)))
12622 (apply 'encode-time (org-parse-time-string te)))
12659 (org-add-hook 'before-change-functions 'org-remove-clock-overlays
12701 (remove-hook 'before-change-functions
12719 (add-hook 'org-after-todo-state-change-hook
12770 (apply 'encode-time (org-parse-time-string te)))
12772 (apply 'encode-time (org-parse-time-string ts))))
12838 (apply 'encode-time (org-parse-time-string ts)))))
12840 (apply 'encode-time (org-parse-time-string te)))))
12903 (setq beg (apply 'encode-time (org-parse-time-string beg))
12904 end (apply 'encode-time (org-parse-time-string end)))
12936 (defvar org-agenda-mode-hook nil)
12947 (kill-all-local-variables)
12957 (org-add-hook 'post-command-hook 'org-agenda-post-command-hook nil 'local)
12958 (org-add-hook 'pre-command-hook 'org-unhighlight nil 'local)
12981 (apply
12983 (list 'org-agenda-mode-hook)))
12990 (define-key org-agenda-mode-map "\C-k" 'org-agenda-kill)
13080 ["Delete subtree" org-agenda-kill t]
13460 (org-add-hook 'after-save-hook
13464 (kill-buffer (current-buffer))))
13476 (while (setq b (find-buffer-visiting f)) (kill-buffer b))
13479 (let ((org-mode-hook nil) (default-major-mode 'fundamental-mode))
13621 (run-hooks 'org-finalize-agenda-hook))))
13657 Never set this variable using `setq' or so, because then it will apply
13729 (kill-buffer buf))))
13815 (apply 'org-agenda-get-day-entries
14218 (diary-display-hook '(fancy-diary-display))
14219 (list-diary-entries-hook
14220 (cons 'org-diary-default-entry list-diary-entries-hook))
14242 (kill-buffer fancy-diary-buffer)))
14277 ;; We can rely on the hook, nothing to do
14363 (setq rtn (apply 'org-agenda-get-day-entries file date args))
14516 (apply 'encode-time ; DATE bound by calendar
14587 (apply 'encode-time ; DATE bound by calendar
15095 (kill-buffer buf)
15105 Also kill all Org-mode buffers which have been loaded by `org-agenda'.
15248 (add-hook 'pre-command-hook 'org-unhighlight-once))
15251 (remove-hook 'pre-command-hook 'org-unhighlight-once)
15304 (defun org-agenda-post-command-hook ()
15345 (defun org-agenda-kill ()
15365 (setq conf (or (eq t org-agenda-confirm-kill)
15366 (and (numberp org-agenda-confirm-kill)
15367 (> n org-agenda-confirm-kill))))
15947 (calendar-move-hook nil)
16629 ("crarr") ("hookleftarrow"."↵") ; has round hook, not quite CR
16888 (kill-buffer " org-mode-tmp")
17230 (kill-buffer buffer)
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
18131 (apply 'concat (nreverse res))))
18289 (apply 'org-export-icalendar nil (org-agenda-files t)))
18296 (apply 'org-export-icalendar t (org-agenda-files t)))
18340 (run-hooks 'org-after-save-iCalendar-file-hook)))))
18343 (defvar org-after-save-iCalendar-file-hook nil
18345 The iCalendar buffer is still current when this hook is run.
18464 (apply 'insert output)))
18845 "Move subtree up or kill table row.
18846 Calls `org-move-subtree-up' or `org-table-kill-row' or
18851 ((org-at-table-p) (call-interactively 'org-table-kill-row))
18995 - If the cursor is on a #+TBLFM line, re-apply the formulas to
19366 If several contexts apply, all are returned.
19810 ;; Under XEmacs, the hook is run in the correct place,
19813 ;; In Emacs the hook runs *before* restoring the overlays.
19814 ;; So we have to use a one-time post-command-hook to do this.
19816 (unless (and (boundp 'isearch-mode-end-hook-quit)
19817 isearch-mode-end-hook-quit)
19819 (org-add-hook 'post-command-hook 'org-isearch-post-command
19823 "Remove self from hook, and show context."
19824 (remove-hook 'post-command-hook 'org-isearch-post-command 'local)
19831 '(if (boundp 'bookmark-after-jump-hook)
19832 ;; We can use the hook
19833 (add-hook 'bookmark-after-jump-hook 'org-bookmark-jump-unhide)
19858 (run-hooks 'org-load-hook)