diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2017-06-16 21:51:05 -0400 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-06-16 21:51:05 -0400 |
| commit | 49c0ff29c2e0243ba35ec17e3e3af49369be43db (patch) | |
| tree | c0c35421582e3097c10ff0766a062dc507ebb249 /lisp/org | |
| parent | 32b0f15365f0d33135866aa659c95372a775c6e3 (diff) | |
| download | emacs-49c0ff29c2e0243ba35ec17e3e3af49369be43db.tar.gz emacs-49c0ff29c2e0243ba35ec17e3e3af49369be43db.tar.bz2 emacs-49c0ff29c2e0243ba35ec17e3e3af49369be43db.zip | |
Don't bind org-agenda key to an anonymous function
* lisp/org/org-agenda.el: Bind "g" to named command.
(org-agenda-redo-all): New command. Extend the previous functionality
through a prefix argument.
Diffstat (limited to 'lisp/org')
| -rw-r--r-- | lisp/org/org-agenda.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index 153e3772b0c..409c93abedc 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -2252,7 +2252,7 @@ The following commands are available: (org-defkey org-agenda-mode-map "!" 'org-agenda-toggle-deadlines) (org-defkey org-agenda-mode-map "G" 'org-agenda-toggle-time-grid) (org-defkey org-agenda-mode-map "r" 'org-agenda-redo) -(org-defkey org-agenda-mode-map "g" (lambda () (interactive) (org-agenda-redo t))) +(org-defkey org-agenda-mode-map "g" 'org-agenda-redo-all) (org-defkey org-agenda-mode-map "e" 'org-agenda-set-effort) (org-defkey org-agenda-mode-map "\C-c\C-xe" 'org-agenda-set-effort) (org-defkey org-agenda-mode-map "\C-c\C-x\C-e" @@ -7310,6 +7310,17 @@ in the agenda." (org-goto-line line) (recenter window-line))) +(defun org-agenda-redo-all (&optional exhaustive) + "Rebuild all agenda views in the current buffer. +With a prefix argument, do so in all agenda buffers." + (interactive "P") + (if exhaustive + (dolist (buffer (buffer-list)) + (with-current-buffer buffer + (when (derived-mode-p 'org-agenda-mode) + (org-agenda-redo t)))) + (org-agenda-redo t))) + (defvar org-global-tags-completion-table nil) (defvar org-agenda-filter-form nil) (defvar org-agenda-filtered-by-category nil) |