diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-08-22 00:20:09 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-08-22 00:20:09 +0200 |
| commit | 65e0b5bccd32b60aafb8a7ae66e09fadb83c770a (patch) | |
| tree | 0706c7c12ccc4ba4da5ba86aefafc97009856136 | |
| parent | b0dc7ec164b6694165e1a1bebfc8e44e81b3aebd (diff) | |
| download | org-mode-65e0b5bccd32b60aafb8a7ae66e09fadb83c770a.tar.gz | |
org-pcomplete.el: Allow to match and complete a "thing" containing dashes
* org-pcomplete.el (org-thing-at-point): Allow to match (and
then complete) a "thing" containing dashes.
Thanks to Aidan Gauland for reporting this problem.
| -rw-r--r-- | lisp/org-pcomplete.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el index 9976e1f..6467840 100644 --- a/lisp/org-pcomplete.el +++ b/lisp/org-pcomplete.el @@ -58,10 +58,10 @@ "Examine the thing at point and let the caller know what it is. The return value is a string naming the thing at point." (let ((beg1 (save-excursion - (skip-chars-backward (org-re "[:alnum:]_@")) + (skip-chars-backward (org-re "[:alnum:]-_@")) (point))) (beg (save-excursion - (skip-chars-backward "a-zA-Z0-9_:$") + (skip-chars-backward "a-zA-Z0-9-_:$") (point))) (line-to-here (buffer-substring (point-at-bol) (point)))) (cond |