diff options
| author | Sébastien Delafond <sdelafond@gmail.com> | 2016-02-10 18:54:48 +0100 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2016-02-10 18:54:48 +0100 |
| commit | 5b4347604ce1b4d25a87f6a83f75a4038a180d86 (patch) | |
| tree | 87438ba3d21a30105d7d98427d322deccc9eccd3 /lisp/org-pcomplete.el | |
| parent | f083b1cce35adcd4dff9db99b033056401a203ba (diff) | |
| parent | 8d8ea67656b95d8528b6cd9b43b2d53b847412b0 (diff) | |
Merge tag 'upstream/8.3.3'
Upstream version 8.3.3
Diffstat (limited to 'lisp/org-pcomplete.el')
| -rw-r--r-- | lisp/org-pcomplete.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el index 05683fe..42d0f9f 100644 --- a/lisp/org-pcomplete.el +++ b/lisp/org-pcomplete.el @@ -93,8 +93,10 @@ The return value is a string naming the thing at point." (skip-chars-backward "[ \t\n]") ;; org-drawer-regexp matches a whole line but while ;; looking-back, we just ignore trailing whitespaces - (or (org-looking-back (substring org-drawer-regexp 0 -1)) - (org-looking-back org-property-re)))) + (or (org-looking-back (substring org-drawer-regexp 0 -1) + (line-beginning-position)) + (org-looking-back org-property-re + (line-beginning-position))))) (cons "prop" nil)) ((and (equal (char-before beg1) ?:) (not (equal (char-after (point-at-bol)) ?*))) |