Re: [patch] Another numeric arg to `concat' in `folding.el'
* 1999-05-16 Mike McEwan <mike(a)lotusland.demon.co.uk> 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>
| +
| + * folding.el (fold-set-mode-line): Use `number-to-string' in `concat'.
| +
| 1999-04-22 John H Palmieri <palmieri(a)member.ams.org>
|
| * 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