APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/text-modes/ChangeLog addition: 2009-08-13 Aidan Kehoe <kehoea(a)parhasard.net&gt; * folding.el (folding-all-comment-blocks-in-region) (folding-font-lock-keywords, fold-marks-kill): Use #'destructuring-bind, not #'multiple-value-bind, avoiding problems on XEmacs version with real multiple value support. XEmacs Packages (existing ChangeLogs) source patch: Diff command: cvs -q diff -Nu Files affected: xemacs-packages/text-modes/folding.el Index: xemacs-packages/text-modes/folding.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/text-modes/folding.el,v retrieving revision 1.22 diff -u -r1.22 folding.el --- xemacs-packages/text-modes/folding.el 2006/11/18 17:18:48 1.22 +++ xemacs-packages/text-modes/folding.el 2009/08/13 13:29:23 ＠＠ -2556,7 +2556,7 ＠＠ (when (interactive-p) (message "Folding: Cursor not over fold. Can't removed fold marks.") nil) - (multiple-value-bind (beg end) + (destructuring-bind (beg end) (folding-show-current-entry) (let* ((kill-whole-line t)) ;; must be done in this order, because point moves after kill. ＠＠ -3028,7 +3028,7 ＠＠ "Return folding font-lock keywords for MODE." ;; Add support mode-by-mode basis. Check if mode is already ;; handled from the property list. - (multiple-value-bind (beg end) + (destructuring-bind (beg end) (folding-get-mode-marks (or mode major-mode)) (setq beg (concat "^[ \t]*" (regexp-quote beg) "[^\r\n]+")) (setq end (concat "^[ \t]*" (regexp-quote end))) ＠＠ -5269,7 +5269,7 ＠＠ (comment-regexp (concat "^" comment-start)) (marker (point-marker)) done) - (multiple-value-bind (left right ignore) + (destructuring-bind (left right ignore) (folding-get-mode-marks) ;; Bytecomp silencer: variable ignore bound but not referenced (if ignore (setq ignore ignore)) -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches