diff options
Diffstat (limited to 'lisp/acdw.el')
-rw-r--r-- | lisp/acdw.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 63291d3..b76b947 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
@@ -59,6 +59,13 @@ enables passing arguments to a calling function." | |||
59 | ("—" "---")))) | 59 | ("—" "---")))) |
60 | (replace-match replace nil nil))))) | 60 | (replace-match replace nil nil))))) |
61 | 61 | ||
62 | (defun unsmartify-dwim () | ||
63 | "Unsmartify the current region or the entire buffer." | ||
64 | (interactive) | ||
65 | (if (region-active-p) | ||
66 | (unsmartify-region (region-beginning) (region-end)) | ||
67 | (unsmartify-region (point-min) (point-max)))) | ||
68 | |||
62 | (defun ++concat (func strings) | 69 | (defun ++concat (func strings) |
63 | "Concat STRINGS processed by FUNC. | 70 | "Concat STRINGS processed by FUNC. |
64 | Each of STRINGS can be a bare string or a list. Strings are | 71 | Each of STRINGS can be a bare string or a list. Strings are |