diff options
author | Case Duckworth | 2023-05-05 09:58:21 -0500 |
---|---|---|
committer | Case Duckworth | 2023-05-05 09:58:21 -0500 |
commit | 989171268461a0069ecd53a49e6098ce08638102 (patch) | |
tree | b88889d371152458f674c0a608222bf1192f3980 /lisp/acdw.el | |
parent | remove bad fiels (diff) | |
download | emacs-989171268461a0069ecd53a49e6098ce08638102.tar.gz emacs-989171268461a0069ecd53a49e6098ce08638102.zip |
changes use-package
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 |