diff options
| author | Craig Earls <enderw88@gmail.com> | 2015-02-10 14:27:48 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2015-02-10 14:27:48 -0700 |
| commit | 6b668974a48daa9982470295adb7fe3c1c7dd990 (patch) | |
| tree | 83876c89786efc8bca50c0cfa404e60ebb94cb8d /lisp/ledger-regex.el | |
| parent | b822f4ea3df56e5227c898aaffacdb3a9c0e9471 (diff) | |
| parent | 8162cc783da82b5383e6403c80930034582bb366 (diff) | |
| download | fork-ledger-6b668974a48daa9982470295adb7fe3c1c7dd990.tar.gz fork-ledger-6b668974a48daa9982470295adb7fe3c1c7dd990.tar.bz2 fork-ledger-6b668974a48daa9982470295adb7fe3c1c7dd990.zip | |
Merge pull request #389 from thdox/untabify-emacs-lisp2
[emacs] Untabify emacs lisp
Diffstat (limited to 'lisp/ledger-regex.el')
| -rw-r--r-- | lisp/ledger-regex.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lisp/ledger-regex.el b/lisp/ledger-regex.el index 41231845..9d8394df 100644 --- a/lisp/ledger-regex.el +++ b/lisp/ledger-regex.el @@ -108,8 +108,8 @@ defs (list `(defmacro - ,(intern (concat "ledger-regex-" (symbol-name name))) - (&optional string) + ,(intern (concat "ledger-regex-" (symbol-name name))) + (&optional string) ,(format "Return the match string for the %s" name) (match-string ,(intern (concat "ledger-regex-" (symbol-name name) @@ -153,9 +153,9 @@ defs (list `(defmacro - ,(intern (concat "ledger-regex-" (symbol-name name) - "-" (symbol-name var))) - (&optional string) + ,(intern (concat "ledger-regex-" (symbol-name name) + "-" (symbol-name var))) + (&optional string) ,(format "Return the sub-group match for the %s %s." name var) (match-string @@ -333,8 +333,8 @@ "\\)")) (defconst ledger-xact-start-regex - (concat "^" ledger-iso-date-regexp ;; subexp 1 - "\\(=" ledger-iso-date-regexp "\\)?" + (concat "^" ledger-iso-date-regexp ;; subexp 1 + "\\(=" ledger-iso-date-regexp "\\)?" )) (defconst ledger-xact-after-date-regex @@ -345,17 +345,17 @@ )) (defconst ledger-posting-regex - (concat "^[ \t]+ ?" ;; initial white space - "\\([*!]\\)? ?" ;; state, subexpr 1 - "\\([[:print:]]+\\([ \t][ \t]\\)\\)" ;; account, subexpr 2 - "\\([^;\n]*\\)" ;; amount, subexpr 4 - "\\(.*\\)" ;; comment, subexpr 5 - )) + (concat "^[ \t]+ ?" ;; initial white space + "\\([*!]\\)? ?" ;; state, subexpr 1 + "\\([[:print:]]+\\([ \t][ \t]\\)\\)" ;; account, subexpr 2 + "\\([^;\n]*\\)" ;; amount, subexpr 4 + "\\(.*\\)" ;; comment, subexpr 5 + )) (defconst ledger-directive-start-regex - "[=~;#%|\\*[A-Za-z]") + "[=~;#%|\\*[A-Za-z]") (provide 'ledger-regex) |