[elpa] 01/01: * pabbrev.el: Restore cursor position to start of suggestion. (pabbrev-insert-suggestion): Move cursor overlay property to first character of insertion which is [.

[Phillip Lord]

phillord pushed a commit to branch externals/pabbrev
in repository elpa.

commit 125f36e48fabd039e218e6a453bfa2fb76545301
Author: Phillip Lord <address@hidden>
Date:   Fri Nov 7 22:01:11 2014 +0000

    * pabbrev.el: Restore cursor position to start of suggestion.
    (pabbrev-insert-suggestion): Move cursor overlay property to first
    character of insertion which is [.
---
 pabbrev.el |   11 ++++++-----
 1 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/pabbrev.el b/pabbrev.el
index 5e3c3f3..073124d 100644
--- a/pabbrev.el
+++ b/pabbrev.el
@@ -931,11 +931,12 @@ The suggestion should start with PREFIX, and be entered 
at point."
           (setq pabbrev-marker (cons (point) (point)))
           (overlay-put pabbrev-overlay
                        'after-string
-                       (concat "["
-                               (propertize expansion
-                                           'face (overlay-get pabbrev-overlay 
'face)
-                                           'cursor 0)
-                               "]")))))))
+                       (propertize
+                        (concat "["
+                                (propertize expansion
+                                            'face (overlay-get pabbrev-overlay 
'face))
+                                "]")
+                        'cursor 0)))))))
 
 (defvar pabbrev-last-expansion-suggestions nil
   "Cached alternative suggestions from the last expansion.")