Browse Source

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.
Bastien Guerry 12 years ago
parent
commit
65e0b5bccd
1 changed files with 2 additions and 2 deletions
  1. 2 2
      lisp/org-pcomplete.el

+ 2 - 2
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