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 2909fdd67da388047d2e61635922e86f610bfa8d..497318a39ddbb75e3df6f402e8a507fb40814d2b 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -647,13 +647,13 @@ (fset 'mdw-do-auto-fill (symbol-function 'do-auto-fill))
 
 (defun mdw-maybe-tabify (s)
   "Tabify or untabify the string S, according to `indent-tabs-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)))
        (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
 
 (defun mdw-examine-fill-prefixes (l)
   "Given a list of dynamic fill prefixes, pick one which matches