mirror of
https://github.com/correl/melpa.git
synced 2024-11-28 11:09:55 +00:00
add a BOUND parameter to the timestamp parser
This commit is contained in:
parent
3e4c8ca859
commit
565ee2017b
1 changed files with 2 additions and 2 deletions
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue