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 ;;; 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." "Find REGEX in current buffer and format as a proper time version."
(format-time-string (format-time-string
"%Y%m%d" "%Y%m%d"
(date-to-time (date-to-time
(print (progn (re-search-backward regex) (print (progn (re-search-backward regex bound)
(match-string-no-properties 1)))))) (match-string-no-properties 1))))))
(defun pb/run-process (dir prog &rest args) (defun pb/run-process (dir prog &rest args)