diff options
Diffstat (limited to 'llama.el')
| -rw-r--r-- | llama.el | 21 |
1 files changed, 11 insertions, 10 deletions
@@ -135,16 +135,17 @@ above is *displayed* as: (cond ((symbolp data) (let ((name (symbol-name data)) pos) - (when (string-match "\\`%\\([1-9*]\\)?\\'" name) - (setq pos (match-string 1 name)) - (setq pos (cond ((equal pos "*") 0) - ((not pos) 1) - (t (string-to-number pos)))) - (when (and (= pos 1) - (aref args 1) - (not (equal data (aref args 1)))) - (error "%% and %%1 are mutually exclusive")) - (aset args pos data)))) + (save-match-data + (when (string-match "\\`%\\([1-9*]\\)?\\'" name) + (setq pos (match-string 1 name)) + (setq pos (cond ((equal pos "*") 0) + ((not pos) 1) + (t (string-to-number pos)))) + (when (and (= pos 1) + (aref args 1) + (not (equal data (aref args 1)))) + (error "%% and %%1 are mutually exclusive")) + (aset args pos data))))) ((and (not (eq (car-safe data) '##)) (or (listp data) (vectorp data))) |