1 files changed, 9 insertions, 9 deletions

@@ -123,20 +123,20 @@ FILENAME and CONFIRM are passed directly to `write-file'."
   "Replace \r\n with \n in BUFFER."
   (interactive "*b")
   (save-excursion
-    (goto-char (point-min))
-    (while (search-forward (string ?\C-m ?\C-j) nil t)
-      (replace-match (string ?\C-j) nil t))))
-
-(defun expand-file-name-exists-p (&rest expand-file-name-args)
-  "Call `expand-file-name' on EXPAND-FILE-NAME-ARGS, returning
-  its name if it exists, or NIL otherwise."
-  (let ((file (apply #'expand-file-name expand-file-name-args)))
+    (with-current-buffer buffer
+      (goto-char (point-min))
+      (while (search-forward (string ?\C-m ?\C-j) nil t)
+        (replace-match (string ?\C-j) nil t)))))
+
+(defun expand-file-name-exists-p (&rest args)
+  "Return `expand-file-name' ARGS if it exists, or nil."
+  (let ((file (apply #'expand-file-name args)))
     (if (file-exists-p file)
         file
       nil)))
 
 (defun kill-region-or-backward-word (arg)
-  "Kill region if active, or backward word if not."
+  "If region is active, kill; otherwise kill word backward with ARG."
   (interactive "p")
   (if (region-active-p)
       (kill-region (region-beginning) (region-end))