Package: emacs21-el
Version: 21.4a+1-5
Severity: normal
Tags: patch
File: /usr/share/emacs/21.4/lisp/align.el
Problem:
/--------
| Debugger entered--Lisp error: (error "Not enough arguments for format string")
| message("Aligning `%s' (rule %d of %d) %d%%..." "1" 3 32)
| (if name (message "Aligning `%s' (rule %d of %d) %d%%..." rule-index
rule-count (/ ... ...)) (message "Aligning %d%%..." (/ ... ...)))
| (let ((name ...)) (if name (message "Aligning `%s' (rule %d of %d) %d%%..."
rule-index rule-count ...) (message "Aligning %d%%..." ...)))
| (if report (let (...) (if name ... ...)))
| (while (and (< ... end-mark) (if regfunc ... ...)) (if report (let ...
...)) (if (bolp) (forward-char -1)) (unless group-c (setq group ...) (if ...
... ...) (setq group-c t)) (unless spacing-c (setq spacing ... spacing-c t))
(unless tab-stop-c (setq tab-stop ... tab-stop-c t)) (if (> ... eol) (setq same
nil eol ...)) (or repeat-c (setq repeat ... repeat-c t)) (or valid-c (setq
valid ... valid-c t)) (setq b (match-beginning first) save-match-data
(match-data)) (unless (and valid ...) (if ... ... ...) (set-match-data
save-match-data) (let ... ... ...) (unless exclude-p ... ...)))
| (let (exclude-areas) (when exclude-rules (set ... nil) (align-region beg
end ... exclude-rules nil ...) (setq exclude-areas ...)) (and case-fold (setq
case-fold-search ...)) (while (and ... ...) (if report ...) (if ... ...)
(unless group-c ... ... ...) (unless spacing-c ...) (unless tab-stop-c ...) (if
... ...) (or repeat-c ...) (or valid-c ...) (setq b ... save-match-data ...)
(unless ... ... ... ... ...)) (if regions (align-regions regions align-props
rule func)))
| (unwind-protect (let (exclude-areas) (when exclude-rules ... ... ...) (and
case-fold ...) (while ... ... ... ... ... ... ... ... ... ... ...) (if regions
...)) (setq case-fold-search current-case-fold))
| (progn (unwind-protect (let ... ... ... ... ...) (setq case-fold-search
current-case-fold)))
| (if (or (not func) (funcall func beg end rule)) (progn (unwind-protect ...
...)))
| (when (or (not func) (funcall func beg end rule)) (unwind-protect (let ...
... ... ... ...) (setq case-fold-search current-case-fold)))
| (save-excursion (if real-beg (goto-char beg) (if ... ...)
(beginning-of-line) (while ... ...) (let* ... ... ... ... ... ... ... ... ...
... ... ...)) (when (or ... ...) (unwind-protect ... ...)))
| (let* ((current-case-fold case-fold-search) (case-fold ...) (regexp ...)
(regfunc ...) (rulesep ...) (thissep ...) same (eol 0) group group-c spacing
spacing-c tab-stop tab-stop-c repeat repeat-c valid valid-c pos-list first
regions index last-point b e save-match-data exclude-p align-props)
(save-excursion (if real-beg ... ... ... ... ...) (when ... ...)))
| (if (or (and modes ...) (and run-if ...)) nil (let* (... ... ... ... ...
... same ... group group-c spacing spacing-c tab-stop tab-stop-c repeat
repeat-c valid valid-c pos-list first regions index last-point b e
save-match-data exclude-p align-props) (save-excursion ... ...)))
| (unless (or (and modes ...) (and run-if ...)) (let* (... ... ... ... ...
... same ... group group-c spacing spacing-c tab-stop tab-stop-c repeat
repeat-c valid valid-c pos-list first regions index last-point b e
save-match-data exclude-p align-props) (save-excursion ... ...)))
| (let* ((rule ...) (run-if ...) (modes ...)) (unless (or ... ...) (let* ...
...)))
| (while rules (let* (... ... ...) (unless ... ...)) (setq rules (cdr rules)
rule-index (1+ rule-index)))
| (let ((end-mark ...) (real-beg beg) (real-end end) (report ...) (rule-index
1) (rule-count ...)) (if (and align-indent-before-aligning real-beg end-mark)
(indent-region real-beg end-mark nil)) (while rules (let* ... ...) (setq rules
... rule-index ...)) (if report (message "Aligning...done")))
| align-region(1 16621 "^\\s-*[{}]?\\s-*$" ((date (regexp .
"^&?\\(Jan\\|Feb\\|Ma[ry]\\|Apr\\|Ju[nl]\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)\\(\\s-+[0-9]+,\\)\\(\\s-+\\)[12][90][0-9][0-9]")
(group 2 3) (justify . t)) (block (regexp .
"^&?%%(diary-block\\(\\s-+[0-9]+\\)\\(\\s-+[0-9]+\\)\\(\\s-+[0-9]+\\)\\(\\s-+[0-9]+\\)\\(\\s-+[0-9]+\\)\\(\\s-+[0-9]+\\))")
(group 1 2 3 4 5 6) (justify . t)) (cyclic (regexp .
"^&?%%(diary-cyclic\\(\\s-+[0-9]+\\)\\(\\s-+[0-9]+\\)\\(\\s-+[0-9]+\\)\\(\\s-+[0-9]+\\))")
(group 1 2 3 4) (justify . t))) ((exc-dq-string (regexp .
"\"\\([^\"\n]+\\)\"") (repeat . t) (modes . align-dq-string-modes))
(exc-sq-string (regexp . "'\\([^'\n]+\\)'") (repeat . t) (modes .
align-sq-string-modes)) (exc-open-comment (regexp lambda ... ...) (modes .
align-open-comment-modes)) (exc-c-comment (regexp . "/\\*\\(.+\\)\\*/") (repeat
. t) (modes . align-c++-modes)) (exc-c-func-params (regexp . "(\\([^)\n]+\\))")
(repeat . t) (modes . align-c++-modes)) (exc-c-macro (regexp .
"^\\s-*#\\s-*\\(if\\w*\\|endif\\)\\(.*\\)$") (group . 2) (modes .
align-c++-modes))))
| align(1 16621)
| * call-interactively(align)
\--------
Fix:
1419a1420
> name
-- System Information:
Debian Release: lenny/sid
APT prefers testing
APT policy: (990, 'testing'), (900, 'stable'), (400, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.22tms1.0 (SMP w/1 CPU core; PREEMPT)
Locale: LANG=en_GB, LC_CTYPE=en_GB (charmap=ISO-8859-1)
Shell: /bin/sh linked to /bin/bash
Versions of packages emacs21-el depends on:
ii emacs21-common 21.4a+1-5 The GNU Emacs editor's shared, arc
emacs21-el recommends no packages.
-- no debconf information
