* progmodes/python.el: Remove cl dependency.

(python-syntax-count-quotes): Replace incf call.
(python-fill-string): Replace setf call.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ab0aa12ffd6951be6e1af11b58cebed4196cb49d..d37ee561fc3f96913c7c04023c484e159bbcbe92 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-12-29  Fabián Ezequiel Gallina  <fgallina@cuca>
+
+       * progmodes/python.el: Remove cl dependency.
+       (python-syntax-count-quotes): Replace incf call.
+       (python-fill-string): Replace setf call.
+
 2012-12-29  Damien Cassou  <damien.cassou@gmail.com>
 
        * info.el (info-other-window): New arg, for consistency with info.

diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index 67388c0339bd6313fd45e569fba76e62196a5bb6..56a971f0c670e3dbe7b9de1d10f225a3148cd0ae 100644 (file)
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -204,7 +204,6 @@
 
 (require 'ansi-color)
 (require 'comint)
-(eval-when-compile (require 'cl-lib))
 
 ;; Avoid compiler warnings
 (defvar view-return-to-alist)
@@ -529,7 +528,7 @@ is used to limit the scan."
     (while (and (< i 3)
                 (or (not limit) (< (+ point i) limit))
                 (eq (char-after (+ point i)) quote-char))
-      (cl-incf i))
+      (setq i (1+ i)))
     i))
 
 (defun python-syntax-stringify ()
@@ -2487,12 +2486,12 @@ JUSTIFY should be used (if applicable) as in `fill-paragraph'."
 JUSTIFY should be used (if applicable) as in `fill-paragraph'."
   (let* ((marker (point-marker))
          (str-start-pos
-          (let ((m (make-marker)))
-            (setf (marker-position m)
-                  (or (python-syntax-context 'string)
-                      (and (equal (string-to-syntax "|")
-                                  (syntax-after (point)))
-                           (point)))) m))
+          (set-marker
+           (make-marker)
+           (or (python-syntax-context 'string)
+               (and (equal (string-to-syntax "|")
+                           (syntax-after (point)))
+                    (point)))))
          (num-quotes (python-syntax-count-quotes
                       (char-after str-start-pos) str-start-pos))
          (str-end-pos