From eda8ac493f6f4dd7706cfea1ec1e4cb76bb6d3ab Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Sun, 2 Oct 2016 00:30:14 +0200
Subject: [PATCH] Fix inconsistencies in `org-occur' binding

* doc/org.texi (Sparse trees): Add C-c / / binding for `org-occur'.
* lisp/org.el (org-sparse-tree): Mention "r" suffix for consistency with
  other entries in the help menu.
---
 doc/org.texi | 2 +-
 lisp/org.el  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/doc/org.texi b/doc/org.texi
index 88f59f80b..619c6e894 100644
--- a/doc/org.texi
+++ b/doc/org.texi
@@ -1565,7 +1565,7 @@ commands can be accessed through a dispatcher:
 @table @asis
 @orgcmd{C-c /,org-sparse-tree}
 This prompts for an extra key to select a sparse-tree creating command.
-@orgcmd{C-c / r,org-occur}
+@orgcmdkkc{C-c / r,C-c / /,org-occur}
 @vindex org-remove-highlights-with-change
 Prompts for a regexp and shows a sparse tree with all matches.  If
 the match is in a headline, the headline is made visible.  If the match is in
diff --git a/lisp/org.el b/lisp/org.el
index 772fe10b4..f508a10e3 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -13907,7 +13907,7 @@ D      Show deadlines and scheduled items between a date range."
   (interactive "P")
   (setq type (or type org-sparse-tree-default-date-type))
   (setq org-ts-type type)
-  (message "Sparse tree: [/]regexp [t]odo [T]odo-kwd [m]atch [p]roperty
+  (message "Sparse tree: [r]egexp [t]odo [T]odo-kwd [m]atch [p]roperty
              \[d]eadlines [b]efore-date [a]fter-date [D]ates range
              \[c]ycle through date types: %s"
 	   (cl-case type