carbon2-commit: Display control characters using carets, invalid-sequence-coding-system
16 years, 4 months
Aidan Kehoe
changeset: 4629:c83cab5a4f04d9f2c7f94946c6fbbaa9749961f6
parent: 4621:00ed9903a988de9a983c074bf0abdc667639eeaf
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sat Jan 31 17:38:07 2009 +0000
files: lisp/ChangeLog lisp/mule/mule-cmds.el
description:
Display control characters using carets, invalid-sequence-coding-system
2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net>
* mule/mule-cmds.el (finish-set-language-environment):
Treat control characters specially in the
invalid-sequence-coding-system handling, display them using the
caret notation.
diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r c83cab5a4f04d9f2c7f94946c6fbbaa9749961f6 lisp/ChangeLog
--- a/lisp/ChangeLog Sun Jan 18 12:56:51 2009 +0000
+++ b/lisp/ChangeLog Sat Jan 31 17:38:07 2009 +0000
＠＠ -1,3 +1,10 ＠＠ 2009-01-18 Ville Skyttä <scop(a)xemacs.o
+2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * mule/mule-cmds.el (finish-set-language-environment):
+ Treat control characters specially in the
+ invalid-sequence-coding-system handling, display them using the
+ caret notation.
+
2009-01-18 Ville Skyttä <scop(a)xemacs.org>
* font.el (font-*-p): Docstring spelling fix.
diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r c83cab5a4f04d9f2c7f94946c6fbbaa9749961f6 lisp/mule/mule-cmds.el
--- a/lisp/mule/mule-cmds.el Sun Jan 18 12:56:51 2009 +0000
+++ b/lisp/mule/mule-cmds.el Sat Jan 31 17:38:07 2009 +0000
＠＠ -771,17 +771,18 ＠＠ the language environment for the major l
(let ((invalid-sequence-coding-system
(get-language-info language-name 'invalid-sequence-coding-system))
(disp-table (specifier-instance current-display-table))
- glyph)
+ glyph string)
(when (consp invalid-sequence-coding-system)
(setq invalid-sequence-coding-system
(car invalid-sequence-coding-system)))
(map-char-table
#'(lambda (key entry)
- (setq glyph (make-glyph
- (vector
- 'string :data
- (decode-coding-string (string entry)
- invalid-sequence-coding-system))))
+ (setq string (decode-coding-string (string entry)
+ invalid-sequence-coding-system))
+ ;; Treat control characters specially:
+ (when (string-match "^[\x00-\x1f\x80-\x9f]$" string)
+ (setq string (format "^%c" (+ ?＠ (aref string 0)))))
+ (setq glyph (make-glyph (vector 'string :data string)))
(set-glyph-face glyph 'unicode-invalid-sequence-warning-face)
(put-char-table key glyph disp-table)
nil)
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
carbon2-commit: YAFMT
16 years, 4 months
Aidan Kehoe
changeset: 4628:03ec57ae1d1e2a18aa57a0feceff2caa64dbe636
parent: 4627:6a6689b96f00c887a1ede549a873f6f6f334b29b
parent: 4624:b25f081370e0ea07648c447823f1b97e3d45b33b
user: Stephen J. Turnbull <stephen(a)xemacs.org>
date: Sat Jan 31 22:47:43 2009 +0900
files:
description:
YAFMT
diff -r 6a6689b96f00c887a1ede549a873f6f6f334b29b -r 03ec57ae1d1e2a18aa57a0feceff2caa64dbe636 lisp/ChangeLog
--- a/lisp/ChangeLog Sat Jan 31 22:25:16 2009 +0900
+++ b/lisp/ChangeLog Sat Jan 31 22:47:43 2009 +0900
＠＠ -1,3 +1,9 ＠＠ 2009-01-18 Ville Skyttä <scop(a)xemacs.o
+2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * frame.el (display-graphic-p):
+ Call #'display-device on the DISPLAY argument, ensuring that the
+ argument to #'device-on-window-system-p is correct.
+
2009-01-18 Ville Skyttä <scop(a)xemacs.org>
* font.el (font-*-p): Docstring spelling fix.
diff -r 6a6689b96f00c887a1ede549a873f6f6f334b29b -r 03ec57ae1d1e2a18aa57a0feceff2caa64dbe636 lisp/frame.el
--- a/lisp/frame.el Sat Jan 31 22:25:16 2009 +0900
+++ b/lisp/frame.el Sat Jan 31 22:47:43 2009 +0900
＠＠ -1211,7 +1211,7 ＠＠ that use a window system such as X, and
that use a window system such as X, and false for text-only terminals.
DISPLAY can be a frame, a device, a console, or nil (meaning the selected
frame)."
- (device-on-window-system-p display))
+ (device-on-window-system-p (display-device display)))
(defun display-images-p (&optional display)
"Return non-nil if DISPLAY can display images.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
carbon2-commit: Document non-obvious usages.
16 years, 4 months
Aidan Kehoe
changeset: 4626:871eb054b34a021924f195dc208af255505350cd
user: Stephen J. Turnbull <stephen(a)xemacs.org>
date: Tue Nov 25 10:44:16 2008 +0900
files: src/ChangeLog src/elhash.c
description:
Document non-obvious usages.
diff -r 56e67d42eb04dc62fd3c8d5950209f941e0f21ee -r 871eb054b34a021924f195dc208af255505350cd src/ChangeLog
--- a/src/ChangeLog Thu Nov 20 23:59:52 2008 +0900
+++ b/src/ChangeLog Tue Nov 25 10:44:16 2008 +0900
＠＠ -136,6 +136,13 ＠＠ 2008-11-02 Stephen J. Turnbull <stephe
* input-method-xlib.c:
Use Xt_RESOURCE.
+
+2008-11-25 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * elhash.c (hash_table_data_validate):
+ * elhash.c (decode_hash_table_rehash_size):
+ * elhash.c (decode_hash_table_rehash_threshold):
+ Document side effects used in these functions.
2008-11-20 Stephen J. Turnbull <stephen(a)xemacs.org>
diff -r 56e67d42eb04dc62fd3c8d5950209f941e0f21ee -r 871eb054b34a021924f195dc208af255505350cd src/elhash.c
--- a/src/elhash.c Thu Nov 20 23:59:52 2008 +0900
+++ b/src/elhash.c Tue Nov 25 10:44:16 2008 +0900
＠＠ -755,6 +755,7 ＠＠ static double
static double
decode_hash_table_rehash_size (Lisp_Object rehash_size)
{
+ /* -1.0 signals make_general_lisp_hash_table to use the default. */
return NILP (rehash_size) ? -1.0 : XFLOAT_DATA (rehash_size);
}
＠＠ -786,6 +787,7 ＠＠ static double
static double
decode_hash_table_rehash_threshold (Lisp_Object rehash_threshold)
{
+ /* -1.0 signals make_general_lisp_hash_table to use the default. */
return NILP (rehash_threshold) ? -1.0 : XFLOAT_DATA (rehash_threshold);
}
＠＠ -795,6 +797,7 ＠＠ hash_table_data_validate (Lisp_Object UN
{
int len;
+ /* Check for improper lists while getting length. */
GET_EXTERNAL_LIST_LENGTH (value, len);
if (len & 1)
＠＠ -804,6 +807,7 ＠＠ hash_table_data_validate (Lisp_Object UN
value, Qhash_table, errb);
return 0;
}
+
return 1;
}
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
carbon2-commit: Clarify comment in struct x_frame.
16 years, 4 months
Aidan Kehoe
changeset: 4625:56e67d42eb04dc62fd3c8d5950209f941e0f21ee
parent: 4622:2669b1b7e33b70dad0f42a94629ab3afeffa9b55
user: Stephen J. Turnbull <stephen(a)xemacs.org>
date: Thu Nov 20 23:59:52 2008 +0900
files: src/ChangeLog src/console-x-impl.h
description:
Clarify comment in struct x_frame.
diff -r 2669b1b7e33b70dad0f42a94629ab3afeffa9b55 -r 56e67d42eb04dc62fd3c8d5950209f941e0f21ee src/ChangeLog
--- a/src/ChangeLog Sat Jan 31 13:06:37 2009 +0000
+++ b/src/ChangeLog Thu Nov 20 23:59:52 2008 +0900
＠＠ -136,6 +136,10 ＠＠ 2008-11-02 Stephen J. Turnbull <stephe
* input-method-xlib.c:
Use Xt_RESOURCE.
+
+2008-11-20 Stephen J. Turnbull <stephen(a)xemacs.org>
+
+ * console-x-impl.h (struct x_frame): Clarify comment.
2008-11-01 Stephen J. Turnbull <stephen(a)xemacs.org>
diff -r 2669b1b7e33b70dad0f42a94629ab3afeffa9b55 -r 56e67d42eb04dc62fd3c8d5950209f941e0f21ee src/console-x-impl.h
--- a/src/console-x-impl.h Sat Jan 31 13:06:37 2009 +0000
+++ b/src/console-x-impl.h Thu Nov 20 23:59:52 2008 +0900
＠＠ -332,7 +332,7 ＠＠ struct x_frame
or partially hidden by another X window */
unsigned int totally_visible_p :1;
- /* NB: Both of the following flags are derivable from the 'shell'
+ /* NB: Both of the following flags are derivable from the 'widget'
field above, but it's easier if we also have them separately here. */
/* Are we a top-level frame? This means that our shell is a
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
carbon2-commit: Correct a bug in #'display-graphic-p.
16 years, 4 months
Aidan Kehoe
changeset: 4623:732e3243f2e4f8be3758ef0820b6a415dfbd1966
parent: 4621:00ed9903a988de9a983c074bf0abdc667639eeaf
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sat Jan 31 13:21:32 2009 +0000
files: lisp/ChangeLog lisp/frame.el
description:
Correct a bug in #'display-graphic-p.
2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net>
* frame.el (display-graphic-p):
Call #'display-device on the DISPLAY argument, ensuring that the
argument to #'device-on-window-system-p is correct.
diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r 732e3243f2e4f8be3758ef0820b6a415dfbd1966 lisp/ChangeLog
--- a/lisp/ChangeLog Sun Jan 18 12:56:51 2009 +0000
+++ b/lisp/ChangeLog Sat Jan 31 13:21:32 2009 +0000
＠＠ -1,3 +1,9 ＠＠ 2009-01-18 Ville Skyttä <scop(a)xemacs.o
+2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * frame.el (display-graphic-p):
+ Call #'display-device on the DISPLAY argument, ensuring that the
+ argument to #'device-on-window-system-p is correct.
+
2009-01-18 Ville Skyttä <scop(a)xemacs.org>
* font.el (font-*-p): Docstring spelling fix.
diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r 732e3243f2e4f8be3758ef0820b6a415dfbd1966 lisp/frame.el
--- a/lisp/frame.el Sun Jan 18 12:56:51 2009 +0000
+++ b/lisp/frame.el Sat Jan 31 13:21:32 2009 +0000
＠＠ -1211,7 +1211,7 ＠＠ that use a window system such as X, and
that use a window system such as X, and false for text-only terminals.
DISPLAY can be a frame, a device, a console, or nil (meaning the selected
frame)."
- (device-on-window-system-p display))
+ (device-on-window-system-p (display-device display)))
(defun display-images-p (&optional display)
"Return non-nil if DISPLAY can display images.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
carbon2-commit: Correct little-endian UTF-16 surrogate handling.
16 years, 4 months
Aidan Kehoe
changeset: 4622:2669b1b7e33b70dad0f42a94629ab3afeffa9b55
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sat Jan 31 13:06:37 2009 +0000
files: src/ChangeLog src/unicode.c tests/ChangeLog tests/automated/mule-tests.el
description:
Correct little-endian UTF-16 surrogate handling.
src/ChangeLog addition:
2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net>
* unicode.c (unicode_convert):
Correct little-endian UTF-16 surrogate handling.
tests/ChangeLog addition:
2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/mule-tests.el:
Test little-endian Unicode surrogates too.
diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r 2669b1b7e33b70dad0f42a94629ab3afeffa9b55 src/ChangeLog
--- a/src/ChangeLog Sun Jan 18 12:56:51 2009 +0000
+++ b/src/ChangeLog Sat Jan 31 13:06:37 2009 +0000
＠＠ -1,3 +1,8 ＠＠ 2009-01-16 Aidan Kehoe <kehoea＠parhasa
+2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * unicode.c (unicode_convert):
+ Correct little-endian UTF-16 surrogate handling.
+
2009-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
* chartab.c (print_table_entry):
diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r 2669b1b7e33b70dad0f42a94629ab3afeffa9b55 src/unicode.c
--- a/src/unicode.c Sun Jan 18 12:56:51 2009 +0000
+++ b/src/unicode.c Sat Jan 31 13:06:37 2009 +0000
＠＠ -2115,23 +2115,47 ＠＠ unicode_convert (struct coding_stream *s
{
int tempch;
- if (!valid_utf_16_last_surrogate(ch & 0xFFFF))
- {
- DECODE_ERROR_OCTET ((ch >> 24) & 0xFF, dst, data,
- ignore_bom);
- DECODE_ERROR_OCTET ((ch >> 16) & 0xFF, dst, data,
- ignore_bom);
- DECODE_ERROR_OCTET ((ch >> 8) & 0xFF, dst, data,
- ignore_bom);
- DECODE_ERROR_OCTET (ch & 0xFF, dst, data,
- ignore_bom);
- }
- else
+ if (little_endian)
{
- tempch = utf_16_surrogates_to_code((ch >> 16),
- (ch & 0xffff));
- decode_unicode_char(tempch, dst, data, ignore_bom);
+ if (!valid_utf_16_last_surrogate(ch >> 16))
+ {
+ DECODE_ERROR_OCTET (ch & 0xFF, dst, data,
+ ignore_bom);
+ DECODE_ERROR_OCTET ((ch >> 8) & 0xFF, dst, data,
+ ignore_bom);
+ DECODE_ERROR_OCTET ((ch >> 16) & 0xFF, dst, data,
+ ignore_bom);
+ DECODE_ERROR_OCTET ((ch >> 24) & 0xFF, dst, data,
+ ignore_bom);
+ }
+ else
+ {
+ tempch = utf_16_surrogates_to_code((ch & 0xffff),
+ (ch >> 16));
+ decode_unicode_char(tempch, dst, data, ignore_bom);
+ }
}
+ else
+ {
+ if (!valid_utf_16_last_surrogate(ch & 0xFFFF))
+ {
+ DECODE_ERROR_OCTET ((ch >> 24) & 0xFF, dst, data,
+ ignore_bom);
+ DECODE_ERROR_OCTET ((ch >> 16) & 0xFF, dst, data,
+ ignore_bom);
+ DECODE_ERROR_OCTET ((ch >> 8) & 0xFF, dst, data,
+ ignore_bom);
+ DECODE_ERROR_OCTET (ch & 0xFF, dst, data,
+ ignore_bom);
+ }
+ else
+ {
+ tempch = utf_16_surrogates_to_code((ch >> 16),
+ (ch & 0xffff));
+ decode_unicode_char(tempch, dst, data, ignore_bom);
+ }
+ }
+
ch = 0;
counter = 0;
}
diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r 2669b1b7e33b70dad0f42a94629ab3afeffa9b55 tests/ChangeLog
--- a/tests/ChangeLog Sun Jan 18 12:56:51 2009 +0000
+++ b/tests/ChangeLog Sat Jan 31 13:06:37 2009 +0000
＠＠ -1,3 +1,8 ＠＠ 2009-01-18 Aidan Kehoe <kehoea＠parhasa
+2009-01-31 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/mule-tests.el:
+ Test little-endian Unicode surrogates too.
+
2009-01-18 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/lisp-tests.el: (char-table-with-string):
diff -r 00ed9903a988de9a983c074bf0abdc667639eeaf -r 2669b1b7e33b70dad0f42a94629ab3afeffa9b55 tests/automated/mule-tests.el
--- a/tests/automated/mule-tests.el Sun Jan 18 12:56:51 2009 +0000
+++ b/tests/automated/mule-tests.el Sat Jan 31 13:06:37 2009 +0000
＠＠ -446,12 +446,17 ＠＠ This is a naive implementation in Lisp.
(encode-coding-string xemacs-character 'ctext))))))
(loop
- for (code-point encoded)
- in '((#x10000 "\xd8\x00\xdc\x00")
- (#x10FFFD "\xdb\xff\xdf\xfd"))
- do (Assert (equal (encode-coding-string
- (decode-char 'ucs code-point) 'utf-16)
- encoded)))
+ for (code-point utf-16-big-endian utf-16-little-endian)
+ in '((#x10000 "\xd8\x00\xdc\x00" "\x00\xd8\x00\xdc")
+ (#x10FFFD "\xdb\xff\xdf\xfd" "\xff\xdb\xfd\xdf"))
+ do
+ (Assert (equal (encode-coding-string
+ (decode-char 'ucs code-point) 'utf-16)
+ utf-16-big-endian))
+ (Assert (equal (encode-coding-string
+ (decode-char 'ucs code-point) 'utf-16-le)
+ utf-16-little-endian))
+
;;---------------------------------------------------------------
;; Regression test for a couple of CCL-related bugs.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
carbon2-commit: Fix make check after my last change.
16 years, 4 months
Aidan Kehoe
changeset: 4621:00ed9903a988de9a983c074bf0abdc667639eeaf
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sun Jan 18 12:56:51 2009 +0000
files: tests/ChangeLog tests/automated/lisp-tests.el
description:
Fix make check after my last change.
2009-01-18 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/lisp-tests.el: (char-table-with-string):
That was remiss of me, I should have checked before commiting that
last changed. Fixed, the char tables are now actually printed.
diff -r c02fdef8db8bb4fdb7c9e503d12bd5b56181c037 -r 00ed9903a988de9a983c074bf0abdc667639eeaf tests/ChangeLog
--- a/tests/ChangeLog Sun Jan 18 12:51:25 2009 +0000
+++ b/tests/ChangeLog Sun Jan 18 12:56:51 2009 +0000
＠＠ -1,3 +1,9 ＠＠ 2009-01-18 Aidan Kehoe <kehoea＠parhasa
+2009-01-18 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/lisp-tests.el: (char-table-with-string):
+ That was remiss of me, I should have checked before commiting that
+ last changed. Fixed, the char tables are now actually printed.
+
2009-01-18 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/lisp-tests.el:
diff -r c02fdef8db8bb4fdb7c9e503d12bd5b56181c037 -r 00ed9903a988de9a983c074bf0abdc667639eeaf tests/automated/lisp-tests.el
--- a/tests/automated/lisp-tests.el Sun Jan 18 12:51:25 2009 +0000
+++ b/tests/automated/lisp-tests.el Sun Jan 18 12:56:51 2009 +0000
＠＠ -1330,6 +1330,7 ＠＠
(let ((char-table-with-string #s(char-table data (?\x00 "text")))
(char-table-with-symbol #s(char-table data (?\x00 text))))
- (Assert (not (string-equal char-table-with-string char-table-with-symbol))
+ (Assert (not (string-equal (prin1-to-string char-table-with-string)
+ (prin1-to-string char-table-with-symbol)))
"Check that char table elements are quoted correctly when printing"))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
carbon2-commit: Print char table values correctly.
16 years, 4 months
Aidan Kehoe
changeset: 4619:1d11ecca9cd06c9151cb69e55ccc2ebbd998d9b7
parent: 4615:774e5c7522bf0681f0ecf0ab015d9ec8dcb35486
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sun Jan 18 12:49:53 2009 +0000
files: src/ChangeLog src/chartab.c tests/ChangeLog tests/automated/lisp-tests.el
description:
Print char table values correctly.
src/ChangeLog addition:
2009-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
* chartab.c (print_table_entry):
Print char table values correctly, eliminating some confusion
between symbols and strings.
tests/ChangeLog addition:
2009-01-18 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/lisp-tests.el:
Check that a bug I fixed in char table printing is really gone.
diff -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 -r 1d11ecca9cd06c9151cb69e55ccc2ebbd998d9b7 src/ChangeLog
--- a/src/ChangeLog Tue Jan 13 12:07:27 2009 +0000
+++ b/src/ChangeLog Sun Jan 18 12:49:53 2009 +0000
＠＠ -1,3 +1,9 ＠＠ 2008-12-30 Aidan Kehoe <kehoea＠parhasa
+2009-01-16 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * chartab.c (print_table_entry):
+ Print char table values correctly, eliminating some confusion
+ between symbols and strings.
+
2008-12-30 Aidan Kehoe <kehoea(a)parhasard.net>
* device-x.c (Fx_get_font_path):
diff -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 -r 1d11ecca9cd06c9151cb69e55ccc2ebbd998d9b7 src/chartab.c
--- a/src/chartab.c Tue Jan 13 12:07:27 2009 +0000
+++ b/src/chartab.c Sun Jan 18 12:49:53 2009 +0000
＠＠ -317,7 +317,7 ＠＠ print_table_entry (struct chartab_range
a->first = 0;
lisprange = encode_char_table_range (range);
GCPRO1 (lisprange);
- write_fmt_string_lisp (a->printcharfun, "%s %s", 2, lisprange, val);
+ write_fmt_string_lisp (a->printcharfun, "%s %S", 2, lisprange, val);
UNGCPRO;
return 0;
}
diff -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 -r 1d11ecca9cd06c9151cb69e55ccc2ebbd998d9b7 tests/ChangeLog
--- a/tests/ChangeLog Tue Jan 13 12:07:27 2009 +0000
+++ b/tests/ChangeLog Sun Jan 18 12:49:53 2009 +0000
＠＠ -1,3 +1,8 ＠＠ 2009-01-11 Aidan Kehoe <kehoea＠parhasa
+2009-01-18 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * automated/lisp-tests.el:
+ Check that a bug I fixed in char table printing is really gone.
+
2009-01-11 Aidan Kehoe <kehoea(a)parhasard.net>
* automated/lisp-tests.el ():
diff -r 774e5c7522bf0681f0ecf0ab015d9ec8dcb35486 -r 1d11ecca9cd06c9151cb69e55ccc2ebbd998d9b7 tests/automated/lisp-tests.el
--- a/tests/automated/lisp-tests.el Tue Jan 13 12:07:27 2009 +0000
+++ b/tests/automated/lisp-tests.el Sun Jan 18 12:49:53 2009 +0000
＠＠ -1327,3 +1327,9 ＠＠
printed-with-uninterned)))
(Assert (null (string-match awkward-regexp printed-with-uninterned
(1+ first-match-start)))))
+
+(let ((char-table-with-string #s(char-table data (?\x00 "text")))
+ (char-table-with-symbol #s(char-table data (?\x00 text))))
+ (Assert (not (string-equal char-table-with-string char-table-with-symbol))
+ "Check that char table elements are quoted correctly when printing"))
+
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
carbon2-commit: Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2
16 years, 4 months
Aidan Kehoe
changeset: 4618:68f74b080e9421c23fc2b7d36809d46a1ff02a40
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sun Jan 18 12:41:58 2009 +0000
files: src/ChangeLog src/objects-msw.c
description:
Accept msprinter and mswindows, mswindows_font_spec_matches_charset_stage_2
src/ChangeLog addition:
2009-01-10 Aidan Kehoe <kehoea(a)parhasard.net>
* objects-msw.c (mswindows_font_spec_matches_charset_stage_2):
Accept msprinter as well as mswindows devices here.
diff -r 49e17f7182f51df9b27d02a74b5433b1654aa3a1 -r 68f74b080e9421c23fc2b7d36809d46a1ff02a40 src/ChangeLog
--- a/src/ChangeLog Sun Jan 18 12:14:19 2009 +0200
+++ b/src/ChangeLog Sun Jan 18 12:41:58 2009 +0000
＠＠ -1,3 +1,8 ＠＠ 2008-12-30 Aidan Kehoe <kehoea＠parhasa
+2009-01-10 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * objects-msw.c (mswindows_font_spec_matches_charset_stage_2):
+ Accept msprinter as well as mswindows devices here.
+
2008-12-30 Aidan Kehoe <kehoea(a)parhasard.net>
* device-x.c (Fx_get_font_path):
diff -r 49e17f7182f51df9b27d02a74b5433b1654aa3a1 -r 68f74b080e9421c23fc2b7d36809d46a1ff02a40 src/objects-msw.c
--- a/src/objects-msw.c Sun Jan 18 12:14:19 2009 +0200
+++ b/src/objects-msw.c Sun Jan 18 12:41:58 2009 +0000
＠＠ -2064,8 +2064,21 ＠＠ mswindows_font_spec_matches_charset_stag
else
{
HDC hdc = CreateCompatibleDC (NULL);
- Lisp_Object font_list = DEVICE_MSWINDOWS_FONTLIST (d);
- Lisp_Object truename;
+ Lisp_Object font_list = Qnil, truename;
+
+ if (DEVICE_TYPE_P (d, mswindows))
+ {
+ font_list = DEVICE_MSWINDOWS_FONTLIST (d);
+ }
+ else if (DEVICE_TYPE_P (d, msprinter))
+ {
+ font_list = DEVICE_MSPRINTER_FONTLIST (d);
+ }
+ else
+ {
+ assert(0);
+ }
+
HFONT hfont = create_hfont_from_font_spec (the_nonreloc, hdc, Qnil,
font_list,
ERROR_ME_DEBUG_WARN,
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches
carbon2-commit: Fix docstring copy-pasto.
16 years, 4 months
Aidan Kehoe
changeset: 4617:49e17f7182f51df9b27d02a74b5433b1654aa3a1
user: "Ville SkyttÀ <scop(a)xemacs.org>"
date: Sun Jan 18 12:14:19 2009 +0200
files: lisp/ChangeLog lisp/modeline.el
description:
Fix docstring copy-pasto.
diff -r de0228446b18b1ff1d5a0c4411fdbae51781cf71 -r 49e17f7182f51df9b27d02a74b5433b1654aa3a1 lisp/ChangeLog
--- a/lisp/ChangeLog Sun Jan 18 11:55:53 2009 +0200
+++ b/lisp/ChangeLog Sun Jan 18 12:14:19 2009 +0200
＠＠ -2,6 +2,8 ＠＠ 2009-01-18 Ville Skyttä <scop(a)xemacs.o
* font.el (font-*-p): Docstring spelling fix.
(set-font-*-p): Ditto.
+
+ * modeline.el (modeline-3d-p): Fix docstring copy-pasto.
2009-01-13 Aidan Kehoe <kehoea(a)parhasard.net>
diff -r de0228446b18b1ff1d5a0c4411fdbae51781cf71 -r 49e17f7182f51df9b27d02a74b5433b1654aa3a1 lisp/modeline.el
--- a/lisp/modeline.el Sun Jan 18 11:55:53 2009 +0200
+++ b/lisp/modeline.el Sun Jan 18 12:14:19 2009 +0200
＠＠ -44,7 +44,7 ＠＠
(specifier-instance modeline-shadow-thickness)))
(and (integerp thickness)
(> thickness 0)))
- "Whether the default toolbar is globally visible.
+ "Whether the modeline is displayed with raised, 3-d appearance.
This option only has an effect when set using `customize-set-variable',
or through the Options menu."
:group 'display
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches