Mercurial > hgrepos > hgweb.cgi > yatex
changeset 394:67fa6d791bc9 dev
Workaround for `Same buffer in multiple frames' applied to yahtml
| author | HIROSE Yuuji <yuuji@gentei.org> |
|---|---|
| date | Fri, 16 Jan 2015 10:13:08 +0900 |
| parents | 318841b09570 |
| children | 5aa8208fbef0 |
| files | yahtml.el yatex.el yatexadd.el |
| diffstat | 3 files changed, 102 insertions(+), 88 deletions(-) [+] |
line wrap: on
line diff
--- a/yahtml.el Fri Jan 16 08:58:20 2015 +0900 +++ b/yahtml.el Fri Jan 16 10:13:08 2015 +0900 @@ -1,6 +1,6 @@ ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*- ;;; (c) 1994-2013 by HIROSE Yuuji [yuuji(@)yatex.org] -;;; Last modified Thu Jan 15 11:34:59 2015 on firestorm +;;; Last modified Fri Jan 16 10:00:10 2015 on firestorm ;;; $Id$ (defconst yahtml-revision-number "1.77" @@ -898,7 +898,7 @@ (defun yahtml-read-css (alist) (let ((completion-ignore-case t) (delim " ") (minibuffer-completion-table alist)) - (read-from-minibuffer + (read-from-minibuffer-with-history (substitute-command-keys (if YaTeX-japan "クラス(複数指定は\\[quoted-insert] SPCで区切る): " @@ -1125,12 +1125,13 @@ (setq yahtml-completing-buffer (current-buffer) yahtml-urls (append yahtml-urls-private yahtml-urls-local) href (yahtml-escape-chars-string - (read-from-minibuffer "href: " "" yahtml-url-completion-map))) + (read-from-minibuffer-with-history + "href: " "" yahtml-url-completion-map))) (prog1 (concat (yahtml-make-optional-argument "href" href) (yahtml-make-optional-argument - "name" (read-string "name: "))) + "name" (read-string-with-history "name: "))) (if (and (string-match "^http://" href) (null (assoc href yahtml-urls-private)) (null (assoc href yahtml-urls-local))) @@ -1179,13 +1180,14 @@ ((eq alist 'command) (if (fboundp 'read-shell-command) (read-shell-command prompt) - (read-string prompt))) + (read-string-with-history prompt))) ((and alist (symbolp alist)) - (completing-read prompt (symbol-value alist) nil nil default)) + (completing-read-with-history + prompt (symbol-value alist) nil nil default)) (alist - (completing-read prompt alist nil nil default)) + (completing-read-with-history prompt alist nil nil default)) (t - (read-string prompt default))))) + (read-string-with-history prompt default))))) (defun yahtml-make-optional-argument (opt arg) "Make optional argument string." @@ -1211,11 +1213,11 @@ (cond (yahtml-html4-strict nil) (t - (let ((b (read-string "bgcolor=")) + (let ((b (read-string-with-history "bgcolor=")) (bg (yahtml-read-parameter "background" "")) - (x (read-string "text color=")) - (l (read-string "link color=")) - (v (read-string "vlink color="))) + (x (read-string-with-history "text color=")) + (l (read-string-with-history "link color=")) + (v (read-string-with-history "vlink color="))) (concat (yahtml-make-optional-argument "bgcolor" b) (yahtml-make-optional-argument "background" bg) @@ -1236,7 +1238,7 @@ (let ((src (yahtml-read-parameter "src")) (alg (yahtml-read-parameter "align")) alt - (brd (read-string "border=")) + (brd (read-string-with-history "border=")) (l yahtml-prefer-upcase-attributes) info width height bytes comments) (and (stringp src) (string< "" src) (file-exists-p src) @@ -1394,21 +1396,21 @@ "Add-in function `form' input format" (concat " " (if yahtml-prefer-upcase-attributes "METHOD" "method") "=\"" - (completing-read "Method: " '(("POST") ("GET")) nil t) + (completing-read-with-history "Method: " '(("POST") ("GET")) nil t) "\"" (yahtml-make-optional-argument (if yahtml-prefer-upcase-attributes "ENCTYPE" "enctype") - (completing-read + (completing-read-with-history "Enctype: " '(("application/x-www-form-urlencoded") ("multipart/form-data")))) " " (if yahtml-prefer-upcase-attributes "ACTION" "action") "=\"" - (read-string "Action: ") "\"")) + (read-string-with-history "Action: ") "\"")) (defun yahtml:select () "Add-in function for `select' input format" (setq yahtml-last-single-cmd "option") (concat " " (if yahtml-prefer-upcase-attributes "NAME" "name") "=\"" - (read-string "name: ") "\"")) + (read-string-with-history "name: ") "\"")) (defun yahtml:ol () "Add-in function for <ol>" @@ -1439,7 +1441,7 @@ "Add-in function for `input' form" (let ((size "") name type value checked (maxlength "") (l yahtml-prefer-upcase-attributes)) - (setq name (read-string "name: ") + (setq name (read-string-with-history "name: ") type (YaTeX-completing-read-or-skip "type (default=text): " yahtml-input-types nil t) value (YaTeX-read-string-or-skip "value: ")) @@ -1457,9 +1459,9 @@ "Add-in function for `textarea'" (interactive) (let (name rows cols) - (setq name (read-string "Name: ") - cols (read-string "Columns: ") - rows (read-string "Rows: ")) + (setq name (read-string-with-history "Name: ") + cols (read-string-with-history "Columns: ") + rows (read-string-with-history "Rows: ")) (concat (concat (if yahtml-prefer-upcase-attributes "NAME=" "name=") "\"" name "\"") @@ -1468,7 +1470,7 @@ (defun yahtml:table () "Add-in function for `table'" - (let ((b (read-string "border=")) + (let ((b (read-string-with-history "border=")) (a (yahtml-read-parameter "align" nil '(("align" ("right")("center")))))) (if yahtml-html4-strict @@ -1506,13 +1508,13 @@ (defun yahtml:font () "Add-in function for `font'" (concat - (yahtml-make-optional-argument "color" (read-string "color=")) - (yahtml-make-optional-argument "size" (read-string "size=")))) + (yahtml-make-optional-argument "color" (read-string-with-history "color=")) + (yahtml-make-optional-argument "size" (read-string-with-history "size=")))) (defun yahtml:style () "Add-in function for `style'" (yahtml-make-optional-argument - "type" (read-string "type=" "text/css"))) + "type" (read-string-with-history "type=" "text/css"))) (defun yahtml:script () "Add-in function for `script'" @@ -1547,7 +1549,8 @@ "type" (yahtml-read-parameter "type" "text/css")) (progn (setq href - (read-from-minibuffer "href: " "" yahtml-url-completion-map)) + (read-from-minibuffer-with-history + "href: " "" yahtml-url-completion-map)) (if (string< "" href) (progn (if (and (file-exists-p (yahtml-url-to-path href)) @@ -1564,7 +1567,8 @@ "type" (yahtml-read-parameter "type" "text/css")) (yahtml-make-optional-argument "href" - (read-from-minibuffer "href: " "" yahtml-url-completion-map))))))) + (read-from-minibuffer-with-history + "href: " "" yahtml-url-completion-map))))))) (defvar yahtml:meta-names '(("name" ("keywords")("author")("copyright")("date")("GENERATOR")))) @@ -1591,18 +1595,19 @@ "content" (cond ((string-match "date" name) - (read-string "Date: " (current-time-string))) + (read-string-with-history "Date: " (current-time-string))) ((string-match "author" name) - (read-string "Author: " + (read-string-with-history "Author: " (if (and (user-full-name) (string< "" (user-full-name))) (user-full-name) (user-login-name)))) ((string-match "GENERATOR" name) - (setq content (read-string "Generator: " "User-agent: ")) + (setq content (read-string-with-history + "Generator: " "User-agent: ")) (if (string-match "yahtml" content) (message "Thank you!")) content) - (t (read-string (concat name ": "))))))))) + (t (read-string-with-history (concat name ": "))))))))) (defun yahtml:br () (yahtml-make-optional-argument "clear" (yahtml-read-parameter "clear"))) @@ -2376,7 +2381,8 @@ (let ((e (cond ((null e) "td") ((stringp e) e) - (t (read-string "Enclose with(`thd' means th td td..): " "th")))) + (t (read-string-with-history + "Enclose with(`thd' means th td td..): " "th")))) (ws "[ \t]") elm p i) (if (string= delim "") (setq delim " \t\n")) @@ -2408,8 +2414,8 @@ "Enclose lines in a form tab-sv/csv with <tr><td>..</td></tr>." (interactive "P\nsDelimiter(s): \nr") (setq e (if (and e (listp e)) - (read-string "Enclose with(td or th, `thd' -> th td td td...: " - "th"))) + (read-string-with-history + "Enclose with(td or th, `thd' -> th td td td...: " "th"))) (save-excursion (save-restriction (narrow-to-region (point) (mark)) @@ -2866,7 +2872,7 @@ (YaTeX-reindent c)))) (defun yahtml-intelligent-newline-head () - (let ((title (read-string "Document title: ")) + (let ((title (read-string-with-history "Document title: ")) (b "<title>") (e "</title>") p) (yahtml-indent-line) (insert (format "%s" (if yahtml-prefer-upcases (upcase b) b))) @@ -2927,7 +2933,8 @@ (setq line (concat line (if (and (= i 0) th) "<th></th>" "<td></td>")) th nil i (1+ i))) - (setq fmt (read-string "`th' or `td' format: " "th td td")) + (setq fmt (read-string-with-history + "`th' or `td' format: " "th td td")) (while (string-match "t\\(h\\)\\|td" fmt i) (setq line (concat line (if (match-beginning 1) "<th></th>" "<td></td>"))
--- a/yatex.el Fri Jan 16 08:58:20 2015 +0900 +++ b/yatex.el Fri Jan 16 10:13:08 2015 +0900 @@ -1,6 +1,6 @@ ;;; yatex.el --- Yet Another tex-mode for emacs //野鳥// -*- coding: sjis -*- ;;; (c)1991-2015 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Fri Jan 16 08:38:34 2015 on firestorm +;;; Last modified Fri Jan 16 09:19:57 2015 on firestorm ;;; $Id$ ;;; The latest version of this software is always available at; ;;; http://www.yatex.org/ @@ -972,7 +972,7 @@ (addin-args (funcall arg-reader j)) (YaTeX-skip-default-reader "") (t - (read-string + (read-string-with-history (format "Argument %d of %s: " j section))))) (insert (concat ;to allow nil return value @@ -2209,7 +2209,7 @@ (if (not (YaTeX-on-begin-end-p)) (comment-out-region (if alt-prefix - (read-string "Insert prefix: ") + (read-string-with-history "Insert prefix: ") YaTeX-comment-prefix)) (YaTeX-comment-uncomment-env 'comment-out-region))) @@ -2218,7 +2218,7 @@ (interactive "P") (if (not (YaTeX-on-begin-end-p)) (uncomment-out-region - (if alt-prefix (read-string "Remove prefix: ") + (if alt-prefix (read-string-with-history "Remove prefix: ") YaTeX-comment-prefix) (region-beginning) (region-end) YaTeX-uncomment-once) (YaTeX-comment-uncomment-env 'uncomment-out-region)))
--- a/yatexadd.el Fri Jan 16 08:58:20 2015 +0900 +++ b/yatexadd.el Fri Jan 16 10:13:08 2015 +0900 @@ -1,7 +1,7 @@ ;;; yatexadd.el --- YaTeX add-in functions ;;; yatexadd.el rev.21 ;;; (c)1991-2015 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Tue Jan 6 08:53:41 2015 on firestorm +;;; Last modified Fri Jan 16 09:33:05 2015 on firestorm ;;; $Id$ ;;; Code: @@ -27,7 +27,8 @@ (setq width (concat "{" (YaTeX:read-length "Width: ") "}"))) (setq loc (YaTeX:read-position "tb") bars (string-to-int - (read-string "Number of columns(0 for default format): " "3"))) + (read-string-with-history + "Number of columns(0 for default format): " "3"))) (if (<= bars 0) (setq ;if 0, simple format rule YaTeX:tabular-default-rule @@ -41,7 +42,7 @@ (setq ans (read-char)) (cond ((or (equal ans ?t) (equal ans ?T)) - (setq ans (read-string "Rule width: " "1pt") + (setq ans (read-string-with-history "Rule width: " "1pt") rule (concat "@{" (format YaTeX:tabular-thick-vrule ans) "}" rule @@ -50,7 +51,7 @@ (t (setq rule (concat "|" rule "|") hline "\\hline")))) - (setq rule (read-string "rule format: " rule)) + (setq rule (read-string-with-history "rule format: " rule)) (setq YaTeX-single-command "hline") (format "%s%s{%s}" width loc rule))) @@ -58,10 +59,10 @@ (fset 'YaTeX:tabular* 'YaTeX:tabular) (fset 'YaTeX:supertabular 'YaTeX:tabular) (defun YaTeX:alignat () - (concat "{" (read-string "Number of columns: ") "}")) + (concat "{" (read-string-with-history "Number of columns: ") "}")) (defun YaTeX:array () (concat (YaTeX:read-position "tb") - "{" (read-string "Column format: ") "}")) + "{" (read-string-with-history "Column format: ") "}")) (defun YaTeX:subequations () (message (if YaTeX-japan "分かりやすいコメントに変えるとref補完が楽よ" "Changing comment string reduces effort at `ref' completion")) @@ -178,7 +179,7 @@ (defun YaTeX:alignat () (YaTeX:equation) - (concat "{" (read-string "Number of cols: ") "}")) + (concat "{" (read-string-with-history "Number of cols: ") "}")) @@ -191,10 +192,10 @@ (defun YaTeX:thebibliography () (setq YaTeX-section-name "bibitem") - (concat "{" (read-string "Longest label: ") "}")) + (concat "{" (read-string-with-history "Longest label: ") "}")) (defun YaTeX:multicols () - (concat "{" (read-string "Number of columns: ") "}")) + (concat "{" (read-string-with-history "Number of columns: ") "}")) ;; wrapfig.sty @@ -214,7 +215,7 @@ (defun YaTeX:multiput () (concat (YaTeX:read-coordinates "Pos") (YaTeX:read-coordinates "Step") - "{" (read-string "How many times: ") "}")) + "{" (read-string-with-history "How many times: ") "}")) (defun YaTeX:put () (YaTeX:read-coordinates "Pos")) @@ -243,16 +244,16 @@ (defun YaTeX::parbox (argp) (cond ((= argp 1) (YaTeX:read-length "Width: ")) - ((= argp 2) (read-string "Text: ")))) + ((= argp 2) (read-string-with-history "Text: ")))) (defun YaTeX::dashbox () - (concat "{" (read-string "Dash dimension: ") "}" + (concat "{" (read-string-with-history "Dash dimension: ") "}" (YaTeX:read-coordinates "Dimension"))) (defun YaTeX::savebox (argp) (cond - ((= argp 1) (read-string "Saved into name: " "\\")) - ((= argp 2) (read-string "Text: ")))) + ((= argp 1) (read-string-with-history "Saved into name: " "\\")) + ((= argp 2) (read-string-with-history "Text: ")))) (defvar YaTeX-minibuffer-quick-map nil) (if YaTeX-minibuffer-quick-map nil @@ -301,13 +302,15 @@ (defun YaTeX:read-coordinates (&optional mes varX varY) (concat "(" - (read-string (format "%s %s: " (or mes "Dimension") (or varX "X"))) + (read-string-with-history + (format "%s %s: " (or mes "Dimension") (or varX "X"))) "," - (read-string (format "%s %s: " (or mes "Dimension") (or varY "Y"))) + (read-string-with-history + (format "%s %s: " (or mes "Dimension") (or varY "Y"))) ")")) (defun YaTeX:itembox () - (concat "{" (read-string "Item heading string: ") "}")) + (concat "{" (read-string-with-history "Item heading string: ") "}")) ;;; ;;Sample functions for maketitle-type command. @@ -322,9 +325,9 @@ (defun YaTeX:lim () "Insert limit notation of \\lim." (YaTeX:check-completion-type 'maketitle) - (let ((var (read-string "Variable: ")) limit) + (let ((var (read-string-with-history "Variable: ")) limit) (if (string= "" var) "" - (setq limit (read-string "Limit ($ means infinity): ")) + (setq limit (read-string-with-history "Limit ($ means infinity): ")) (if (string= "$" limit) (setq limit "\\infty")) (concat "_{" var " \\rightarrow " limit "}")))) @@ -335,15 +338,16 @@ (defun YaTeX:read-boundary (ULchar) "Read boundary usage by _ or ^. _ or ^ is indicated by argument ULchar." - (let ((bndry (read-string (concat ULchar "{???} ($ for infinity): ")))) + (let ((bndry (read-string-with-history + (concat ULchar "{???} ($ for infinity): ")))) (if (string= bndry "") "" (if (string= bndry "$") (setq bndry "\\infty")) (concat ULchar "{" bndry "}")))) (defun YaTeX:verb () "Enclose \\verb's contents with the same characters." - (let ((quote-char (read-string "Quoting char: " "|")) - (contents (read-string "Quoted contents: "))) + (let ((quote-char (read-string-with-history "Quoting char: " "|")) + (contents (read-string-with-history "Quoted contents: "))) (concat quote-char contents quote-char))) (fset 'YaTeX:verb* 'YaTeX:verb) @@ -353,12 +357,12 @@ nil) (defun YaTeX:cite () - (let ((comment (read-string "Comment for citation: "))) + (let ((comment (read-string-with-history "Comment for citation: "))) (if (string= comment "") "" (concat "[" comment "]")))) (defun YaTeX:bibitem () - (let ((label (read-string "Citation label for bibitem: "))) + (let ((label (read-string-with-history "Citation label for bibitem: "))) (if (string= label "") "" (concat "[" label "]")))) @@ -609,7 +613,7 @@ (let ((default (condition-case nil (YaTeX::ref-default-label) (error (substring (current-time-string) 4))))) - (read-string "Give a label for this line: " + (read-string-with-history "Give a label for this line: " (if YaTeX-emacs-19 (cons default 1) default)))) (defun YaTeX::ref-getset-label (buffer point &optional noset) @@ -1256,7 +1260,7 @@ (let*((chmode (boundp (intern-soft "old"))) (dlab (if chmode old ;if called via YaTeX-change-section (tricky...) (YaTeX::ref-default-label))) - (label (read-string + (label (read-string-with-history (format "New %s name: " (or labname "label")) (cons dlab 1)))) (if (string< "" label) @@ -1400,7 +1404,7 @@ (hilit-auto-highlight nil) (pcnt (regexp-quote YaTeX-comment-prefix)) (bibrx (concat YaTeX-ec-regexp "bibliography{\\([^}]+\\)}")) - (bibptn (read-string "Pattern: ")) + (bibptn (read-string-with-history "Pattern: ")) (bbuf (get-buffer-create " *bibitems*")) (standard-output bbuf) (me 'YaTeX::cite) ;shuld set this for using YaTeX::ref @@ -1507,13 +1511,14 @@ (defun YaTeX::newcommand (&optional argp) (cond ((= argp 1) - (let ((command (read-string "Define newcommand: " "\\"))) + (let ((command (read-string-with-history "Define newcommand: " "\\"))) (put 'YaTeX::newcommand 'command (substring command 1)) command)) ((= argp 2) (let ((argc - (string-to-int (read-string "Number of arguments(Default 0): "))) - (def (read-string "Definition: ")) + (string-to-int + (read-string-with-history "Number of arguments(Default 0): "))) + (def (read-string-with-history "Definition: ")) (command (get 'YaTeX::newcommand 'command))) ;;!!! It's illegal to insert string in the add-in function !!! (if (> argc 0) (insert (format "[%d]" argc))) @@ -1540,7 +1545,7 @@ (defun YaTeX::newcounter (&optional argp) (cond ((= argp 1) - (read-string "New counter name: ")) + (read-string-with-history "New counter name: ")) (t ""))) ;; @@ -1638,13 +1643,13 @@ 'YaTeX:style-parameters-local nil nil "\\")) ((equal 2 argp) - (read-string "Text: ")))) + (read-string-with-history "Text: ")))) (defun YaTeX::newlength (&optional argp) "YaTeX add-in function for arguments of \\newlength" (cond ((equal argp 1) - (let ((length (read-string "Length variable: " "\\"))) + (let ((length (read-string-with-history "Length variable: " "\\"))) (if (string< "" length) (YaTeX-update-table (list length) @@ -1658,11 +1663,11 @@ "YaTeX add-in function for arguments of \\multicolumn." (cond ((equal 1 argp) - (read-string "Number of columns: ")) + (read-string-with-history "Number of columns: ")) ((equal 2 argp) (YaTeX:read-oneof "|lrc" nil t)) ((equal 3 argp) - (read-string "Item: ")))) + (read-string-with-history "Item: ")))) (defvar YaTeX:documentstyles-default '(("article") ("jarticle") ("j-article") @@ -1809,12 +1814,12 @@ YaTeX-default-documentclass sname))))) (defun YaTeX::title (&optional argp) - (prog1 (read-string "Document Title: ") + (prog1 (read-string-with-history "Document Title: ") (setq YaTeX-section-name "author" YaTeX-single-command "maketitle"))) (defun YaTeX::author (&optional argp) - (prog1 (read-string "Document Author: ") + (prog1 (read-string-with-history "Document Author: ") (setq YaTeX-section-name "date" YaTeX-single-command "maketitle"))) @@ -1868,7 +1873,7 @@ "Add-in for \\color's argument" (cond ((= argp 1) (YaTeX::color-completing-read "Color: ")) - ((= argp 2) (read-string "Colored string: ")))) + ((= argp 2) (read-string-with-history "Colored string: ")))) (fset 'YaTeX:color 'YaTeX:textcolor) (fset 'YaTeX::color 'YaTeX::textcolor) @@ -1882,14 +1887,14 @@ (cond ((= argp 1) (YaTeX::color-completing-read "Frame color: ")) ((= argp 2) (YaTeX::color-completing-read "Inner color: ")) - ((= argp 3) (read-string "Colored string: ")))) + ((= argp 3) (read-string-with-history "Colored string: ")))) (defun YaTeX:scalebox () "Add-in for \\scalebox" (let ((vmag (read-string (if YaTeX-japan "倍率(負で反転): " "Magnification(Negative for flipped): "))) - (hmag (read-string (if YaTeX-japan "縦倍率(省略可): " + (hmag (read-string-with-history (if YaTeX-japan "縦倍率(省略可): " "Vertical magnification(Optional): ")))) (if (and hmag (string< "" hmag)) (format "{%s}[%s]" vmag hmag) @@ -1904,9 +1909,11 @@ (if (string< "" (setq r (YaTeX:read-oneof "htbpB"))) (concat "[origin=" r "]"))) ((memq c '(?X ?x ?Y ?y)) - (setq r (read-string "" (if YaTeX-emacs-19 (cons defx 3) defx)) + (setq r (read-string-with-history + "" (if YaTeX-emacs-19 (cons defx 3) defx)) x (if (string< "x=" r) r) - r (read-string "" (if YaTeX-emacs-19 (cons defy 3) defy)) + r (read-string-with-history + "" (if YaTeX-emacs-19 (cons defy 3) defy)) y (if (string< "y=" r) r) something (or x y)) (format "%s%s%s%s%s" @@ -1920,10 +1927,10 @@ "Argument add-in for \\rotatebox" (cond ((= argp 1) - (read-string (if YaTeX-japan "回転角(度; 左回り): " + (read-string-with-history (if YaTeX-japan "回転角(度; 左回り): " "Angle in degree(unclockwise): "))) ((= argp 2) - (read-string (if YaTeX-japan "テキスト: " "Text: "))))) + (read-string-with-history (if YaTeX-japan "テキスト: " "Text: "))))) (defun YaTeX:includegraphics () "Add-in for \\includegraphics's option" @@ -2058,7 +2065,7 @@ (defun YaTeX::mask (argp) (cond ((equal argp 1) - (read-string "String: ")) + (read-string-with-history "String: ")) ((equal argp 2) (let (c) (while (not (memq c '(?A ?B ?C ?D ?E ?F ?G ?H ?I ?J ?K))) @@ -2081,12 +2088,12 @@ ((equal argp 4) (YaTeX:read-oneof "lcr" 'quick)) ((equal argp 5) - (read-string "String: ")))) + (read-string-with-history "String: ")))) (defun YaTeX::textcircled (argp) (cond ((equal argp 1) - (let ((char (read-string "Circled char: ")) + (let ((char (read-string-with-history "Circled char: ")) (left "") (right "") c) (setq c (read-char "Enclose also with (s)mall (t)iny s(C)riptsize (N)one:")) @@ -2183,7 +2190,7 @@ (defun YaTeX::DeclareMathOperator (argp) (cond ((equal argp 1) - (read-string "Operator: " "\\")))) + (read-string-with-history "Operator: " "\\")))) ;;; ;; Add-in functions for large-type command.
