add a BOUND parameter to the timestamp parser

This commit is contained in:
Donald Curtis 2012-04-17 15:27:34 -05:00
parent 3e4c8ca859
commit 565ee2017b

View file

@ -71,12 +71,12 @@
;;; Internal functions
(defun pb/find-parse-time (regex)
(defun pb/find-parse-time (regex &optional bound)
"Find REGEX in current buffer and format as a proper time version."
(format-time-string
"%Y%m%d"
(date-to-time
(print (progn (re-search-backward regex)
(print (progn (re-search-backward regex bound)
(match-string-no-properties 1))))))
(defun pb/run-process (dir prog &rest args)