[elpa] master ee4c9da: [el-search] Provide el-search-occur-search-object earlier

[Michael Heerdegen]

branch: master
commit ee4c9dae72f16d0956e2511931c7ab8b79f9784a
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    [el-search] Provide el-search-occur-search-object earlier
    
    Also bump version to 1.8.2.
    
    * packages/el-search/el-search.el (el-search--occur): Make
    'el-search-occur-search-object' available when
    'el-search-occur-mode-hook' is run.  This implies making the local
    variable permanent-local.
---
 packages/el-search/el-search.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index c56e42a..4a51f18 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 1.8.1
+;; Version: 1.8.2
 ;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
 
 
@@ -3182,8 +3182,9 @@ Prompt for a new pattern and revert."
                 (progn
                   (erase-buffer)
                   (delete-all-overlays))
-              (el-search-occur-mode)
-              (setq el-search-occur-search-object search))
+              (setq el-search-occur-search-object search)
+              (put 'el-search-occur-search-object 'permanent-local t)
+              (el-search-occur-mode))
             (insert (format ";;; * %s   -*- mode: el-search-occur -*-\n\n;;; 
** %s\n\n"
                             (current-time-string)
                             (el-search--get-search-description-string search)))