* 1999-05-16 Mike McEwan <mike(a)lotusland.demon.co.uk&gt; mail.default | | I've discovered another instance in `folding.el' where a numeric | argument is given to `concat'. Patch appears below. Cc'ing the | `maintainers' documented in the source. | | --- xemacs-packages/lisp/text-modes/ChangeLog~ Thu May 13 18:36:58 1999 | +++ xemacs-packages/lisp/text-modes/ChangeLog Sun May 16 18:18:49 1999 | ＠＠ -1,3 +1,7 ＠＠ | +1999-05-16 Mike McEwan <mike(a)lotusland.demon.co.uk&gt; | + | + * folding.el (fold-set-mode-line): Use `number-to-string' in `concat'. | + | 1999-04-22 John H Palmieri <palmieri(a)member.ams.org&gt; | | * xpm-mode.el (xpm-parse-color): | --- xemacs-packages/lisp/text-modes/folding.el~ Thu May 13 18:36:59 1999 | +++ xemacs-packages/lisp/text-modes/folding.el Sun May 16 18:17:00 1999 | ＠＠ -2127,7 +2127,7 ＠＠ | fold-inside-string "1" fold-inside-mode-name) | (concat | fold-inside-string | - (length fold-stack) | + (number-to-string (length fold-stack)) | fold-inside-mode-name) | )))) Hi, Thank you, but this was already in the latest version 2.58 ftp://ftp.csd.uu.se/pub/users/andersl/beta/folding.el (defun folding-set-mode-line () (if (null folding-stack) (kill-local-variable 'folding-mode-string) (make-local-variable 'folding-mode-string) (setq folding-mode-string (if (eq 'folded (car folding-stack)) (concat folding-inside-string "1" folding-inside-mode-name) (concat folding-inside-string (int-to-string (length folding-stack)) folding-inside-mode-name))))) asd