User: aidan
Date: 09/08/13 15:30:06
Modified: packages/xemacs-packages/text-modes ChangeLog folding.el
Log:
Use #'destructuring-bind, not #'multiple-value-bind, folding.el
Revision Changes Path
1.172 +7 -0 XEmacs/packages/xemacs-packages/text-modes/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/text-modes/ChangeLog,v
retrieving revision 1.171
retrieving revision 1.172
diff -u -p -r1.171 -r1.172
--- ChangeLog 2009/01/07 10:53:50 1.171
+++ ChangeLog 2009/08/13 13:30:02 1.172
@@ -1,3 +1,10 @@
+2009-08-13 Aidan Kehoe <[email protected]>
+
+ * 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.
+
2009-01-07 Norbert Koch <[email protected]>
* Makefile (VERSION): XEmacs package 1.96 released.
1.23 +6 -6 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.22
retrieving revision 1.23
diff -u -p -r1.22 -r1.23
--- folding.el 2006/11/18 17:18:48 1.22
+++ folding.el 2009/08/13 13:30:02 1.23
@@ -15,9 +15,9 @@
;; Maintainer: Jari Aalto <jari aalto A T cante dt net>
;; Created: 1992
;; Version: 2006.1118
-;; VCS version: $Revision: 1.22 $
+;; VCS version: $Revision: 1.23 $
;; VCS URL: http://tiny-tools.cvs.sourceforge.net/tiny-tools/tiny-tools/lisp/other/
-;; Date: $Date: 2006/11/18 17:18:48 $
+;; Date: $Date: 2009/08/13 13:30:02 $
;; Keywords: tools
;;{{{ GPL
@@ -1783,7 +1783,7 @@ with XEmacs.")
(defvar folding-stack nil
"Internal. A list of marker pairs representing folds entered so far.")
-(defvar folding-version (substring "$Revision: 1.22 $" 11 15)
+(defvar folding-version (substring "$Revision: 1.23 $" 11 15)
"Version number of folding.el.")
;;}}}
@@ -2556,7 +2556,7 @@ Return t ot nil if marks were removed."
(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 @@ 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.
- (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 @@ The result will be:
(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))
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.