emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] elpa c49b547 17/23: TikZ: Rename 'text' to 'label' to be consiste


From: Tassilo Horn
Subject: [elpa] elpa c49b547 17/23: TikZ: Rename 'text' to 'label' to be consistent with TikZ terminology.
Date: Wed, 30 Mar 2016 19:08:03 +0000

branch: elpa
commit c49b54777ee1bf91eecfb5cd8357fda0970102b1
Author: Matthew Leach <address@hidden>
Commit: Matthew Leach <address@hidden>

    TikZ: Rename 'text' to 'label' to be consistent with TikZ terminology.
    
    * style/tikz.el (TeX-TikZ-arg-label): Rename from `TeX-TikZ-arg-text'
      and prompt for a 'Label' rather than 'Text'.
      (TeX-TikZ-arg-node): Use new function name.
      (TeX-TikZ-node-arg): Likewise.
---
 style/tikz.el |   18 +++++++++---------
 1 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/style/tikz.el b/style/tikz.el
index 9e2ff97..5091e8d 100644
--- a/style/tikz.el
+++ b/style/tikz.el
@@ -76,14 +76,14 @@ doesn't provide any input."
         (TeX-TikZ-get-opt-arg-string name "(" ")")
       (concat "(" name ")"))))
 
-(defun TeX-TikZ-arg-text (optional)
-  "Prompt the user for TikZ text.
+(defun TeX-TikZ-arg-label (optional)
+  "Prompt the user for TikZ label.
 If OPTIONAL is non-nil always return `TeX-grop' and `TeX-grcl',
 even if the user doesn't provide any input."
-  (let ((text (TeX-read-string (TeX-argument-prompt optional nil "Text" ))))
+  (let ((label (TeX-read-string (TeX-argument-prompt optional nil "Label" ))))
     (if optional
-        (TeX-TikZ-get-opt-arg-string text TeX-grop TeX-grcl)
-      (concat TeX-grop text TeX-grcl))))
+        (TeX-TikZ-get-opt-arg-string label TeX-grop TeX-grcl)
+      (concat TeX-grop label TeX-grcl))))
 
 (defun TeX-TikZ-arg-node (_ignored)
   "Prompt the user for the deatils of a node.
@@ -91,8 +91,8 @@ Ask the user for the name and text for a node and return the
 string \"node[OPTIONS](NAME){TEXT}\"."
   (let ((options (TeX-TikZ-arg-options t))
         (name (TeX-TikZ-arg-name t))
-        (text (TeX-TikZ-arg-text nil)))
-    (concat "node" options name text " ")))
+        (label (TeX-TikZ-arg-label nil)))
+    (concat "node" options name label " ")))
 
 (defun TeX-TikZ-get-arg-type (types &optional prompt)
   "Prompt the user for an argument type.
@@ -204,8 +204,8 @@ them as a list of strings, dropping the '()'."
         (name (TeX-TikZ-arg-name nil))
         (point (TeX-TikZ-single-macro-arg TeX-TikZ-point-function-map
                                           "Node point type: "))
-        (text (TeX-TikZ-arg-text nil)))
-    (insert options " " name  " at" point text ";")))
+        (label (TeX-TikZ-arg-label nil)))
+    (insert options " " name  " at" point label ";")))
 
 (TeX-add-style-hook
  "tikz"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]