Carsten Dominik 15 gadi atpakaļ
vecāks
revīzija
bad2d177e9
1 mainītis faili ar 9 papildinājumiem un 9 dzēšanām
  1. 9 9
      lisp/org.el

+ 9 - 9
lisp/org.el

@@ -9255,20 +9255,20 @@ If the file does not exist, an error is thrown."
 
 (defun org-file-apps-entry-match-against-dlink-p (entry)
   "This function returns non-nil if `entry' uses a regular
-  expression which should be matched against the whole link by
-  org-open-file.
-
- It assumes that is the case when the entry uses a regular
- expression which has at least one grouping construct and the
- action is either a lisp form or a command string containing
- '%1', i.e. using at least one subexpression match as a
- parameter."
+expression which should be matched against the whole link by
+org-open-file.
+
+It assumes that is the case when the entry uses a regular
+expression which has at least one grouping construct and the
+action is either a lisp form or a command string containing
+'%1', i.e. using at least one subexpression match as a
+parameter."
   (let ((selector (car entry))
 	(action (cdr entry)))
     (if (stringp selector)
 	(and (> (regexp-opt-depth selector) 0)
 	     (or (and (stringp action)
-		      (string-match "%1" action))
+		      (string-match "%[0-9]" action))
 		 (consp action)))
       nil)))