Commits

jpk...@shannon  committed 3fd80bf

add openwith-make-extension-regexp helper function

  • Participants
  • Parent commits 0781d81

Comments (0)

Files changed (1)

   :group 'openwith
   :type 'boolean)
 
+(defun openwith-make-extension-regexp (strings)
+  "Make a regexp that matches a string that starts with a '.',
+has any of the supplied STRINGS, and is at the end of the
+string."
+  (concat "\\." (regexp-opt extension-strings) "$"))
+
 (defun openwith-open (command arglist)
   "Run external command COMMAND, in such a way that it is
   disowned from the parent Emacs process.  If Emacs dies, the