[PATCH] Transform #'values calls to #'list calls under 21.4, edict-edit.el
15 years, 4 months
Aidan Kehoe
mule-packages/edict/ChangeLog addition:
2009-08-13 Aidan Kehoe <kehoea(a)parhasard.net>
* edict-edit.el:
Have compiled 21.4 code also work on XEmacs binaries with real
support for multiple values, by avoiding runtime calls to
#'values.
XEmacs Packages (existing ChangeLogs) source patch:
Diff command: cvs -q diff -Nu
Files affected: mule-packages/edict/edict-edit.el
Index: mule-packages/edict/edict-edit.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/edict/edict-edit.el,v
retrieving revision 1.4
diff -u -r1.4 edict-edit.el
--- mule-packages/edict/edict-edit.el 2002/01/31 10:08:35 1.4
+++ mule-packages/edict/edict-edit.el 2009/08/13 13:51:28
＠＠ -45,6 +45,12 ＠＠
(require 'cl)
+;; Have compiled 21.4 code also work on XEmacs binaries with real support
+;; for multiple values, by avoiding runtime calls to #'values:
+(eval-when-compile (when (eq 'list (symbol-function 'values))
+ (define-compiler-macro values (&rest args)
+ `(list ,＠args))))
+
;;; Customizable variables
;; #### does this tristate make sense with Customize support?
--
¿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
[COMMIT] Use #'destructuring-bind, not #'multiple-value-bind, folding.el
15 years, 4 months
Aidan Kehoe
APPROVE COMMIT
NOTE: This patch has been committed.
xemacs-packages/text-modes/ChangeLog addition:
2009-08-13 Aidan Kehoe <kehoea(a)parhasard.net>
* 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
[COMMIT] Use #'destructuring-bind, not #'multiple-value-bind, ibuffer
15 years, 4 months
Aidan Kehoe
APPROVE COMMIT
NOTE: This patch has been committed.
xemacs-packages/ibuffer/ChangeLog addition:
2009-08-13 Aidan Kehoe <kehoea(a)parhasard.net>
* ibuf-ext.el (ibuffer-generate-filter-groups):
* ibuffer.el (ibuffer-fontify-region-function):
Use #'destructuring-bind, not #'multiple-value-bind, given that
we're not actually using multiple value returns in the called
forms.
XEmacs Packages (existing ChangeLogs) source patch:
Diff command: cvs -q diff -Nu
Files affected: xemacs-packages/ibuffer/ibuffer.el xemacs-packages/ibuffer/ibuf-ext.el
Index: xemacs-packages/ibuffer/ibuf-ext.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ibuffer/ibuf-ext.el,v
retrieving revision 1.13
diff -u -r1.13 ibuf-ext.el
--- xemacs-packages/ibuffer/ibuf-ext.el 2002/04/30 20:33:27 1.13
+++ xemacs-packages/ibuffer/ibuf-ext.el 2009/08/13 13:22:51
＠＠ -446,7 +446,7 ＠＠
(i 0))
(dolist (filtergroup filter-group-alist)
(let ((filterset (cdr filtergroup)))
- (multiple-value-bind (hip-crowd lamers)
+ (destructuring-bind (hip-crowd lamers)
(ibuffer-split-list (lambda (bufmark)
(ibuffer-included-in-filters-p (car bufmark)
filterset))
Index: xemacs-packages/ibuffer/ibuffer.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ibuffer/ibuffer.el,v
retrieving revision 1.40
diff -u -r1.40 ibuffer.el
--- xemacs-packages/ibuffer/ibuffer.el 2002/07/03 03:34:43 1.40
+++ xemacs-packages/ibuffer/ibuffer.el 2009/08/13 13:22:52
＠＠ -1849,7 +1849,7 ＠＠
ibuffer-filter-group-name-face)
(unless (or (get-text-property (point) 'ibuffer-title)
(get-text-property (point) 'ibuffer-summary))
- (multiple-value-bind (buf mark)
+ (destructuring-bind (buf mark)
(get-text-property (point) 'ibuffer-properties)
(let* ((namebeg (next-single-property-change (point) 'ibuffer-name-column
nil (ibuffer-line-end-position)))
--
¿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
Re: [PATCH] Support full Common Lisp multiple values in C.
15 years, 4 months
Aidan Kehoe
Oh, another thing; (setf (values rounded remainder) (round pi)) doesn’t work
with this patch, and I see no particularly easy way to get it to work,
without my modifying define-setf-method :-/ .
Ar an t-aonú lá déag de mí Lúnasa, scríobh Aidan Kehoe:
> [...]
--
¿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
Re: [PATCH] Support full Common Lisp multiple values in C.
15 years, 4 months
Aidan Kehoe
Ar an t-aonú lá déag de mí Lúnasa, scríobh Aidan Kehoe:
> Needed before I commit this;
>
> -- Changes to the patches to call #'destructuring-bind and #'list, not
Sorry, “changes to the packages.”
> #'multiple-value-bind and #'values (on consideration, this is probably a
> better approach than 19070.60359.500812.167386(a)parhasard.net, not least
> because a majority of the code that uses #'multiple-value-bind and #'values
> seems to be incorrect in its intentions.
--
¿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
Re: [Bug: 21.5-b29] Dired unconditionally change frame size
15 years, 4 months
Michael Sperber
Here's my new minimal suggestion for fixing this. I've been running
with it for a while, with no obvious glitches. Comments welcome.
2009-08-07 Mike Sperber <mike(a)xemacs.org>
* window-xemacs.el (set-window-configuration): Add optional
`set-frame-size-p' argument that determines whether the frame size
should be restored along with the window configuration.
2009-07-29 Mike Sperber <mike(a)xemacs.org>
* window-xemacs.el (set-window-pixel-width)
(set-window-pixel-height): Convenience functions, add.
(restore-saved-window-parameters): Use the above.
(really-set-window-configuration): Slightly restructure, reindent.
--
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
commit: In `set-window-configuration', don't restore frame size unconditionally.
15 years, 4 months
Michael Sperber
changeset: 4674:e95ddfd6a409
tag: tip
user: Mike Sperber <sperber(a)deinprogramm.de>
date: Mon Aug 03 10:30:47 2009 +0200
files: lisp/ChangeLog lisp/window-xemacs.el
description:
In `set-window-configuration', don't restore frame size unconditionally.
diff -r 11d71be1c232 -r e95ddfd6a409 lisp/ChangeLog
--- a/lisp/ChangeLog Wed Jul 29 10:23:19 2009 +0200
+++ b/lisp/ChangeLog Mon Aug 03 10:30:47 2009 +0200
＠＠ -9,6 +9,12 ＠＠
* faces.el (set-face-background-pixmap-file):
Remove some extra parentheses revealed by change set 7757334005ae.
+
+2009-08-07 Mike Sperber <mike(a)xemacs.org>
+
+ * window-xemacs.el (set-window-configuration): Add optional
+ `set-frame-size-p' argument that determines whether the frame size
+ should be restored along with the window configuration.
2009-07-29 Mike Sperber <mike(a)xemacs.org>
diff -r 11d71be1c232 -r e95ddfd6a409 lisp/window-xemacs.el
--- a/lisp/window-xemacs.el Wed Jul 29 10:23:19 2009 +0200
+++ b/lisp/window-xemacs.el Mon Aug 03 10:30:47 2009 +0200
＠＠ -310,17 +310,20 ＠＠
(setq ,mapping (set-window-configuration/mapping ,window-config)))
,mapping)))
-(defun set-window-configuration (configuration)
- "Set the configuration of windows and buffers as specified by CONFIGURATION.
-CONFIGURATION must be a value previously returned
-by `current-window-configuration'."
- (set-window-configuration/mapping configuration)
- nil) ; make sure nobody relies on mapping return value
-
-(defun set-window-configuration/mapping (configuration)
+(defun set-window-configuration (configuration &optional set-frame-size-p)
"Set the configuration of windows and buffers as specified by CONFIGURATION.
CONFIGURATION must be a value previously returned
by `current-window-configuration'.
+If SET-FRAME-SIZE-P is true, the frame size is also restored.
+"
+ (set-window-configuration/mapping configuration set-frame-size-p)
+ nil) ; make sure nobody relies on mapping return value
+
+(defun set-window-configuration/mapping (configuration &optional set-frame-size-p)
+ "Set the configuration of windows and buffers as specified by CONFIGURATION.
+CONFIGURATION must be a value previously returned
+by `current-window-configuration'.
+If SET-FRAME-SIZE-P is true, the frame size is also restored.
Return alist mapping old windows to new windows.
This alist maps the originally captured windows to the windows that correspond
to them in the restored configuration. It does not include entries for
＠＠ -329,10 +332,11 ＠＠
(if (and (frame-live-p frame)
(not (window-configuration-equal configuration
(current-window-configuration))))
- (really-set-window-configuration frame configuration))))
+ (really-set-window-configuration frame configuration set-frame-size-p))))
-(defun really-set-window-configuration (frame configuration)
+(defun really-set-window-configuration (frame configuration set-frame-size-p)
"Set the window configuration CONFIGURATION on live frame FRAME.
+If SET-FRAME-SIZE-P is true, the frame size is also restored.
Return alist mapping old windows to new windows."
;; avoid potential temporary problems
(setq window-min-width 0)
＠＠ -340,7 +344,8 ＠＠
(setq minibuffer-scroll-window nil)
(frame-reduce-to-one-window frame)
- (set-window-configuration-frame-size configuration)
+ (if set-frame-size-p
+ (set-window-configuration-frame-size configuration))
;; avoid setting these if they're already up-to-date
;; This also avoids potential inaccuracies in these settings --Mike
＠＠ -379,6 +384,9 ＠＠
(if (buffer-live-p buffer)
(set-buffer buffer)
(set-buffer (car (buffer-list)))))
+ ; this resets the window configuration so that the frame is filled
+ (if (not set-frame-size-p)
+ (set-frame-pixel-size frame (frame-pixel-width frame) (frame-pixel-height frame)))
(car mapping)))
(defun set-window-configuration-frame-size (configuration)
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
commit: Add `set-window-pixel-{width,height} convenience functions.
15 years, 4 months
Michael Sperber
changeset: 4673:11d71be1c232
user: Mike Sperber <sperber(a)deinprogramm.de>
date: Wed Jul 29 10:23:19 2009 +0200
files: lisp/ChangeLog lisp/window-xemacs.el
description:
Add `set-window-pixel-{width,height} convenience functions.
And use them.
diff -r 938ffa3ffe4d -r 11d71be1c232 lisp/ChangeLog
--- a/lisp/ChangeLog Mon Aug 10 16:25:08 2009 +0100
+++ b/lisp/ChangeLog Wed Jul 29 10:23:19 2009 +0200
＠＠ -9,6 +9,13 ＠＠
* faces.el (set-face-background-pixmap-file):
Remove some extra parentheses revealed by change set 7757334005ae.
+
+2009-07-29 Mike Sperber <mike(a)xemacs.org>
+
+ * window-xemacs.el (set-window-pixel-width)
+ (set-window-pixel-height): Convenience functions, add.
+ (restore-saved-window-parameters): Use the above.
+ (really-set-window-configuration): Slightly restructure, reindent.
2009-07-28 Mike Sperber <mike(a)xemacs.org>
diff -r 938ffa3ffe4d -r 11d71be1c232 lisp/window-xemacs.el
--- a/lisp/window-xemacs.el Mon Aug 10 16:25:08 2009 +0100
+++ b/lisp/window-xemacs.el Wed Jul 29 10:23:19 2009 +0200
＠＠ -342,48 +342,44 ＠＠
(frame-reduce-to-one-window frame)
(set-window-configuration-frame-size configuration)
- ; avoid setting these if they're already up-to-date
- ; This also avoids potential inaccuracies in these settings --Mike
+ ;; avoid setting these if they're already up-to-date
+ ;; This also avoids potential inaccuracies in these settings --Mike
(when window-configuration-includes-position
(let ((left (window-configuration-frame-left configuration))
- (top (window-configuration-frame-top configuration)))
+ (top (window-configuration-frame-top configuration)))
(if (not (equal left (frame-property frame 'left)))
- (set-frame-property frame 'left left))
+ (set-frame-property frame 'left left))
(if (not (equal top (frame-property frame 'top)))
- (set-frame-property frame 'top top))))
+ (set-frame-property frame 'top top))))
;; these may have changed because of the delete
- (let ((root-window (frame-root-window frame)))
- (enlarge-window-pixels
- (- (window-configuration-minibuffer-pixel-height configuration)
- (window-pixel-height (minibuffer-window frame)))
- nil
- (minibuffer-window frame))
+ (set-window-pixel-height (minibuffer-window frame)
+ (window-configuration-minibuffer-pixel-height configuration))
- ;; avoid that `set-window-point' will set the buffer's point for
- ;; the selected window
- (select-window (minibuffer-window frame))
+ ;; avoid that `set-window-point' will set the buffer's point for
+ ;; the selected window
+ (select-window (minibuffer-window frame))
- (let ((window-configuration-current-window nil)
- (mapping (list nil))) ; poor man's box
+ (let ((window-configuration-current-window nil)
+ (mapping (list nil))) ; poor man's box
- (declare (special window-configuration-current-window))
- (restore-saved-window configuration
- root-window
- (window-configuration-saved-root-window configuration)
- 'vertical
- mapping)
- (if window-configuration-current-window
- (select-window window-configuration-current-window))
+ (declare (special window-configuration-current-window))
+ (restore-saved-window configuration
+ (frame-root-window frame)
+ (window-configuration-saved-root-window configuration)
+ 'vertical
+ mapping)
+ (if window-configuration-current-window
+ (select-window window-configuration-current-window))
- (setq window-min-width (window-configuration-min-width configuration))
- (setq window-min-height (window-configuration-min-height configuration))
+ (setq window-min-width (window-configuration-min-width configuration))
+ (setq window-min-height (window-configuration-min-height configuration))
- (let ((buffer (window-configuration-current-buffer configuration)))
- (if (buffer-live-p buffer)
- (set-buffer buffer)
- (set-buffer (car (buffer-list)))))
- (car mapping))))
+ (let ((buffer (window-configuration-current-buffer configuration)))
+ (if (buffer-live-p buffer)
+ (set-buffer buffer)
+ (set-buffer (car (buffer-list)))))
+ (car mapping)))
(defun set-window-configuration-frame-size (configuration)
"Restore the frame size of a window configuration."
＠＠ -485,14 +481,10 ＠＠
;; window to what we want. --Mike
(if (not (eq window (frame-root-window (window-frame window))))
(progn
- (enlarge-window-pixels (- (saved-window-pixel-width saved-window)
- (window-pixel-width window))
- t
- window)
- (enlarge-window-pixels (- (saved-window-pixel-height saved-window)
- (window-pixel-height window))
- nil
- window)))
+ (set-window-pixel-width window
+ (saved-window-pixel-width saved-window))
+ (set-window-pixel-height window
+ (saved-window-pixel-height saved-window))))
(set-window-hscroll window (saved-window-hscroll saved-window))
(set-modeline-hscroll window
(saved-window-modeline-hscroll saved-window))
＠＠ -512,6 +504,15 ＠＠
"Compute the pixel height of SAVED-WINDOW."
(- (saved-window-pixel-bottom saved-window)
(saved-window-pixel-top saved-window)))
+
+(defun set-window-pixel-width (window width)
+ "Set the pixel width of WINDOW."
+ (enlarge-window-pixels (- width (window-pixel-width window)) t window))
+
+(defun set-window-pixel-height (window height)
+ "Set the pixel height of WINDOW."
+ (enlarge-window-pixels (- height (window-pixel-height window)) nil window))
+
;; The window-config stack is stored as a list in frame property
;; 'window-config-stack, with the most recent element at the front.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
commit: Deal with arglist newlines better, #'function-arglist, #'function-documentation
15 years, 4 months
Aidan Kehoe
changeset: 4671:e9b88e997479
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Mon Aug 10 16:22:09 2009 +0100
files: lisp/ChangeLog lisp/help.el
description:
Deal with arglist newlines better, #'function-arglist, #'function-documentation
lisp/ChangeLog addition:
2009-08-10 Aidan Kehoe <kehoea(a)parhasard.net>
* help.el (function-arglist, function-documentation):
Deal more gracefully with tabs in the function arglist; in
function-documentation, when stripping the arglist, pay attention
to the fact that they may span multiple lines.
diff -r 5a54ce6dc945 -r e9b88e997479 lisp/ChangeLog
--- a/lisp/ChangeLog Sun Aug 09 12:38:04 2009 +0100
+++ b/lisp/ChangeLog Mon Aug 10 16:22:09 2009 +0100
＠＠ -1,3 +1,10 ＠＠
+2009-08-10 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * help.el (function-arglist, function-documentation):
+ Deal more gracefully with tabs in the function arglist; in
+ function-documentation, when stripping the arglist, pay attention
+ to the fact that they may span multiple lines.
+
2009-08-09 Aidan Kehoe <kehoea(a)parhasard.net>
* faces.el (set-face-background-pixmap-file):
diff -r 5a54ce6dc945 -r e9b88e997479 lisp/help.el
--- a/lisp/help.el Sun Aug 09 12:38:04 2009 +0100
+++ b/lisp/help.el Mon Aug 10 16:22:09 2009 +0100
＠＠ -1196,7 +1196,7 ＠＠
doc)
(match-string 1 doc)))
(args (and args (replace-in-string args
- "[ ]*\\\\\n[ ]*"
+ "[ ]*\\\\\n[ \t]*"
" " t))))
;; If there are no arguments documented for the
;; subr, rather don't print anything.
＠＠ -1225,7 +1225,7 ＠＠
(void-function "(alias for undefined function)")
(error "(unexpected error from `documention')"))))
(if (and strip-arglist
- (string-match "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" doc))
+ (string-match "[\n\t ]*\narguments: ?(\\([^)]*\\))\n?\\'" doc))
(setq doc (substring doc 0 (match-beginning 0))))
doc))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
commit: Revert to original language environment, tests/automated/mule-tests.el.
15 years, 4 months
Aidan Kehoe
changeset: 4672:938ffa3ffe4d
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Mon Aug 10 16:25:08 2009 +0100
files: tests/ChangeLog tests/automated/mule-tests.el
description:
Revert to original language environment, tests/automated/mule-tests.el.
tests/ChangeLog addition:
2009-08-10 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/mule-tests.el:
Revert to the original language environment once we've tested all
the others, preventing things like a Chinese terminal coding
system being selected when you actually have a UTF-8 tty.
diff -r e9b88e997479 -r 938ffa3ffe4d tests/ChangeLog
--- a/tests/ChangeLog Mon Aug 10 16:22:09 2009 +0100
+++ b/tests/ChangeLog Mon Aug 10 16:25:08 2009 +0100
＠＠ -1,3 +1,10 ＠＠
+2009-08-10 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/mule-tests.el:
+ Revert to the original language environment once we've tested all
+ the others, preventing things like a Chinese terminal coding
+ system being selected when you actually have a UTF-8 tty.
+
2009-07-13 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/mule-tests.el:
diff -r e9b88e997479 -r 938ffa3ffe4d tests/automated/mule-tests.el
--- a/tests/automated/mule-tests.el Mon Aug 10 16:22:09 2009 +0100
+++ b/tests/automated/mule-tests.el Mon Aug 10 16:25:08 2009 +0100
＠＠ -575,6 +575,7 ＠＠
for language in (mapcar #'car language-info-alist)
with language-input-method = nil
with native-coding-system = nil
+ with original-language-environment = current-language-environment
do
;; s-l-e can call #'require, which says "Loading ..."
(Silence-Message (set-language-environment language))
＠＠ -613,7 +614,8 ＠＠
;; We don't have the appropriate POSIX locales to test with a
;; native-coding-system that is a function.
(unless (functionp coding-system)
- (Assert (coding-system-p (find-coding-system coding-system))))))
+ (Assert (coding-system-p (find-coding-system coding-system)))))
+ finally (set-language-environment original-language-environment))
(with-temp-buffer
(flet
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches