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."
                       ("—" "---"))))
        (replace-match replace nil nil)))))
+(defun unsmartify-dwim ()
+  "Unsmartify the current region or the entire buffer."
+  (interactive)
+  (if (region-active-p)
+      (unsmartify-region (region-beginning) (region-end))
+    (unsmartify-region (point-min) (point-max))))
 (defun ++concat (func strings)
  "Concat STRINGS processed by FUNC.
 Each of STRINGS can be a bare string or a list.  Strings are

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