[elpa] master 0b85b60 5/6: 1) Fixed issue #5 - removed empty line in the beginning of buffer

[Alexey Veretennikov]

branch: master
commit 0b85b6001a42dfce2906cd5ff66b849c44ed1aa1
Author: Alexey Veretennikov <address@hidden>
Commit: Alexey Veretennikov <address@hidden>

    1) Fixed issue #5 - removed empty line in the beginning of buffer
    2) Added Tips & Tricks section to the README.md file
---
 README.md |   13 +++++++++++++
 loccur.el |    6 +++++-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index cea09cd..bfb9acd 100644
--- a/README.md
+++ b/README.md
@@ -48,3 +48,16 @@ Below is the list of interactive commands available for user:
 * `loccur-jump-beginning-of-line` variable specifies if move the cursor to the 
beginning of the matching line. Default `nil`
 * `loccur-highlight-matching-regexp` variable whenever `loccur` should 
highlight matching words. Default `t`.
 * `loccur-face` face to be used while highlighting. Default points to 
`isearch` face.
+
+### Tips and tricks
+To combine **Loccur** and **isearch** functionality (narrowing-search) one can 
use the following hooks:
+```lisp
+(add-hook 'isearch-update-post-hook
+          (lambda ()
+            (let ((loccur-mode nil))
+              (loccur (regexp-quote isearch-string)))))
+
+(add-hook 'isearch-mode-end-hook
+          (lambda ()
+            (loccur nil)))
+```
diff --git a/loccur.el b/loccur.el
index 2b4c543..2cd7bee 100644
--- a/loccur.el
+++ b/loccur.el
@@ -5,7 +5,7 @@
 ;; Author: Alexey Veretennikov <address@hidden>
 ;;
 ;; Created: 2009-09-08
-;; Version: 1.2.2
+;; Version: 1.2.3
 ;; Package-Requires: ((cl-lib "0"))
 ;; Keywords: matching
 ;; URL: https://github.com/fourier/loccur
@@ -46,6 +46,9 @@
 ;;
 ;;; Change Log:
 ;;
+;; 2016-12-26 (1.2.3)
+;;    + Removed empty line in the beginning of the buffer.
+;;    + Added 'Tips and tricks' session to the README.md file
 ;; 2015-12-27 (1.2.2)
 ;;    + Preparation for GNU ELPA submission. Removed contributions
 ;;    without signed papers
@@ -279,6 +282,7 @@ REGEX is an argument to `loccur'."
   (let ((prev-end (point-min))
         (overlays (list)))
     (when buffer-matches
+      (push (list 1 (caar buffer-matches)) overlays)
       (mapc (lambda (line)
               (let ((beginning (car line)))
                 (unless ( = (- beginning prev-end) 1)