[PATCH 3/5] eww: Use `setq-local'.

[Rüdiger Sonderfeld]

* lisp/net/eww.el (eww-render, eww-mode): Use `setq-local'.
---
 lisp/ChangeLog  |  1 +
 lisp/net/eww.el | 26 +++++++++++++-------------
 2 files changed, 14 insertions(+), 13 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf8553d..54f6c77 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,7 @@
        (eww-bookmark-browse, eww-next-bookmark, eww-previous-bookmark):
        Use `user-error'.
        (eww-bookmark-mode-map): Add menu.
+       (eww-render, eww-mode): Use `setq-local'.
 
 2013-12-19  Teodor Zlatanov  <address@hidden>
 
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 1da2bb2..a58b7ed 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -171,12 +171,12 @@ (defun eww-render (status url &optional point)
   (let ((redirect (plist-get status :redirect)))
     (when redirect
       (setq url redirect)))
-  (set (make-local-variable 'eww-next-url) nil)
-  (set (make-local-variable 'eww-previous-url) nil)
-  (set (make-local-variable 'eww-up-url) nil)
-  (set (make-local-variable 'eww-home-url) nil)
-  (set (make-local-variable 'eww-start-url) nil)
-  (set (make-local-variable 'eww-contents-url) nil)
+  (setq-local eww-next-url nil)
+  (setq-local eww-previous-url nil)
+  (setq-local eww-up-url nil)
+  (setq-local eww-home-url nil)
+  (setq-local eww-start-url nil)
+  (setq-local eww-contents-url nil)
   (let* ((headers (eww-parse-headers))
         (content-type
          (mail-header-parse-content-type
@@ -443,13 +443,13 @@ (define-derived-mode eww-mode nil "eww"
 
 \\{eww-mode-map}"
   ;; FIXME?  This seems a strange default.
-  (set (make-local-variable 'eww-current-url) 'author)
-  (set (make-local-variable 'eww-current-dom) nil)
-  (set (make-local-variable 'eww-current-source) nil)
-  (set (make-local-variable 'browse-url-browser-function) 'eww-browse-url)
-  (set (make-local-variable 'after-change-functions) 'eww-process-text-input)
-  (set (make-local-variable 'eww-history) nil)
-  (set (make-local-variable 'eww-history-position) 0)
+  (setq-local eww-current-url 'author)
+  (setq-local eww-current-dom nil)
+  (setq-local eww-current-source nil)
+  (setq-local browse-url-browser-function 'eww-browse-url)
+  (setq-local after-change-functions 'eww-process-text-input)
+  (setq-local eww-history nil)
+  (setq-local eww-history-position 0)
   (buffer-disable-undo)
   ;;(setq buffer-read-only t)
   )
-- 
1.8.5