From f693238dfe6472b650ad59d0044f2c2a00c9f08d Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 2 Jul 2010 09:18:10 +0200 Subject: [PATCH] Fix naming and docstring issues in `org-iswitchb' * lisp/org.el (org-switchb): Renamed from `org-iswitchb'. Improve docstring. (org-iswitchb): New alias. (org-ido-switchb): Make alias point to `org-switchb'. --- lisp/org.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 415251cf7..c72e36e32 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -15236,13 +15236,13 @@ changes from another. I believe the procedure must be like this: ;;;; Agenda files ;;;###autoload -(defun org-iswitchb (&optional arg) - "Use `org-icompleting-read' to prompt for an Org buffer to switch to. +(defun org-switchb (&optional arg) + "Switch between Org buffers. With a prefix argument, restrict available to files. With two prefix arguments, restrict available buffers to agenda files. -This will use iswitchb for buffer name completion, unless -`org-completion-use-ido' is non-nil, to select ido completion." +Defaults to `iswitchb' for buffer name completion. +Set `org-completion-use-ido' to make it use ido instead." (interactive "P") (let ((blist (cond ((equal arg '(4)) (org-buffer-list 'files)) ((equal arg '(16)) (org-buffer-list 'agenda)) @@ -15253,11 +15253,14 @@ This will use iswitchb for buffer name completion, unless (setq org-completion-use-iswitchb t)) (switch-to-buffer (org-icompleting-read "Org buffer: " - (mapcar 'list (mapcar 'buffer-name blist)) - nil t)))) + (mapcar 'list (mapcar 'buffer-name blist)) + nil t)))) +;;; Define some older names previously used for this functionality ;;;###autoload -(defalias 'org-ido-switchb 'org-iswitchb) +(defalias 'org-ido-switchb 'org-switchb) +;;;###autoload +(defalias 'org-iswitchb 'org-switchb) (defun org-buffer-list (&optional predicate exclude-tmp) "Return a list of Org buffers. -- 2.11.4.GIT