yatex
changeset 463:a4d49700b1c5 dev
Artument error fixed
| author | HIROSE Yuuji <yuuji@gentei.org> |
|---|---|
| date | Wed, 31 May 2017 21:56:49 +0859 |
| parents | c940797c19ad |
| children | c996fbcc2e79 |
| files | yatexadd.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line diff
1.1 --- a/yatexadd.el Mon May 29 09:10:44 2017 +0859 1.2 +++ b/yatexadd.el Wed May 31 21:56:49 2017 +0859 1.3 @@ -1,6 +1,6 @@ 1.4 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*- 1.5 ;;; (c)1991-2017 by HIROSE Yuuji.[yuuji@yatex.org] 1.6 -;;; Last modified Tue Mar 7 09:30:50 2017 on firestorm 1.7 +;;; Last modified Wed May 31 20:57:12 2017 on firestorm 1.8 ;;; $Id$ 1.9 1.10 ;;; Code: 1.11 @@ -1058,7 +1058,7 @@ 1.12 (if (looking-at delim) (goto-char (match-end 0))) 1.13 (setq label (concat label " " str) 1.14 list (cdr list))) 1.15 - (funcall output labelleader label match-point 'bib))) 1.16 + (funcall output (concat labelleader label) match-point 'bib))) 1.17 ;;else, simple section-type counter 1.18 ((= (char-after (1- (point))) ?{) 1.19 (setq label (buffer-substring 1.20 @@ -1066,7 +1066,7 @@ 1.21 (progn (forward-char -1) 1.22 (forward-list 1) 1.23 (point)))) 1.24 - (funcall output labelleader label match-point 1.25 + (funcall output (concat labelleader label) match-point 1.26 (if (string-match "caption" cmd) 'cap 'sec)) 1.27 ;; Skip preceding label if exists 1.28 (if (YaTeX::ref-getset-label (current-buffer) match-point t) 1.29 @@ -1087,7 +1087,7 @@ 1.30 (skip-chars-backward " \t") 1.31 (1- (point))) 1.32 (point-end-of-line)))) 1.33 - (funcall output labelleader label match-point 'misc) 1.34 + (funcall output (concat labelleader label) match-point 'misc) 1.35 (if (save-excursion 1.36 (skip-chars-forward "\t \n") 1.37 (looking-at YaTeX::ref-labeling-regexp)) 1.38 @@ -1106,7 +1106,7 @@ 1.39 (setq label (YaTeX-match-string 0)) 1.40 (put 'YaTeX::ref-labeling-regexp lnum 1.41 (YaTeX-match-string (cdr (car list)))) 1.42 - (funcall output labelleader label 0) ;;0 is dummy, never used 1.43 + (funcall (concat output labelleader) label 0) ;;0 is dummy 1.44 (setq list nil))) 1.45 (setq list (cdr list)))) 1.46 ))