CVS update by jaalto packages/xemacs-packages/text-modes ...

  User: jaalto  
  Date: 09/09/05 10:15:18

  Modified:    packages/xemacs-packages/text-modes folding.el
Log:
(folding-font-lock-keywords): Add missing arg to destructuring-bind

Revision  Changes    Path
1.25      +3 -3      XEmacs/packages/xemacs-packages/text-modes/folding.el

Index: folding.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/text-modes/folding.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -p -r1.24 -r1.25
--- folding.el	2009/09/05 08:05:46	1.24
+++ folding.el	2009/09/05 08:15:16	1.25
@@ -19,13 +19,13 @@
 ;; Keywords:    tools
 ;;
 ;; [Latest XEmacs CVS tree commit and revision]
-;; Vcs-Version: $Revision: 1.24 $
-;; Vcs-Date:    $Date: 2009/09/05 08:05:46 $
+;; Vcs-Version: $Revision: 1.25 $
+;; Vcs-Date:    $Date: 2009/09/05 08:15:16 $
 ;;
-;; [Latest devel version 5abb5cf]
+;; [Latest devel version]
 ;; Vcs-URL:     http://savannah.nongnu.org/projects/emacs-tiny-tools
 
-(defconst folding-version-time "2009.0905.0757"
+(defconst folding-version-time "2009.0905.0811"
   "Last edit time in format YYYY.MMDD.HHMM.")
 
 ;;{{{ GPL
@@ -1810,7 +1810,7 @@ with XEmacs.")
 (defvar folding-stack nil
   "Internal. A list of marker pairs representing folds entered so far.")
 
-(defvar folding-version (substring "$Revision: 1.24 $" 11 15)
+(defvar folding-version (substring "$Revision: 1.25 $" 11 15)
   "Version number of folding.el.")
 
 ;;}}}
@@ -3037,7 +3037,7 @@ It prevents 'binary pollution' upon save
   "Return folding font-lock keywords for MODE."
   ;;  Add support mode-by-mode basis. Check if mode is already
   ;;  handled from the property list.
-  (destructuring-bind (beg end)
+  (destructuring-bind (beg end ignore)
       (folding-get-mode-marks (or mode major-mode))
     (setq beg (concat "^[ \t]*" (regexp-quote beg) "[^\r\n]+"))
     (setq end (concat "^[ \t]*" (regexp-quote end)))