annotate move-if-change @ 5639:1d1f385c9149

Call XKeysymToString() much less, it leaks. src/ChangeLog addition: 2012-01-08 Aidan Kehoe <kehoea@parhasard.net> * device-x.c: * device-x.c (syms_of_device_x): Move #'x-keysym-on-keyboard{,-sans-modifiers}-p to Lisp, the hash table no longer stores the X keysyms, so we need to manipulate any strings we have been handed. * event-Xt.c (x_has_keysym): Don't call XKeysymToString() here, it leaks; trust x_keysym_to_emacs_keysym() instead. * event-Xt.c (x_keysym_to_emacs_keysym): No longer leak when looking up the strings for keysyms of the form UABCD. lisp/ChangeLog addition: 2012-01-08 Aidan Kehoe <kehoea@parhasard.net> * x-init.el: * x-init.el (pseudo-canonicalize-keysym): New. * x-init.el: Move #'x-keysym-on-keyboard-sans-modifiers-p, #'x-keysym-on-keyboard-p here from device-x.c, some string manipulation it now needs to do is far easier in Lisp. * x-win-xfree86.el: * x-win-xfree86.el (x-win-init-xfree86): No longer call #'x-keysym-on-keyboard{,-sans-modifiers}-p, implement it ourselves cheaply.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 08 Jan 2012 20:41:37 +0000
parents 376386a54a3c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 #!/bin/sh
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2 if
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
3 test -r $2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
4 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 if
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 cmp $1 $2 > /dev/null
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7 then
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 echo $2 is unchanged
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 rm -f $1
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 mv -f $1 $2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 fi
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 else
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 mv -f $1 $2
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 fi