el/dot-emacs (mdw-maybe-tabify): Fix incorrect region caching.

[profile] / el / dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 2909fdd..497318a 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -647,13 +647,13 @@ This is mainly useful in `auto-fill-mode'.")
 
 (defun mdw-maybe-tabify (s)
   "Tabify or untabify the string S, according to `indent-tabs-mode'."
-  (with-temp-buffer
-    (save-match-data
-      (let ((tabfun (if indent-tabs-mode #'tabify #'untabify)))
+  (let ((tabfun (if indent-tabs-mode #'tabify #'untabify)))
+    (with-temp-buffer
+      (save-match-data
        (insert s "\n")
        (let ((start (point-min)) (end (point-max)))
-         (funcall tabfun start end)
-         (setq s (buffer-substring start (1- end))))))))
+         (funcall tabfun (point-min) (point-max))
+         (setq s (buffer-substring (point-min) (1- (point-max)))))))))
 
 (defun mdw-examine-fill-prefixes (l)
   "Given a list of dynamic fill prefixes, pick one which matches