[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 7ea1aa3e86fc72cbc40c62673a5141b21417cd67

[Matthew Leach]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  7ea1aa3e86fc72cbc40c62673a5141b21417cd67 (commit)
       via  af27d3337bc28715069c31e98be243cce7cbd44d (commit)
      from  b20cd6886814d6d8f989b2656b81f22fe24c475c (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 7ea1aa3e86fc72cbc40c62673a5141b21417cd67
Author: Matthew Leach <address@hidden>
Date:   Fri Apr 8 13:59:30 2016 +0100

    TikZ: Don't allow relative points with \coordinate.
    
    * style/tikz.el (TeX-TikZ-point-function-map): Revert back to simple
      point alist.
      (TeX-TikZ-relative-point-function-map): New.
      (TeX-TikZ-draw-arg-function-map): Use
      `TeX-TikZ-relative-point-function-map'.

diff --git a/style/tikz.el b/style/tikz.el
index 52f1d2e..4a2fc03 100644
--- a/style/tikz.el
+++ b/style/tikz.el
@@ -214,20 +214,21 @@ If OPTIONAL is non-nil and the user doesn't provide a 
point,
     (concat "grid" options)))
 
 (defconst TeX-TikZ-point-function-map
-  (let ((point-alist '(("Rect Point" TeX-TikZ-arg-rect-point)
-                       ("Polar Point" TeX-TikZ-arg-polar-point)
-                       ("Named Point" TeX-TikZ-arg-named-point))))
-    (apply 'append (mapcar
-                    (lambda (point-map)
-                      (let ((key (car point-map))
-                            (value (cadr point-map)))
-                        `((,key ,value)
-                          (,(concat "+" key) ,value "+")
-                          (,(concat "++" key) ,value "++"))))
-                    point-alist)))
-  "An alist of point specification types and their functions.
-A set of base point types along with variants that have \"+\" and
-\"++\" as a prefix."  )
+  '(("Rect Point" TeX-TikZ-arg-rect-point)
+    ("Polar Point" TeX-TikZ-arg-polar-point)
+    ("Named Point" TeX-TikZ-arg-named-point))
+  "An alist of point specification types and their functions.")
+
+(defconst TeX-TikZ-relative-point-function-map
+  (apply 'append (mapcar
+                  (lambda (point-map)
+                    (let ((key (car point-map))
+                          (value (cadr point-map)))
+                      `((,(concat "+" key) ,value "+")
+                        (,(concat "++" key) ,value "++"))))
+                  TeX-TikZ-point-function-map))
+  "`TeX-TikZ-point-function-map' with \"+\" and \"++\" as a
+prefix.")
 
 (defconst TeX-TikZ-path-connector-function-map
   '(("--" identity)
@@ -239,6 +240,7 @@ A set of base point types along with variants that have 
\"+\" and
 
 (defconst TeX-TikZ-draw-arg-function-map
   `(,@TeX-TikZ-point-function-map
+    ,@TeX-TikZ-relative-point-function-map
     ,@TeX-TikZ-path-connector-function-map
     ("Node" TeX-TikZ-arg-node)
     ("Circle" TeX-TikZ-arg-circle)

commit af27d3337bc28715069c31e98be243cce7cbd44d
Author: Matthew Leach <address@hidden>
Date:   Fri Apr 8 13:47:47 2016 +0100

    TikZ: Add the grid command.
    
    * style/tikz.el (TeX-TikZ-arg-grid): New.
      (TeX-TikZ-draw-arg-function-map): Map the 'Grid' command to
      `TeX-TikZ-arg-grid'.

diff --git a/style/tikz.el b/style/tikz.el
index e468dc3..52f1d2e 100644
--- a/style/tikz.el
+++ b/style/tikz.el
@@ -208,6 +208,11 @@ If OPTIONAL is non-nil and the user doesn't provide a 
point,
         (bend (TeX-TikZ-arg-bend t)))
        (concat "parabola" options bend)))
 
+(defun TeX-TikZ-arg-grid (_ignored)
+  "Prompt the user for the arguments to the grid command."
+  (let ((options (TeX-TikZ-arg-options t)))
+    (concat "grid" options)))
+
 (defconst TeX-TikZ-point-function-map
   (let ((point-alist '(("Rect Point" TeX-TikZ-arg-rect-point)
                        ("Polar Point" TeX-TikZ-arg-polar-point)
@@ -238,7 +243,8 @@ A set of base point types along with variants that have 
\"+\" and
     ("Node" TeX-TikZ-arg-node)
     ("Circle" TeX-TikZ-arg-circle)
     ("Arc" TeX-TikZ-arg-arc)
-    ("Parabola" TeX-TikZ-arg-parabola))
+    ("Parabola" TeX-TikZ-arg-parabola)
+    ("Grid" TeX-TikZ-arg-grid))
   "An alist of argument names and functoins for TikZ's \draw.")
 
 (defun TeX-TikZ-draw-arg (_ignored)

-----------------------------------------------------------------------

Summary of changes:
 style/tikz.el |   38 +++++++++++++++++++++++---------------
 1 files changed, 23 insertions(+), 15 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX