Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Get rid of compiler warnings

  • Loading branch information...
commit 0fd94b78d7f8ea16bf68006fba6d4cd939726b7c 1 parent 4eb5ded
authored April 02, 2010

Showing 1 changed file with 6 additions and 5 deletions. Show diff stats Hide diff stats

  1. 11  css-check.el
11  css-check.el
@@ -106,7 +106,7 @@ When non-nil return value is the path to local csstidy.\n
106 106
                        (string-to-number (match-string 0)))))))
107 107
          (find-file-other-window css-file)
108 108
          (and line
109  
-              (goto-line line)))))
  109
+			  (goto-char (point-min)) (forward-line (1- line))))))
110 110
 
111 111
 (defun css-check-apply-line-at-p ()
112 112
   "Apply tidying at point."
@@ -128,9 +128,9 @@ When non-nil return value is the path to local csstidy.\n
128 128
 	   (when (and oldtext newtext)
129 129
 		 (css-check-goto-line-at-p)
130 130
 		 (save-excursion
131  
-		   (replace-string oldtext newtext nil
132  
-						   (point-at-bol)
133  
-						   (point-at-eol)))
  131
+		   (goto-char (point-at-bol))
  132
+		   (while (search-forward oldtext (point-at-eol) t)
  133
+			 (replace-match newtext t t)))
134 134
 		 (switch-to-buffer-other-window buffer)
135 135
 		 (save-excursion
136 136
 		   (let (buffer-read-only)
@@ -164,7 +164,8 @@ When non-nil return value is the path to local csstidy.\n
164 164
 	   (when (and oldtext newtext)
165 165
 		 (css-check-goto-line-at-p)
166 166
 		 (save-excursion
167  
-		   (replace-string oldtext newtext nil (point-at-bol) (point-at-eol)))
  167
+		   (while (search-forward oldtext (point-at-eol) t)
  168
+			 (replace-match newtext t t)))
168 169
 		 (switch-to-buffer-other-window buffer)
169 170
 		 (save-excursion
170 171
 		   (let (buffer-read-only)

0 notes on commit 0fd94b7

Please sign in to comment.
Something went wrong with that request. Please try again.