diff --git a/contrib/lisp/org-bookmark.el b/contrib/lisp/org-bookmark.el index 78a6f576b..5c669b007 100644 --- a/contrib/lisp/org-bookmark.el +++ b/contrib/lisp/org-bookmark.el @@ -80,7 +80,7 @@ Otherwise prompt the user for the right bookmark to use." (car bmks) (completing-read "Bookmark: " bmks nil t nil nil (car bmks)))))) (if bookmark - (org-store-link-props :link (contact "bookmark:" bookmark) + (org-store-link-props :link (concat "bookmark:" bookmark) :description bookmark)))) (provide 'org-bookmark) diff --git a/contrib/lisp/org-git-link.el b/contrib/lisp/org-git-link.el index e18e2af52..2f5990fae 100644 --- a/contrib/lisp/org-git-link.el +++ b/contrib/lisp/org-git-link.el @@ -171,7 +171,7 @@ (let* ((gitdir (first (org-git-find-gitdir (file-truename file)))) (branchname (org-git-get-current-branch gitdir)) (timestring (format-time-string "%Y-%m-%d" (current-time)))) - (contact "git:" file "::" (org-git-create-searchstring branchname timestring)))) + (concat "git:" file "::" (org-git-create-searchstring branchname timestring)))) (defun org-git-store-link () "Store git link to current file." diff --git a/doc/org.texi b/doc/org.texi index 709fe4dce..83f59392b 100644 --- a/doc/org.texi +++ b/doc/org.texi @@ -8698,6 +8698,13 @@ buffer, or a sparse tree (the latter covering of course only the current buffer). @kindex C-c a C @vindex org-agenda-custom-commands +@cindex agenda views, main example +@cindex tags, as an agenda view +@cindex todo, as an agenda view +@cindex tags-todo +@cindex todo-tree +@cindex occur-tree +@cindex tags-tree Custom commands are configured in the variable @code{org-agenda-custom-commands}. You can customize this variable, for @@ -8758,6 +8765,9 @@ additional key (@kbd{l}, @kbd{p} or @kbd{k}) to select a name (Lisa, Peter, or Kim) as additional tag to match. @end table +Note that the @code{*-tree} agenda views need to be called from an +Org buffer as they operate on the current buffer only. + @node Block agenda, Setting Options, Storing searches, Custom agenda views @subsection Block agenda @cindex block agenda diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 2a083f0d6..9e95aab18 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -546,7 +546,7 @@ The table of checksums is written to the file mobile-checksums." (t (cons (car x) (cons "" (cdr x)))))) org-agenda-custom-commands))) (default-list '(("a" "Agenda" agenda) ("t" "All TODO" alltodo))) - thelist new e key desc type match settings cmds gkey gdesc gsettings cnt) + thelist atitle new e key desc type match settings cmds gkey gdesc gsettings cnt) (cond ((eq org-mobile-agendas 'custom) (setq thelist custom-list)) @@ -598,12 +598,13 @@ The table of checksums is written to the file mobile-checksums." (setq cnt 0) (while (setq e (pop cmds)) (setq type (car e) match (nth 1 e) settings (nth 2 e)) + (setq atitle (if (string= "" gdesc) match gdesc)) (setq settings (append gsettings settings)) (setq settings (cons (list 'org-agenda-title-append (concat "KEYS=" gkey "#" (number-to-string (setq cnt (1+ cnt))) - " TITLE: " gdesc " " match "")) + " TITLE: " atitle "")) settings)) (push (list type match settings) new))))) (and new (list "X" "SUMO" (reverse new)