# HG changeset patch # User HIROSE Yuuji # Date 1496235436 -32373 # Node ID a4d49700b1c560f8abad86b9b3216596a8cde507 # Parent c940797c19adfd941d414042b5f375537aedeeee Artument error fixed diff -r c940797c19ad -r a4d49700b1c5 yatexadd.el --- a/yatexadd.el Mon May 29 09:10:44 2017 +0859 +++ b/yatexadd.el Wed May 31 21:56:49 2017 +0859 @@ -1,6 +1,6 @@ ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*- ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Tue Mar 7 09:30:50 2017 on firestorm +;;; Last modified Wed May 31 20:57:12 2017 on firestorm ;;; $Id$ ;;; Code: @@ -1058,7 +1058,7 @@ (if (looking-at delim) (goto-char (match-end 0))) (setq label (concat label " " str) list (cdr list))) - (funcall output labelleader label match-point 'bib))) + (funcall output (concat labelleader label) match-point 'bib))) ;;else, simple section-type counter ((= (char-after (1- (point))) ?{) (setq label (buffer-substring @@ -1066,7 +1066,7 @@ (progn (forward-char -1) (forward-list 1) (point)))) - (funcall output labelleader label match-point + (funcall output (concat labelleader label) match-point (if (string-match "caption" cmd) 'cap 'sec)) ;; Skip preceding label if exists (if (YaTeX::ref-getset-label (current-buffer) match-point t) @@ -1087,7 +1087,7 @@ (skip-chars-backward " \t") (1- (point))) (point-end-of-line)))) - (funcall output labelleader label match-point 'misc) + (funcall output (concat labelleader label) match-point 'misc) (if (save-excursion (skip-chars-forward "\t \n") (looking-at YaTeX::ref-labeling-regexp)) @@ -1106,7 +1106,7 @@ (setq label (YaTeX-match-string 0)) (put 'YaTeX::ref-labeling-regexp lnum (YaTeX-match-string (cdr (car list)))) - (funcall output labelleader label 0) ;;0 is dummy, never used + (funcall (concat output labelleader) label 0) ;;0 is dummy (setq list nil))) (setq list (cdr list)))) ))