>>>>> Stephen wrote:
Stephen> Not much, and it's harder than binding the Windows key: AFAIK
Stephen> cut-and-paste on Windows uses the Control key, not the
Stephen> Windows key, which means losing C-z, C-x, C-c, and C-v.
OOPS! I didn't mean "the Windows key" but rather all key bindings a
normal Windows user would assume a Windows application uses. Most
famous is of course the key bindings you mention but there might be
more.
Stephen> This is what Kim Storm's cua.el is supposed to do, but I
Stephen> don't know that anybody ever made a serious attempt to port
Stephen> it to XEmacs.
Well what would be needed to do this well? Should the installer, or
maybe better XEmacs on the first activation, if encountering a new
installation insert some spiffy windows adoptions in the
.xemacs/*-files per default for the user to change to his likeing?
Yours
--
%% Mats
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
Ar an cúigiú lá déag de mí Bealtaine, scríobh Stephen J. Turnbull:
> Mats Lidell writes:
>
> > I guess on Windows that would mean things like having the windows key
> > bindings for cut-n-paste and possibly more. What does the Windows
> > installer do in this respect now?
>
> Not much, and it's harder than binding the Windows key: AFAIK
> cut-and-paste on Windows uses the Control key, not the Windows key, which
> means losing C-z, C-x, C-c, and C-v.
>
> This is what Kim Storm's cua.el is supposed to do, but I don't know that
> anybody ever made a serious attempt to port it to XEmacs.
My understanding is that old versions of it worked fine with XEmacs, but
that the current version doesn’t.
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, 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
changeset: 4463:5c651a4e8ed359668781cdd92c41c3f46c065ebb
tag: tip
user: Stephen J. Turnbull <stephen(a)xemacs.org>
date: Wed May 14 21:54:54 2008 -0700
files: lisp/ChangeLog lisp/subr.el
description:
Fix add-to-list.
diff -r 34b42224a06634307fb9ea44c0d3805e0f859b7d -r 5c651a4e8ed359668781cdd92c41c3f46c065ebb lisp/ChangeLog
--- a/lisp/ChangeLog Wed May 14 23:55:13 2008 +0200
+++ b/lisp/ChangeLog Wed May 14 21:54:54 2008 -0700
@@ -1,3 +1,7 @@ 2008-05-14 Aidan Kehoe <kehoea@parhasa
+2008-05-14 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * subr.el (add-to-list): Fix Aidan's last commit.
+
2008-05-14 Aidan Kehoe <kehoea(a)parhasard.net>
* subr.el (add-to-list): Implement the same logic with a more
diff -r 34b42224a06634307fb9ea44c0d3805e0f859b7d -r 5c651a4e8ed359668781cdd92c41c3f46c065ebb lisp/subr.el
--- a/lisp/subr.el Wed May 14 23:55:13 2008 +0200
+++ b/lisp/subr.el Wed May 14 21:54:54 2008 -0700
@@ -402,8 +402,7 @@ into a hook function that will be run on
into a hook function that will be run only after loading the package.
`eval-after-load' provides one way to do this. In some cases
other hooks, such as major mode hooks, can do the job."
- (if (member* (member* element (symbol-value list-var)
-:test (or compare-fn #'equal)))
+ (if (member* element (symbol-value list-var) :test (or compare-fn #'equal))
(symbol-value list-var)
(set list-var
(if append
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
APPROVE COMMIT
NOTE: This patch has been committed.
Ar an ceathrú lá déag de mí Bealtaine, scríobh Krzysztof Rudnik:
> Hi, Adian,
> I've applied your patch to the fresh cvs xemacs
> and it seems that everything works ok.
>
> thanks very much
> Krzysztof
>
>
> On Wed, May 14, 2008 at 6:15 AM, Aidan Kehoe <kehoea(a)parhasard.net> wrote:
> >
> > Hi, Krzysztof, and sorry about the delay --
> >
> > This is my bug, I think. If you have a second, can you apply the following
> > patch, and check if the problem still happens?
> >
> > diff -r 49f8ed034500 lisp/ChangeLog
> > --- a/lisp/ChangeLog Mon May 12 11:53:04 2008 +0200
> > +++ b/lisp/ChangeLog Wed May 14 12:12:09 2008 +0200
> > @@ -1,3 +1,9 @@ 2008-05-11 Aidan Kehoe <kehoea@parhasa
> > +2008-05-14 Aidan Kehoe <kehoea(a)parhasard.net>
> > +
> > + * mule/mule-coding.el (make-8-bit-choose-category):
> > + Control-1 characters extend from #x80 to #x9F (inclusive),
> > + not from #x80 to #xBF.
> > +
> > 2008-05-11 Aidan Kehoe <kehoea(a)parhasard.net>
> >
> > * disp-table.el (make-display-table):
> > diff -r 49f8ed034500 lisp/mule/mule-coding.el
> > --- a/lisp/mule/mule-coding.el Mon May 12 11:53:04 2008 +0200
> > +++ b/lisp/mule/mule-coding.el Wed May 14 12:12:09 2008 +0200
> > @@ -533,7 +533,7 @@ disk to XEmacs characters for some fixed
> > (check-argument-range (length decode-table) #x100 #x100)
> > (block category
> > (loop
> > - for i from #x80 to #xBF
> > + for i from #x80 to #x9F
> > do (unless (= i (aref decode-table i))
> > (return-from category 'no-conversion)))
> > 'iso-8-1))
> >
> > Bye,
> >
> > Aidan
> >
> > Ar an naoú lá déag de mí Feabhra, scríobh Krzysztof Rudnik:
> >
> > > I've already mailed to xemacs-beta but I've got no response at all.
> > >
> > > I use mule XEmacs 21.5-b28 "fuki" (+CVS-20071205) configured for
> > > `i686-pc-linux'.
> > > to edit large number of polish texts encoded in iso-8859-2.
> > >
> > > init.el: (I've found this somewhere in the list)
> > > (set-language-environment "Latin-2")
> > > (setq latin-unity-preapproved-coding-system-list '(iso-8859-2))
> > > (latin-unity-install)
> > >
> > >
> > > locale : LANG=pl_PL.UTF-8
> > >
> > > In most cases xemacs recognizes coding system correctly but sometimes
> > > coding system for saving buffer is set to
> > > iso-8859-1 :
> > > Coding system for saving this buffer:
> > > Latin 1 -- iso-8859-1-unix
> > > Default coding system (for new files):
> > > Latin 2 -- iso-8859-2
> > > Coding system for keyboard input:
> > > Latin 2 -- iso-8859-2
> > > Coding system for terminal output:
> > > Latin 2 -- iso-8859-2
> > >
> > > I can even I get :
> > > Coding system for saving this buffer:
> > > UTF8 -- utf-8-unix
> > > Default coding system (for new files):
> > > Latin 2 -- iso-8859-2
> > > Coding system for keyboard input:
> > > Latin 2 -- iso-8859-2
> > > Coding system for terminal output:
> > > Latin 2 -- iso-8859-2
> > >
> > >
> > > I think the files are properly encoded ( `iconv -f iso-8859-2 -t utf8` does
> > > not complain).
> > > In fact some of them were prepared in xemacs in Latin2 environment.
> > > (usually edit in Latin-2 env -> save -> close -> open again -> Latin-1)
> > >
> > > I redused the problem to a very small (couple of letters) documents and got
> > > strange results:
> > >
> > >
> > > 1. if a document contains exactly one small polish letter (there are 9 of
> > > them) then coding system is always Latin-1
> > >
> > > 2. if there are just 2 polish letters then coding system is Latin-2 unless
> > > these letters are separated by any string i.e.
> > > for example: it is ok for "wziąć" but not for "wzią ć"
> > >
> > > 3. I could not automaticaly get Latin-2 coding system for documents with
> > > exactly 3 polish letters - did't check all posibilites.
> > >
> > > 4. I could't see any rule. in more complicated cases
> > >
> > > Is this a bug or my xemacs is not configured properly?
> > > Could you please help me or at least sugest where I can get help?
> > >
> > >
> > > thanks in advance
> > > Krzysztof
> >
> > --
> > ¿Dónde estará ahora mi sobrino Yoghurtu Nghé, que tuvo que huir
> > precipitadamente de la aldea por culpa de la escasez de rinocerontes?
> >
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, 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
Apparently gnu emacs has this, and it's a comparatively easy thing to add,
so I thought it'd be worth trying to add. These are the diff lines
from
comparing with http://hg.debian.org/hg/xemacs/xemacs-beta
searching for changes
changeset: 4425:fa7844674ed2
user: bpalmer(a)bpalmer-mac.local
date: Mon Feb 25 04:45:41 2008 -0800
summary: * subr.el(add-to-list): add support for `compare-fn' to sync
with
diff -r 42711a251efd -r fa7844674ed2 lisp/subr.el
--- a/lisp/subr.el Fri Feb 15 13:11:56 2008 +0100
+++ b/lisp/subr.el Mon Feb 25 04:45:41 2008 -0800
@@ -390,19 +390,21 @@ argument to `add-one-shot-hook'."
argument to `add-one-shot-hook'."
(add-one-shot-hook hook function append t))
-(defun add-to-list (list-var element &optional append)
+(defun add-to-list (list-var element &optional append compare-fn)
"Add to the value of LIST-VAR the element ELEMENT if it isn't there yet.
-The test for presence of ELEMENT is done with `equal'.
-If ELEMENT is added, it is added at the beginning of the list,
-unless the optional argument APPEND is non-nil, in which case
-ELEMENT is added at the end.
+The test for presence of ELEMENT is done with COMPARE-FN; if
+COMPARE-FN is nil, then it defaults to `equal'. If ELEMENT is added,
+it is added at the beginning of the list, unless the optional argument
+APPEND is non-nil, in which case ELEMENT is added at the end.
If you want to use `add-to-list' on a variable that is not defined
until a certain package is loaded, you should put the call to `add-to-list'
into a hook function that will be run only after loading the package.
`eval-after-load' provides one way to do this. In some cases
other hooks, such as major mode hooks, can do the job."
- (if (member element (symbol-value list-var))
+ (if (if (not compare-fn)
+ (member element (symbol-value list-var))
+ (member* element (symbol-value list-var) :test compare-fn))
(symbol-value list-var)
(set list-var
(if append
diff -r fa7844674ed2 -r 513a4815ee5d lisp/ChangeLog
--- a/lisp/ChangeLog Mon Feb 25 04:45:41 2008 -0800
+++ b/lisp/ChangeLog Mon Feb 25 04:55:55 2008 -0800
@@ -1,3 +1,8 @@ 2008-02-03 Aidan Kehoe <kehoea@parhasa
+2008-02-25 bpalmer <bpalmer(a)gmail.com>
+
+ * subr.el(add-to-list): add support for `compare-fn' to sync with
+ emacs.
+
2008-02-03 Aidan Kehoe <kehoea(a)parhasard.net>
* iso8859-1.el (ascii-case-table):
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
changeset: 4461:42fad34efb3f4dcf7cc389b6dffcba286f67503d
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Wed May 14 23:47:58 2008 +0200
files: lisp/ChangeLog lisp/subr.el
description:
Support COMPARE-FN in add-to-list; thank you Brian Palmer.
2008-02-25 bpalmer <bpalmer(a)gmail.com>
* subr.el(add-to-list): add support for `compare-fn' to sync with
emacs.
diff -r 04ec3340612e4e1b351e381fdfd75d0813fb1dec -r 42fad34efb3f4dcf7cc389b6dffcba286f67503d lisp/ChangeLog
--- a/lisp/ChangeLog Wed May 14 23:43:12 2008 +0200
+++ b/lisp/ChangeLog Wed May 14 23:47:58 2008 +0200
@@ -1,3 +1,8 @@ 2008-05-14 Aidan Kehoe <kehoea@parhasa
+2008-02-25 bpalmer <bpalmer(a)gmail.com>
+
+ * subr.el(add-to-list): add support for `compare-fn' to sync with
+ emacs.
+
2008-05-14 Aidan Kehoe <kehoea(a)parhasard.net>
* mule/mule-coding.el (make-8-bit-choose-category):=20
diff -r 04ec3340612e4e1b351e381fdfd75d0813fb1dec -r 42fad34efb3f4dcf7cc389b6dffcba286f67503d lisp/subr.el
--- a/lisp/subr.el Wed May 14 23:43:12 2008 +0200
+++ b/lisp/subr.el Wed May 14 23:47:58 2008 +0200
@@ -390,19 +390,21 @@ argument to `add-one-shot-hook'."
argument to `add-one-shot-hook'."
(add-one-shot-hook hook function append t))
-(defun add-to-list (list-var element &optional append)
+(defun add-to-list (list-var element &optional append compare-fn)
"Add to the value of LIST-VAR the element ELEMENT if it isn't there yet.
-The test for presence of ELEMENT is done with `equal'.
-If ELEMENT is added, it is added at the beginning of the list,
-unless the optional argument APPEND is non-nil, in which case
-ELEMENT is added at the end.
+The test for presence of ELEMENT is done with COMPARE-FN; if
+COMPARE-FN is nil, then it defaults to `equal'. If ELEMENT is added,
+it is added at the beginning of the list, unless the optional argument
+APPEND is non-nil, in which case ELEMENT is added at the end.
If you want to use `add-to-list' on a variable that is not defined
until a certain package is loaded, you should put the call to `add-to-list'
into a hook function that will be run only after loading the package.
`eval-after-load' provides one way to do this. In some cases
other hooks, such as major mode hooks, can do the job."
- (if (member element (symbol-value list-var))
+ (if (if (not compare-fn)
+ (member element (symbol-value list-var))
+ (member* element (symbol-value list-var) :test compare-fn))
(symbol-value list-var)
(set list-var
(if append
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
changeset: 4462:34b42224a06634307fb9ea44c0d3805e0f859b7d
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Wed May 14 23:55:13 2008 +0200
files: lisp/ChangeLog lisp/subr.el
description:
Make the #'add-to-list implementation a little conciser and clearer for XEmacs
2008-05-14 Aidan Kehoe <kehoea(a)parhasard.net>
* subr.el (add-to-list): Implement the same logic with a more
concise syntax; thank you Stephen, in
http://mid.gmane.org/87ablomdwx.fsf@uwakimon.sk.tsukuba.ac.jp .
diff -r 42fad34efb3f4dcf7cc389b6dffcba286f67503d -r 34b42224a06634307fb9ea44c0d3805e0f859b7d lisp/ChangeLog
--- a/lisp/ChangeLog Wed May 14 23:47:58 2008 +0200
+++ b/lisp/ChangeLog Wed May 14 23:55:13 2008 +0200
@@ -1,3 +1,9 @@ 2008-02-25 bpalmer <bpalmer(a)gmail.com>
+2008-05-14 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * subr.el (add-to-list): Implement the same logic with a more
+ concise syntax; thank you Stephen, in
+ http://mid.gmane.org/87ablomdwx.fsf@uwakimon.sk.tsukuba.ac.jp .
+
2008-02-25 bpalmer <bpalmer(a)gmail.com>
* subr.el(add-to-list): add support for `compare-fn' to sync with
diff -r 42fad34efb3f4dcf7cc389b6dffcba286f67503d -r 34b42224a06634307fb9ea44c0d3805e0f859b7d lisp/subr.el
--- a/lisp/subr.el Wed May 14 23:47:58 2008 +0200
+++ b/lisp/subr.el Wed May 14 23:55:13 2008 +0200
@@ -402,9 +402,8 @@ into a hook function that will be run on
into a hook function that will be run only after loading the package.
`eval-after-load' provides one way to do this. In some cases
other hooks, such as major mode hooks, can do the job."
- (if (if (not compare-fn)
- (member element (symbol-value list-var))
- (member* element (symbol-value list-var) :test compare-fn))
+ (if (member* (member* element (symbol-value list-var)
+:test (or compare-fn #'equal)))
(symbol-value list-var)
(set list-var
(if append
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
Ar an ceathrú lá déag de mí Bealtaine, scríobh Stephen J. Turnbull:
> Aidan Kehoe writes:
>
> > That allows the pure Mac people to be conscientious and Mac about their work
> > habits, and the mixed Unix-Mac people to reasonable behaviour by default.
>
> And leaves the XEmacs Dev Team holding the bag. "Not finding your
> packages? Where are they? Oh, this is a *Mac*, so on odd Tuesdays of
> months with a 'u' in them it's in .xemacs ... what day did you say it
> is again?"
This attitude is why we have so few users from Windows. Curious Windows
users install XEmacs, quickly realise they can’t use their muscle memory for
keyboard shortcuts, and despise us for our arrogance in ignoring that in the
default installation. Aquamacs is much more popular than GNU Emacs on the
Mac, as far as I can work out, mainly because it cares about the platform. I
would love to have half that popularity for Carbon XEmacs, and we won’t get
it by ignoring the platform conventions for these things.
> I think it's a bad idea to be too smart for anybody's good on this
> kind of thing.
--
¿Dónde estará ahora mi sobrino Yoghurtu Nghé, 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
changeset: 4459:554b9d31e7a5353a725b4f326241a895a237c815
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Tue May 13 14:56:38 2008 +0200
files: lisp/ChangeLog lisp/printer.el
description:
Handle printing correctly on non-mswindows.
2008-05-13 Aidan Kehoe <kehoea(a)parhasard.net>
* printer.el (generic-print-region):
(generic-print-buffer):
Use #'valid-device-type-p instead of #'valid-specifier-tag-p to
check if the msprinter device is available, now that msprinter is
always available as a specifier tag.
diff -r d9b9b5f903863b3ac33713441ea9c91e2553f144 -r 554b9d31e7a5353a725b4f326241a895a237c815 lisp/ChangeLog
--- a/lisp/ChangeLog Tue May 13 20:16:53 2008 +0200
+++ b/lisp/ChangeLog Tue May 13 14:56:38 2008 +0200
@@ -1,3 +1,11 @@ 2008-05-11 Aidan Kehoe <kehoea@parhasa
+2008-05-13 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * printer.el (generic-print-region):
+ (generic-print-buffer):
+ Use #'valid-device-type-p instead of #'valid-specifier-tag-p to
+ check if the msprinter device is available, now that msprinter is
+ always available as a specifier tag.
+
2008-05-11 Aidan Kehoe <kehoea(a)parhasard.net>
* disp-table.el (make-display-table):
diff -r d9b9b5f903863b3ac33713441ea9c91e2553f144 -r 554b9d31e7a5353a725b4f326241a895a237c815 lisp/printer.el
--- a/lisp/printer.el Tue May 13 20:16:53 2008 +0200
+++ b/lisp/printer.el Tue May 13 14:56:38 2008 +0200
@@ -263,7 +263,7 @@ If BUFFER is nil or omitted, the current
(let* ((print-region (and (interactive-p) (region-active-p)))
(start (if print-region (region-beginning) (point-min buffer)))
(end (if print-region (region-end) (point-max buffer))))
- (if (or (not (valid-specifier-tag-p 'msprinter))
+ (if (or (not (valid-device-type-p 'msprinter))
(not display-print-dialog))
(generic-print-region start end buffer)
(let* ((d (Printer-get-device))
@@ -312,7 +312,7 @@ Recognized properties are the same as th
to-page Last page to print, inclusive, If omitted, printing ends at
the end.
copies Number of copies to print. If omitted, one copy is printed."
- (cond ((valid-specifier-tag-p 'msprinter)
+ (cond ((valid-device-type-p 'msprinter)
;; loop, printing one copy of document per loop. kill and
;; re-create the frame each time so that we eject the piece
;; of paper at the end even if we're printing more than one
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches