• Home
  • History
  • Annotate
  • Raw
  • Download
  • only in /macosx-10.9.5/emacs-92/emacs/lisp/textmodes/

Lines Matching +defs:message +defs:setup +defs:hook

90   (message "Org-mode version %s" org-version))
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)
798 calc-display-working-message t
928 "Format of the description part of a link to an email or usenet message.
938 %m message-id.
954 "Regexp mached against the \"From:\" header of an email or usenet message.
955 It should match if the message is from the user him/herself."
1020 (defcustom org-link-frame-setup
1038 For the calendar, use the variable `calendar-setup'.
1085 (const :tag "message-mail" (message-mail "%a" "%s"))
1201 "Non-nil means, that the search for the mh-message will be extended to
1202 all folders if the message cannot be found in the folder given in the link.
1271 will record the author and the subject of the message, which you can access
1278 vm, wl, mh, rmail | %:type %:subject %:message-id
1350 (defcustom org-after-todo-state-change-hook nil
1355 :type 'hook)
1836 (defcustom org-finalize-agenda-hook nil
1839 :type 'hook)
1858 (defcustom org-agenda-window-setup 'reorganize-frame
1880 `org-agenda-window-setup' is `other-frame', the value of this
2212 (defcustom org-export-language-setup
2236 This should have an association in `org-export-language-setup'."
3305 (defvar vm-message-pointer)
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)
4034 (org-cycle-hook
4037 (copy-sequence org-cycle-hook))
4038 org-cycle-hook))
4062 (message "CONTENTS...")
4064 (message "CONTENTS...done")
4066 (run-hook-with-args 'org-cycle-hook 'contents))
4072 (message "SHOW ALL")
4074 (run-hook-with-args 'org-cycle-hook 'all))
4079 (message "OVERVIEW")
4081 (run-hook-with-args 'org-cycle-hook 'overview))))
4112 (message "EMPTY ENTRY")
4118 (message "CHILDREN")
4120 (run-hook-with-args 'org-cycle-hook 'children))
4125 (message "SUBTREE")
4127 (run-hook-with-args 'org-cycle-hook 'subtree))
4131 (message "FOLDED")
4133 (run-hook-with-args 'org-cycle-hook 'folded)))))
4210 This function is the default value of the hook `org-cycle-hook'."
4323 (message "Select location and press RET")
4487 (run-hooks 'org-insert-heading-hook)))))
4765 (message "%s: Subtree with %d characters"
4849 (message "Pasted at level %d, without shift" new-level)
4856 (message "Pasted at level %d, with shift by %d levels"
4957 (message "Sorting entries...")
4980 (message "Sorting entries...done (%d entries%s)"
4992 (message
5167 (message "Checkbox satistics updated %s (%d places)"
5362 "Renumber the ordered list at point if setup allows it.
5575 (message "Subtree archived %s"
5621 (message "%d trees archived" cntarch)))
5634 (message (substitute-command-keys
5696 (message "Subtree %s" (if set "archived" "unarchived")))))
6353 (message "line @%d, col $%s%s, ref @%d$%d%s%s"
6374 (if (interactive-p) (message "This is table column %d" cnt))
6388 (if (interactive-p) (message "This is table line %d" cnt))
6449 (message "recognizing table.el table...")
6451 (message "recognizing table.el table...done")))
6759 (message "%d lines sorted, based on column %d" (length lns) column)))
6973 (message "Edit and finish with C-c C-c"))))
6996 (message "New field value inserted")))
7075 (message "Mapping tables: %d%%" (/ (* 100.0 (point)) (buffer-size)))
7080 (message "Mapping tables: done"))
7136 (message "%s"
7389 After each change, a message will be displayed indicating the meaning
7407 (message "Change region to what mark? Type # * ! $ or SPC: ")
7441 (and (interactive-p) (message (cdr (assoc new org-recalc-marks))))))
7641 (message "")))
7838 (and all (message "Re-applying formulas to full table..."))
7842 (and all (message "Re-applying formulas to full table...(line %d)"
7854 (and all (message "Re-applying formulas to %d lines...done" cnt)))
7868 (message "Re-applying formula to field: %s" name)
7874 (message "Re-applying formulas...done")
7878 (and all (message "Re-applying formulas...done"))))))
7895 (message "Convergence after %d iterations" i)
7896 (message "Table was already stable"))
7962 (org-add-hook 'post-command-hook 'org-table-edit-formulas-post-command t t)
7975 (message "Edit formulas and finish with `C-c C-c'.")))
8013 (message "New formulas installed - press C-u C-c C-c to apply."))))
8024 (message "Formula editing aborted without installing changes")))
8089 (org-add-hook 'before-change-functions
8136 (message "Named field, column %d of line %d" (nth 2 e) (nth 1 e)))
8146 (message "Named column (column %s)" (cdr e)))
8152 (message "Column %s" (substring match 1)))
8159 (message "Local parameter."))
8165 (message "Constant: $%s=%s in `org-table-formula-constants'."
8168 (message "Constant: $%s=%s, retrieved from `constants.el'." var e))
8274 (add-hook 'before-change-functions 'org-table-remove-rectangle-highlight))
8279 (remove-hook 'before-change-functions 'org-table-remove-rectangle-highlight)
8317 (message "Row/Column number display turned %s"
8329 (message "Formula debugging has been turned %s"
8389 ;; Exit without error, in case some hook functions calls this
8391 (message "Orgtbl-mode is not useful in org-mode, command ignored")
8396 (and (orgtbl-setup) (defun orgtbl-setup () nil))
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)
8475 (defun orgtbl-setup ()
8744 (message "Table converted and installed at receiver location"))))
8784 (unless e (error "No radio table setup defined for %s" major-mode))
9070 (let* ((message (car vm-message-pointer))
9072 (subject (vm-su-subject message))
9073 (to (vm-get-header-contents message "To"))
9074 (from (vm-get-header-contents message "From"))
9075 (message-id (vm-su-message-id message)))
9077 :message-id message-id)
9078 (setq message-id (org-remove-angle-brackets message-id))
9084 (setq link (org-make-link "vm:" folder "#" message-id)))))
9087 (let* ((msgnum (wl-summary-message-number))
9088 (message-id (elmo-message-field wl-summary-buffer-elmo-folder
9089 msgnum 'message-id))
9090 (wl-message-entity
9091 (if (fboundp 'elmo-message-entity)
9092 (elmo-message-entity
9097 (to (car (elmo-message-entity-field wl-message-entity 'to)))
9098 (subject (let (wl-thr-indent-string wl-parent-message-entity)
9101 :subject subject :message-id message-id)
9102 (setq message-id (org-remove-angle-brackets message-id))
9105 "#" message-id))))
9111 (message-id (org-mhe-get-header "Message-Id:"))
9114 :subject subject :message-id message-id)
9116 (setq link (org-make-link "mhe:" (org-mhe-get-message-real-folder) "#"
9117 (org-remove-angle-brackets message-id)))))
9124 (message-id (mail-fetch-field "message-id"))
9130 :subject subject :message-id message-id)
9131 (setq message-id (org-remove-angle-brackets message-id))
9133 (setq link (org-make-link "rmail:" folder "#" message-id))))))
9156 (message-id (mail-header-id header))
9160 :message-id message-id :group group)
9167 (org-fixup-message-id-for-http message-id))))
9181 ((setq search (run-hook-with-args-until-success
9253 (message "Stored: %s" (or cpltxt link)))
9292 (cons "%m" (plist-get p :message-id)))))
9294 ;; Check if the user wrote this message
9386 ((eq header 'message-id)
9387 (if (re-search-forward "^message-id:\\s-+\\(.*\\)" nil t)
9397 (defun org-fixup-message-id-for-http (s)
9398 "Replace special characters in a message id, so it can be used in an http query."
9546 (message "Link search wrapped back to beginning of buffer"))
9566 (message "Link search wrapped back to end of buffer"))
9759 (message "Executing %s" cmd)
9770 (message "%s => %s" cmd (eval (read cmd)))
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))
9928 (message "Buffer is already a clone, not making another one")
9978 (message
10060 (message (concat "Could not open: " name))))
10065 (funcall (cdr (assq 'gnus org-link-frame-setup)))
10092 (funcall (cdr (assq 'vm org-link-frame-setup)) folder readonly)
10100 (concat "^" "message-id: *" (regexp-quote article))))
10101 (error "Could not find the specified message in this folder"))
10104 (vm-beginning-of-message)
10120 (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article))
10126 (let (message-number)
10130 (setq message-number
10138 (rmail-what-message))))))
10139 (if message-number
10142 (rmail-show-message message-number)
10143 message-number)
10147 (defun org-mhe-get-message-real-folder ()
10148 "Return the name of the current message real folder, so if you use
10169 (org-mhe-get-message-folder-from-index)
10172 (org-mhe-get-message-folder-from-index)
10178 (defun org-mhe-get-message-folder-from-index ()
10179 "Returns the name of the message folder in a index folder buffer."
10183 (message (match-string 1))))
10185 (defun org-mhe-get-message-folder ()
10186 "Return the name of the current message folder. Be careful if you
10194 (defun org-mhe-get-message-num ()
10195 "Return the number of the current message. Be careful if you
10201 (mh-show-buffer-message-number))))
10204 "Return a header of the message in folder mode. This will create a
10205 show buffer for the corresponding message. If you have a more clever
10207 (let* ((folder (org-mhe-get-message-folder))
10208 (num (org-mhe-get-message-num))
10240 (mh-search folder (list "--message-id" article))
10242 (not (org-mhe-get-message-real-folder)))
10244 (mh-search "+" (list "--message-id" article))))
10246 (if (org-mhe-get-message-real-folder)
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)
10304 ;; end of Bibtex link setup
10363 (funcall (cdr (assq 'file org-link-frame-setup)) file)
10368 (t (funcall (cdr (assq 'file org-link-frame-setup)) file)))
10424 This function should be placed into `remember-mode-hook' and in fact requires
10425 to be run from that hook to fucntion properly."
10431 (message "Select template: %s"
10455 (unless tpl (setq tpl "") (message "No template") (ding))
10528 (message "Press C-c C-c to remember data"))
10741 (error (message "Error during update of dynamic block")))
10784 This function can be used in a hook."
10863 (message "Can't find completion for \"%s\"" pattern)
10876 (message "%s" (substitute-command-keys
10879 (message "Making completion list...")
10887 (message "Making completion list...%s" "done"))))))
10998 (run-hooks 'org-after-todo-state-change-hook)
11021 (defvar org-log-post-message)
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))
11056 (setq org-log-post-message msg)
11057 (message msg))))
11075 (message "%d TODO entries found"
11161 (defvar org-log-post-message nil
11178 (add-hook 'post-command-hook 'org-add-log-note 'append))))
11182 (remove-hook 'post-command-hook 'org-add-log-note)
11239 (and org-log-post-message (message org-log-post-message)))
11270 (org-add-hook 'before-change-functions 'org-remove-occur-highlights
11274 (run-hooks 'org-occur-hook)
11276 (message "%d match(es) for regexp %s" cnt regexp))
11340 (remove-hook 'before-change-functions
11374 (message "Priority A-%c, SPC to remove: " org-lowest-priority)
11401 (message "Priority removed")
11402 (message "Priority of current item set to %s" news))))
11617 (message "All tags realigned to column %d" org-tags-column))
11810 (message "[a-z..]:Toggle [SPC]:clear [RET]:accept [TAB]:free%s%s"
11939 (message "Timestamp updated"))
12011 (calendar-move-hook nil)
12173 (message "Time stamps are overlayed with custom format")
12174 (message "Time stamp overlays removed")))
12270 (message "%d deadlines past-due or due within %d days"
12321 (message (org-make-tdiff-string y d h m))
12334 (message "Time difference inserted")))))
12492 (calendar-move-hook nil))
12505 (calendar-move-hook nil)
12550 (message "Clock started at %s" ts))))
12580 (message "Clock stopped at %s after HH:MM = %d:%02d" te h m)))))
12591 (message "Clock canceled"))
12659 (org-add-hook 'before-change-functions 'org-remove-clock-overlays
12661 (message "Total file time: %d:%02d (%d hours and %d minutes)" h m h m)))
12701 (remove-hook 'before-change-functions
12712 ;; Clock out, but don't accept a logging message for this.
12719 (add-hook 'org-after-todo-state-change-hook
12936 (defvar org-agenda-mode-hook nil)
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)
12983 (list 'org-agenda-mode-hook)))
13205 (message "`%s' undone (buffer %s)" cmd (buffer-name rembuf))))
13298 (message "Press key for agenda command%s"
13301 (message "")
13323 (message "Press key for agenda command%s"
13326 (message "")))
13432 (and (memq org-agenda-window-setup '(reorganize-frame))
13451 Depending on setup, this either uses customize to edit the variable
13460 (org-add-hook 'after-save-hook
13466 (message "New agenda file list installed"))
13468 (message (substitute-command-keys
13479 (let ((org-mode-hook nil) (default-major-mode 'fundamental-mode))
13537 (message "File %s to %s of agenda file list"
13558 (message "Removed file: %s" afile))
13559 (message "File was not in list: %s" afile))))
13567 (message "non-existent file %s. [R]emove from list or [A]bort?"
13597 ((equal org-agenda-window-setup 'current-window)
13599 ((equal org-agenda-window-setup 'other-window)
13601 ((equal org-agenda-window-setup 'other-frame)
13603 ((equal org-agenda-window-setup 'reorganize-frame)
13621 (run-hooks 'org-finalize-agenda-hook))))
14020 (message "")))
14120 ;; If file does not exist, merror message to agenda
14218 (diary-display-hook '(fancy-diary-display))
14219 (list-diary-entries-hook
14220 (cons 'org-diary-default-entry list-diary-entries-hook))
14277 ;; We can rely on the hook, nothing to do
14384 ;; If file does not exist, make sure an error message ends up in diary
14500 (defconst org-agenda-no-heading-message
14554 (setq txt org-agenda-no-heading-message))
14615 (setq txt org-agenda-no-heading-message))
14666 (setq txt org-agenda-no-heading-message))
14722 (setq txt org-agenda-no-heading-message))
14771 (setq txt org-agenda-no-heading-message))
15099 (not (eq org-agenda-window-setup 'other-frame))
15115 (message "Saving all Org-mode buffers...")
15117 (message "Saving all Org-mode buffers... done"))
15126 (message "Rebuilding agenda buffer...")
15130 (message "Rebuilding agenda buffer...done")
15193 (message "Switched to week view"))
15210 (message "Switched to day view"))
15248 (add-hook 'pre-command-hook 'org-unhighlight-once))
15251 (remove-hook 'pre-command-hook 'org-unhighlight-once)
15259 (message "Follow mode is %s"
15269 (message "Log mode is %s"
15279 (message "Diary inclusion turned %s"
15289 (message "Time-grid turned %s"
15304 (defun org-agenda-post-command-hook ()
15317 (message "Priority is %d" (if pri pri -1000))))
15324 (message "Tags are :%s:"
15326 (message "No tags associated with this line"))))
15375 (message "Agenda item and source killed"))))
15728 (message "Time stamp changed to %s" org-last-changed-timestamp)))
15778 (message "Time stamp changed to %s" org-last-changed-timestamp)))))
15796 (message "Item scheduled for %s" ts)))))
15814 (message "Deadline for this item set to %s" ts)))))
15858 (message "Diary entry: [d]ay [w]eekly [m]onthly [y]early [a]nniversary [b]lock [c]yclic")
15947 (calendar-move-hook nil)
16157 (message msg "")
16164 (message msg "done. Use `C-c C-c' to remove images.")))))
16207 (if msg (message msg cnt))
16265 (progn (message "Failed to create dvi file from %s" texfile) nil)
16272 (progn (message "Failed to create png file from %s" texfile) nil)
16453 (message "Select command: ")
16629 ("crarr") ("hookleftarrow"."↵") ; has round hook, not quite CR
16848 (message "Exporting...")
17004 (setq lang-words (or (assoc language org-export-language-setup)
17005 (assoc "en" org-export-language-setup)))
17190 (message "Export visible: [a]SCII [h]tml [b]rowse HTML [x]OXO [ ]keep buffer")
17384 (message "Exporting...")
17458 (message "Exporting...")
17464 (setq lang-words (or (assoc language org-export-language-setup)
17465 (assoc "en" org-export-language-setup)))
17890 (message "Exporting... done"))))
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.
18817 (arg (message "Content view to level: ")
19019 (message "Temporary highlights/overlays removed from current buffer"))
19058 (message "Org-mode restarted to refresh keyword and special line setup"))
19247 (message "Switching to %s will %s record a timestamp"
19297 ["Refresh setup" org-mode-restart t]
19356 (message "\"Org\"-menu now contains full customization menu"))
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)