May 2008 - XEmacs-Patches - XEmacs Mailing List Archives

carbon2-commit: Fix problem with `resize-minibuffer-mode'. 16 years, 7 months

Aidan Kehoe

changeset: 4469:c32b3d10c56b202091a1abe4ad924db6535e847b user: Mike Sperber <sperber(a)deinprogramm.de> date: Sat Apr 26 16:28:44 2008 +0200 files: src/ChangeLog src/window.c description: Fix problem with `resize-minibuffer-mode'. 2008-04-26 Mike Sperber <mike(a)xemacs.org> * window.c (set_window_pixsize): Round up when we're shrinking, down when we're growing * to make sure that pairs of grow / shrink meant to * cancel out actually do cancel out. This fixes a problem with `resize-minibuffer-mode' where successive grow/shrink actions are meant to cancel out, but previously didn't. diff -r 1d41b9bcf74f7ed4ab6e296322a182fe580a95a2 -r c32b3d10c56b202091a1abe4ad924db6535e847b src/ChangeLog --- a/src/ChangeLog Sun Apr 13 11:18:00 2008 +0200 +++ b/src/ChangeLog Sat Apr 26 16:28:44 2008 +0200 ＠＠ -1,3 +1,11 ＠＠ 2008-04-05 Aidan Kehoe <kehoea＠parhasa +2008-04-26 Mike Sperber <mike(a)xemacs.org> + + * window.c (set_window_pixsize): Round up when we're shrinking, + down when we're growing * to make sure that pairs of grow / shrink + meant to * cancel out actually do cancel out. This fixes a + problem with `resize-minibuffer-mode' where successive grow/shrink + actions are meant to cancel out, but previously didn't. + 2008-04-05 Aidan Kehoe <kehoea(a)parhasard.net> * depend: diff -r 1d41b9bcf74f7ed4ab6e296322a182fe580a95a2 -r c32b3d10c56b202091a1abe4ad924db6535e847b src/window.c --- a/src/window.c Sun Apr 13 11:18:00 2008 +0200 +++ b/src/window.c Sat Apr 26 16:28:44 2008 +0200 ＠＠ -3601,7 +3601,17 ＠＠ set_window_pixsize (Lisp_Object window, /* All but the last window should have a height which is a multiple of the default line height. */ if (!NILP (c->next)) - pos = (pos / line_size) * line_size; + { + /* + * Round up when we're shrinking, down when we're growing + * to make sure that pairs of grow / shrink meant to + * cancel out actually do cancel out. + */ + if (pixel_adj_left < 0) + pos = ((pos + line_size -1) / line_size) * line_size; + else + pos = (pos / line_size) * line_size; + } /* Avoid confusion: don't delete child if it becomes too small */ set_window_pixsize (child, pos + first - last_pos, 1, set_height); _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

carbon2-commit: Support windows-1250 on Unix as well as Windows. 16 years, 7 months

Aidan Kehoe

changeset: 4470:15dd5229cea58e9699fb9311493269a4751abb81 user: Aidan Kehoe <kehoea(a)parhasard.net> date: Wed May 07 21:06:45 2008 +0200 files: lisp/ChangeLog lisp/mule/latin.el lisp/mule/mule-win32-init.el description: Support windows-1250 on Unix as well as Windows. 2008-05-07 Aidan Kehoe <kehoea(a)parhasard.net> * mule/latin.el (windows-1250): Add the Central European Windows coding system. * mule/mule-win32-init.el: Don't use the Windows-specific CP1250 implementation, rely on that in latin.el instead. diff -r c32b3d10c56b202091a1abe4ad924db6535e847b -r 15dd5229cea58e9699fb9311493269a4751abb81 lisp/ChangeLog --- a/lisp/ChangeLog Sat Apr 26 16:28:44 2008 +0200 +++ b/lisp/ChangeLog Wed May 07 21:06:45 2008 +0200 ＠＠ -1,3 +1,10 ＠＠ 2008-04-13 Henry S. Thompson <ht(a)inf.ed +2008-05-07 Aidan Kehoe <kehoea(a)parhasard.net> + + * mule/latin.el (windows-1250): Add the Central European Windows + coding system. + * mule/mule-win32-init.el: Don't use the Windows-specific CP1250 + implementation, rely on that in latin.el instead. + 2008-04-13 Henry S. Thompson <ht(a)inf.ed.ac.uk>, Mike Sperber <mike(a)xemacs.org> * window-xemacs.el (save-window-excursion/mapping, diff -r c32b3d10c56b202091a1abe4ad924db6535e847b -r 15dd5229cea58e9699fb9311493269a4751abb81 lisp/mule/latin.el --- a/lisp/mule/latin.el Sat Apr 26 16:28:44 2008 +0200 +++ b/lisp/mule/latin.el Wed May 07 21:06:45 2008 +0200 ＠＠ -188,6 +188,137 ＠＠ when used to write German (or English, o when used to write German (or English, of course). " '(mnemonic "Latin 2" aliases (iso-latin-2 latin-2))) + +(make-8-bit-coding-system + 'windows-1250 + '((#x80 ?\u20AC) ;; EURO SIGN + (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK + (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK + (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS + (#x86 ?\u2020) ;; DAGGER + (#x87 ?\u2021) ;; DOUBLE DAGGER + (#x89 ?\u2030) ;; PER MILLE SIGN + (#x8A ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON + (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK + (#x8C ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE + (#x8D ?\u0164) ;; LATIN CAPITAL LETTER T WITH CARON + (#x8E ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON + (#x8F ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE + (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK + (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK + (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK + (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK + (#x95 ?\u2022) ;; BULLET + (#x96 ?\u2013) ;; EN DASH + (#x97 ?\u2014) ;; EM DASH + (#x99 ?\u2122) ;; TRADE MARK SIGN + (#x9A ?\u0161) ;; LATIN SMALL LETTER S WITH CARON + (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK + (#x9C ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE + (#x9D ?\u0165) ;; LATIN SMALL LETTER T WITH CARON + (#x9E ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON + (#x9F ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE + (#xA0 ?\u00A0) ;; NO-BREAK SPACE + (#xA1 ?\u02C7) ;; CARON + (#xA2 ?\u02D8) ;; BREVE + (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE + (#xA4 ?\u00A4) ;; CURRENCY SIGN + (#xA5 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK + (#xA6 ?\u00A6) ;; BROKEN BAR + (#xA7 ?\u00A7) ;; SECTION SIGN + (#xA8 ?\u00A8) ;; DIAERESIS + (#xA9 ?\u00A9) ;; COPYRIGHT SIGN + (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA + (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK + (#xAC ?\u00AC) ;; NOT SIGN + (#xAD ?\u00AD) ;; SOFT HYPHEN + (#xAE ?\u00AE) ;; REGISTERED SIGN + (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE + (#xB0 ?\u00B0) ;; DEGREE SIGN + (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN + (#xB2 ?\u02DB) ;; OGONEK + (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE + (#xB4 ?\u00B4) ;; ACUTE ACCENT + (#xB5 ?\u00B5) ;; MICRO SIGN + (#xB6 ?\u00B6) ;; PILCROW SIGN + (#xB7 ?\u00B7) ;; MIDDLE DOT + (#xB8 ?\u00B8) ;; CEDILLA + (#xB9 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK + (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA + (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK + (#xBC ?\u013D) ;; LATIN CAPITAL LETTER L WITH CARON + (#xBD ?\u02DD) ;; DOUBLE ACUTE ACCENT + (#xBE ?\u013E) ;; LATIN SMALL LETTER L WITH CARON + (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE + (#xC0 ?\u0154) ;; LATIN CAPITAL LETTER R WITH ACUTE + (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE + (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX + (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE + (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS + (#xC5 ?\u0139) ;; LATIN CAPITAL LETTER L WITH ACUTE + (#xC6 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE + (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA + (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON + (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE + (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK + (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS + (#xCC ?\u011A) ;; LATIN CAPITAL LETTER E WITH CARON + (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE + (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX + (#xCF ?\u010E) ;; LATIN CAPITAL LETTER D WITH CARON + (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE + (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE + (#xD2 ?\u0147) ;; LATIN CAPITAL LETTER N WITH CARON + (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE + (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX + (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE + (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS + (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN + (#xD8 ?\u0158) ;; LATIN CAPITAL LETTER R WITH CARON + (#xD9 ?\u016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE + (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE + (#xDB ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE + (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS + (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE + (#xDE ?\u0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA + (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S + (#xE0 ?\u0155) ;; LATIN SMALL LETTER R WITH ACUTE + (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE + (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX + (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE + (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS + (#xE5 ?\u013A) ;; LATIN SMALL LETTER L WITH ACUTE + (#xE6 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE + (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA + (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON + (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE + (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK + (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS + (#xEC ?\u011B) ;; LATIN SMALL LETTER E WITH CARON + (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE + (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX + (#xEF ?\u010F) ;; LATIN SMALL LETTER D WITH CARON + (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE + (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE + (#xF2 ?\u0148) ;; LATIN SMALL LETTER N WITH CARON + (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE + (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX + (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE + (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS + (#xF7 ?\u00F7) ;; DIVISION SIGN + (#xF8 ?\u0159) ;; LATIN SMALL LETTER R WITH CARON + (#xF9 ?\u016F) ;; LATIN SMALL LETTER U WITH RING ABOVE + (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE + (#xFB ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE + (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS + (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE + (#xFE ?\u0163) ;; LATIN SMALL LETTER T WITH CEDILLA + (#xFF ?\u02D9)) ;; DOT ABOVE + "CP 1250, Microsoft's encoding for Central Europe. +See also `iso-8859-2' and `window-1252' for Western Europe. " + '(mnemonic "CP1250" + aliases (cp1250))) + ;; ;; Latin-3 (ISO-8859-3). Esperanto, Maltese and Turkish. Obsolescent. diff -r c32b3d10c56b202091a1abe4ad924db6535e847b -r 15dd5229cea58e9699fb9311493269a4751abb81 lisp/mule/mule-win32-init.el --- a/lisp/mule/mule-win32-init.el Sat Apr 26 16:28:44 2008 +0200 +++ b/lisp/mule/mule-win32-init.el Wed May 07 21:06:45 2008 +0200 ＠＠ -153,10 +153,9 ＠＠ as returned by ;; http://blogs.msdn.com/michkap/archive/2005/08/01/446475.aspx ; ("ANSI" 1200 utf-16-little-endian "Unicode (BMP of ISO 10646)") - ("ANSI" 1250 no-conversion "Windows 3.1 Eastern European") - ;; We implement this ourselves, and keeping the same implementation ;; across platforms means behaviour is a bit more consistent. + ; ("ANSI" 1250 no-conversion "Windows 3.1 Eastern European") ; ("ANSI" 1251 no-conversion "Windows 3.1 Cyrillic") ; ("ANSI" 1252 no-conversion "Windows 3.1 US (ANSI)") _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

carbon2-commit: Add `set-window-configuration/mapping' and `save-window-excursion/mapping'. 16 years, 7 months

Aidan Kehoe

changeset: 4468:1d41b9bcf74f7ed4ab6e296322a182fe580a95a2 user: Mike Sperber <sperber(a)deinprogramm.de> date: Sun Apr 13 11:18:00 2008 +0200 files: lisp/ChangeLog lisp/window-xemacs.el description: Add `set-window-configuration/mapping' and `save-window-excursion/mapping'. 2008-04-13 Henry S. Thompson <ht(a)inf.ed.ac.uk>, Mike Sperber <mike(a)xemacs.org> * window-xemacs.el (save-window-excursion/mapping, set-window-configuration/mapping): Add. These function return an alist mapping the window objects from the original window configuration to the window objects corresponding to them in the restored configuration. (set-window-configuration): (saved-window): (root-window->saved-window): (really-set-window-configuration): (restore-saved-window): Record the mapping for above functions. diff -r 715c3ced8fa8333d59834087c41ddc5ca28edf7f -r 1d41b9bcf74f7ed4ab6e296322a182fe580a95a2 lisp/ChangeLog --- a/lisp/ChangeLog Sat Apr 12 16:41:38 2008 +0200 +++ b/lisp/ChangeLog Sun Apr 13 11:18:00 2008 +0200 ＠＠ -1,3 +1,16 ＠＠ 2008-04-12 Henry S. Thompson <ht(a)inf.ed +2008-04-13 Henry S. Thompson <ht(a)inf.ed.ac.uk>, Mike Sperber <mike(a)xemacs.org> + + * window-xemacs.el (save-window-excursion/mapping, + set-window-configuration/mapping): Add. These function return an + alist mapping the window objects from the original window + configuration to the window objects corresponding to them in the + restored configuration. + (set-window-configuration): + (saved-window): + (root-window->saved-window): + (really-set-window-configuration): + (restore-saved-window): Record the mapping for above functions. + 2008-04-12 Henry S. Thompson <ht(a)inf.ed.ac.uk> * window-xemacs.el (real-split-window, real-delete-window): Define diff -r 715c3ced8fa8333d59834087c41ddc5ca28edf7f -r 1d41b9bcf74f7ed4ab6e296322a182fe580a95a2 lisp/window-xemacs.el --- a/lisp/window-xemacs.el Sat Apr 12 16:41:38 2008 +0200 +++ b/lisp/window-xemacs.el Sun Apr 13 11:18:00 2008 +0200 ＠＠ -124,7 +124,8 ＠＠ if a window manager employing virtual de pixel-left pixel-top pixel-right pixel-bottom hscroll modeline-hscroll dedicatedp - first-hchild first-vchild next-child) + first-hchild first-vchild next-child + window) (defstruct window-configuration frame ＠＠ -260,6 +261,7 ＠＠ its value is -not- saved." (bottom (nth 3 edges))) (let ((saved-window (make-saved-window + :window window :currentp (eq window (selected-window (window-frame window))) :minibufferp (eq window (minibuffer-window (window-frame window))) :minibuffer-scrollp (eq window minibuffer-scroll-window) ＠＠ -290,10 +292,39 ＠＠ its value is -not- saved." (copy-marker (mark-marker t buffer))))) saved-window)))) +(defmacro save-window-excursion/mapping (&rest body) + "Execute body, preserving window sizes and contents. +Restores which buffer appears in which window, where display starts, +as well as the current buffer. +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 +windows that have not changed identity. +Does not restore the value of point in current buffer." + (let ((window-config (gensym 'window-config)) + (mapping (gensym 'mapping))) + `(let ((,window-config (current-window-configuration)) + (,mapping)) + (unwind-protect + (progn ,＠body) + (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) + "Set the configuration of windows and buffers as specified by CONFIGURATION. +CONFIGURATION must be a value previously returned +by `current-window-configuration'. +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 +windows that have not changed identity." (let ((frame (window-configuration-frame configuration))) (if (and (frame-live-p frame) (not (window-configuration-equal configuration ＠＠ -301,7 +332,8 ＠＠ by `current-window-configuration'." (really-set-window-configuration frame configuration)))) (defun really-set-window-configuration (frame configuration) - "Set the window configuration CONFIGURATION on live frame FRAME." + "Set the window configuration CONFIGURATION on live frame FRAME. +Return alist mapping old windows to new windows." ;; avoid potential temporary problems (setq window-min-width 0) (setq window-min-height 0) ＠＠ -332,22 +364,26 ＠＠ by `current-window-configuration'." ;; the selected window (select-window (minibuffer-window frame)) - (let ((window-configuration-current-window nil)) + (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) + '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)) - - (let ((buffer (window-configuration-current-buffer configuration))) - (if (buffer-live-p buffer) - (set-buffer buffer) - (set-buffer (car (buffer-list)))))) + (select-window window-configuration-current-window)) + + (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)))) (defun set-window-configuration-frame-size (configuration) "Restore the frame size of a window configuration." ＠＠ -381,8 +417,14 ＠＠ by `current-window-configuration'." ((window-first-vchild window) (window-reduce-to-one (window-first-vchild window))))) -(defun restore-saved-window (configuration window saved-window direction) - "Within CONFIGURATION, restore WINDOW to the state of SAVED-WINDOW." +(defun restore-saved-window (configuration window saved-window direction mapping) + "Within CONFIGURATION, restore WINDOW to the state of SAVED-WINDOW. +MAPPING is a one-element list whose element is an old-window-to-new-window +mapping, which this function will extend." + (if (not (eq (saved-window-window saved-window) window)) + (rplaca mapping + (cons (cons (saved-window-window saved-window) window) + (car mapping)))) (cond ((and (saved-window-next-child saved-window) (not (saved-window-minibufferp (saved-window-next-child saved-window)))) ＠＠ -395,7 +437,8 ＠＠ by `current-window-configuration'." (restore-saved-window configuration (window-next-child window) (saved-window-next-child saved-window) - direction)) + direction + mapping)) ((not (saved-window-minibufferp saved-window)) (restore-saved-window-parameters configuration window saved-window))) ＠＠ -403,12 +446,14 ＠＠ by `current-window-configuration'." (restore-saved-window configuration window (saved-window-first-hchild saved-window) - 'horizontal)) + 'horizontal + mapping)) (if (saved-window-first-vchild saved-window) (restore-saved-window configuration window (saved-window-first-vchild saved-window) - 'vertical))) + 'vertical + mapping))) (defun restore-saved-window-parameters (configuration window saved-window) "Restore the window parameters stored in SAVED-WINDOW on WINDOW." _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

carbon2-commit: Use `real-split-window', `real-delete-window' in window-config code. 16 years, 7 months

Aidan Kehoe

changeset: 4467:715c3ced8fa8333d59834087c41ddc5ca28edf7f user: Mike Sperber <sperber(a)deinprogramm.de> date: Sat Apr 12 16:41:38 2008 +0200 files: lisp/ChangeLog lisp/window-xemacs.el description: Use `real-split-window', `real-delete-window' in window-config code. 2008-04-12 Henry S. Thompson <ht(a)inf.ed.ac.uk> * window-xemacs.el (real-split-window, real-delete-window): Define these to the original definitions of `split-window' and `delete-window', and use them in the window-configuration code to make sure it doesn't get affected by advice to these functions. diff -r e7b3a3266356537ddd9926ac0aadf7cb43a49ed6 -r 715c3ced8fa8333d59834087c41ddc5ca28edf7f lisp/ChangeLog --- a/lisp/ChangeLog Thu Apr 10 00:31:27 2008 +0200 +++ b/lisp/ChangeLog Sat Apr 12 16:41:38 2008 +0200 ＠＠ -1,3 +1,10 ＠＠ 2008-04-10 Aidan Kehoe <kehoea＠parhasa +2008-04-12 Henry S. Thompson <ht(a)inf.ed.ac.uk> + + * window-xemacs.el (real-split-window, real-delete-window): Define + these to the original definitions of `split-window' and + `delete-window', and use them in the window-configuration code to + make sure it doesn't get affected by advice to these functions. + 2008-04-10 Aidan Kehoe <kehoea(a)parhasard.net> * help.el (describe-function-1): diff -r e7b3a3266356537ddd9926ac0aadf7cb43a49ed6 -r 715c3ced8fa8333d59834087c41ddc5ca28edf7f lisp/window-xemacs.el --- a/lisp/window-xemacs.el Thu Apr 10 00:31:27 2008 +0200 +++ b/lisp/window-xemacs.el Sat Apr 12 16:41:38 2008 +0200 ＠＠ -134,6 +134,10 ＠＠ if a window manager employing virtual de minibuffer-pixel-height min-width min-height saved-root-window) + +; make sure we don't get affected by harmful advice +(fset 'real-split-window (symbol-function 'split-window)) +(fset 'real-delete-window (symbol-function 'delete-window)) (defun window-configuration-equal (conf-1 conf-2) "Returns a boolean indicating whether the two given configurations ＠＠ -369,7 +373,7 ＠＠ by `current-window-configuration'." (while window (if (window-live-p window) (let ((next (window-next-child window))) - (delete-window window) + (real-delete-window window) (setq window next))))) (cond ((window-first-hchild window) ＠＠ -383,9 +387,9 ＠＠ by `current-window-configuration'." ((and (saved-window-next-child saved-window) (not (saved-window-minibufferp (saved-window-next-child saved-window)))) (cond ((eq direction 'vertical) - (split-window window nil nil)) + (real-split-window window nil nil)) ((eq direction 'horizontal) - (split-window window nil t))) + (real-split-window window nil t))) (if (not (saved-window-minibufferp saved-window)) (restore-saved-window-parameters configuration window saved-window)) (restore-saved-window configuration _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

carbon2-commit: No doc special-case for autoloads; rely on on #'symbol-file instead. 16 years, 7 months

Aidan Kehoe

changeset: 4466:e7b3a3266356537ddd9926ac0aadf7cb43a49ed6 parent: 4462:279739019e5c5b6413cfbce19d365eb91476bd04 user: Aidan Kehoe <kehoea(a)parhasard.net> date: Thu Apr 10 00:31:27 2008 +0200 files: lisp/ChangeLog lisp/help.el description: No doc special-case for autoloads; rely on on #'symbol-file instead. 2008-04-10 Aidan Kehoe <kehoea(a)parhasard.net> * help.el (describe-function-1): Rely on #'symbol-file to tell which file an autoloaded function belongs to, don't special-case them. diff -r 279739019e5c5b6413cfbce19d365eb91476bd04 -r e7b3a3266356537ddd9926ac0aadf7cb43a49ed6 lisp/ChangeLog --- a/lisp/ChangeLog Sat Apr 05 14:37:51 2008 +0200 +++ b/lisp/ChangeLog Thu Apr 10 00:31:27 2008 +0200 ＠＠ -1,3 +1,9 ＠＠ 2008-03-19 Stephen J. Turnbull <stephe +2008-04-10 Aidan Kehoe <kehoea(a)parhasard.net> + + * help.el (describe-function-1): + Rely on #'symbol-file to tell which file an autoloaded function + belongs to, don't special-case them. + 2008-03-19 Stephen J. Turnbull <stephen(a)xemacs.org> * custom.el (custom-theme-reset-internal): Fix call to get (symbol diff -r 279739019e5c5b6413cfbce19d365eb91476bd04 -r e7b3a3266356537ddd9926ac0aadf7cb43a49ed6 lisp/help.el --- a/lisp/help.el Sat Apr 05 14:37:51 2008 +0200 +++ b/lisp/help.el Thu Apr 10 00:31:27 2008 +0200 ＠＠ -1424,8 +1424,6 ＠＠ part of the documentation of internal su (t nil))) (princ "\n") - (if autoload-file - (princ (format " -- autoloads from \"%s\"\n" autoload-file))) (or file-name (setq file-name (symbol-file function))) (when file-name _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

[AC web] New website mirror and some other website changes 16 years, 7 months

Stephen J. Turnbull

APPROVE COMMIT web Index: Download/ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/ChangeLog,v retrieving revision 1.194 diff -u -r1.194 ChangeLog --- Download/ChangeLog 3 Dec 2007 22:22:40 -0000 1.194 +++ Download/ChangeLog 10 May 2008 21:45:31 -0000 ＠＠ -0,0 +1,8 ＠＠ +2008-05-10 Stephen J. Turnbull <stephen(a)xemacs.org> + + * web-mirrors.content: Disable mirrorgeek and articleset listings. + Add releasenotes listing. + + * how-to-mirror-web.content: Add information about XEmacs ITS. + Update estimates of website size. + Index: Download/how-to-mirror-web.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/how-to-mirror-web.content,v retrieving revision 1.9 diff -u -r1.9 how-to-mirror-web.content --- Download/how-to-mirror-web.content 3 Dec 2007 22:22:40 -0000 1.9 +++ Download/how-to-mirror-web.content 10 May 2008 21:45:31 -0000 ＠＠ -32,6 +32,15 ＠＠ webserver, this means using the configuration directive : <code>DirectoryIndex index.html</code>.</li> + + <li>Please create an account on the <a + href="http://tracker.xemacs.org/XEmacs/its/">XEmacs issue + tracker</a>. Use the contact address you supplied when you + registered your mirror. Then set up and save a personal + search for Module: "website" and All text: YOUR_SITE_ADDRESS, + which will allow you to find any issues concerning your site + quickly. (The tracker may become our primary way to + communicate with mirror administrators in the future.)</li> </ul> More requirements may be placed at some point in the future, but ＠＠ -40,8 +49,10 ＠＠ Also note that : <ul> - <li>The web site is approximately 20 megabytes at the time of - writing (January 2001).</li> + <li>The web site iself is approximately 50MB at the time of + writing (May 2008), and perhaps 120MB with all CVS sources and + build products. (If these estimates are wildly wrong for you, + please inform the <a href="mailto:webmaster＠xemacs.org">webmaster</a>.)</li> <li>We highly recommend that you run your mirroring software between midnight and 4am US Eastern Standard Time (4am-8am GMT), Index: Download/web-mirrors.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/Download/web-mirrors.content,v retrieving revision 1.31 diff -u -r1.31 web-mirrors.content --- Download/web-mirrors.content 3 Dec 2007 21:05:23 -0000 1.31 +++ Download/web-mirrors.content 10 May 2008 21:45:31 -0000 ＠＠ -30,11 +30,13 ＠＠ <ul> <li><a href="http://www.us.xemacs.org/">http://www.us.xemacs.org/</a></li>  - <li><a href="http://www.mirrorgeek.com/xemacs.org/">http://www.mirrorgeek.com/xe...> - <li><a href="http://xemacs.articleset.com/">http://xemacs.articleset.com/</a></li> +  +   <li><a href="http://xemacs.siamwebhosting.com/">http://xemacs.siamwebhosting.com...> <li><a href="http://xemacs.site2nd.org/">http://xemacs.site2nd.org/</a></li> +  + <li><a href="http://mirrors.releasenotes.org/xemacs/">http://mirrors.releasenote...> </ul> </li> </ul> _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

correct the wrong info node setting in dired-describe-mode 16 years, 7 months

FKtPp

hi all, The following patch makes the 'C-u h' works in dired mode. since xemacs didn't ship a separated dired.info, we have to use (info "(xemacs)Dired") instead of (info "dired"). --- dired-help.el.orig 2008-05-09 09:46:05.171875000 +0800 +++ dired-help.el 2008-05-09 09:47:39.468750000 +0800 ＠＠ -232,7 +232,8 ＠＠ (interactive "P") ;; Getting dired documentation can be a bit slow. (if info - (info "dired") + ;; XEmacs specific, xemacs do not have a separate dired.info + (info "(xemacs)Dired") (message "Building dired help...") (let* ((buff (get-buffer-create "*Help*")) (standard-output buff) ____________________________________________________________________________________ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

2 participants
1 comments

commit: Call AC_SUBST on SHEBANG_PATHNAME, for #! support. 16 years, 7 months

Aidan Kehoe

changeset: 4449:13ce402e1736d4183b639aae50e08063d5056640 user: Aidan Kehoe <kehoea(a)parhasard.net> date: Wed May 07 21:17:59 2008 +0200 files: ChangeLog Makefile.in.in configure configure.ac description: Call AC_SUBST on SHEBANG_PATHNAME, for #! support. 2008-05-07 Aidan Kehoe <kehoea(a)parhasard.net> * configure.ac (XE_EXPAND_VARIABLE): Call AC_SUBST on SHEBANG_PATHNAME, as suggested by Michael Sperber in y9ly7aj1wfc.fsf(a)deinprogramm.de. * Makefile.in.in: Regenerate. * configure: Ditto. diff -r fd8a9a4d81d944bffd5a1c3258dab652470b27d4 -r 13ce402e1736d4183b639aae50e08063d5056640 ChangeLog --- a/ChangeLog Sun Jan 20 19:53:54 2008 +0100 +++ b/ChangeLog Wed May 07 21:17:59 2008 +0200 ＠＠ -1,3 +1,11 ＠＠ 2008-01-20 Aidan Kehoe <kehoea＠parhasa +2008-05-07 Aidan Kehoe <kehoea(a)parhasard.net> + + * configure.ac (XE_EXPAND_VARIABLE): Call AC_SUBST on + SHEBANG_PATHNAME, as suggested by Michael Sperber in + y9ly7aj1wfc.fsf(a)deinprogramm.de. + * Makefile.in.in: Regenerate. + * configure: Ditto. + 2008-01-20 Aidan Kehoe <kehoea(a)parhasard.net> * Makefile.in.in (SHEBANG_PROGNAME): diff -r fd8a9a4d81d944bffd5a1c3258dab652470b27d4 -r 13ce402e1736d4183b639aae50e08063d5056640 Makefile.in.in --- a/Makefile.in.in Sun Jan 20 19:53:54 2008 +0100 +++ b/Makefile.in.in Wed May 07 21:17:59 2008 +0200 ＠＠ -413,7 +413,7 ＠＠ install-arch-dep: mkdir ${INSTALL_PROGRAM} src/${PROGNAME} ${bindir}/${PROGNAME}-${version} -chmod 0755 ${bindir}/${PROGNAME}-${version} cd ${bindir} && $(RM) ./${PROGNAME} && ${LN_S} ${PROGNAME}-${version} ./${PROGNAME} - cd ${bindir} && $(RM) ./${SHEBANG_PROGNAME} && ${LN_S} ${PROGNAME}-${version}.exe ./${SHEBANG_PROGNAME} + cd ${bindir} && $(RM) ./${SHEBANG_PROGNAME} && ${LN_S} ${PROGNAME}-${version} ./${SHEBANG_PROGNAME} # endif /* CYGWIN */ #endif /* WIN32_NATIVE */ if test "${prefix}" != "${exec_prefix}"; then \ diff -r fd8a9a4d81d944bffd5a1c3258dab652470b27d4 -r 13ce402e1736d4183b639aae50e08063d5056640 configure --- a/configure Sun Jan 20 19:53:54 2008 +0100 +++ b/configure Wed May 07 21:17:59 2008 +0200 ＠＠ -706,6 +706,7 ＠＠ build_cpu build_cpu build_vendor build_os +SHEBANG_PROGNAME configuration CC CFLAGS ＠＠ -4858,6 +4859,8 ＠＠ else SHEBANG_PROGNAME=xemacs-script fi + + cat >>confdefs.h <<_ACEOF #define EMACS_PROGNAME "$PROGNAME" _ACEOF ＠＠ -40455,6 +40458,7 ＠＠ build_cpu!$build_cpu$ac_delim build_cpu!$build_cpu$ac_delim build_vendor!$build_vendor$ac_delim build_os!$build_os$ac_delim +SHEBANG_PROGNAME!$SHEBANG_PROGNAME$ac_delim configuration!$configuration$ac_delim CC!$CC$ac_delim CFLAGS!$CFLAGS$ac_delim ＠＠ -40506,7 +40510,6 ＠＠ ldap_libs!$ldap_libs$ac_delim ldap_libs!$ldap_libs$ac_delim postgresql_libs!$postgresql_libs$ac_delim lwlib_objs!$lwlib_objs$ac_delim -canna_libs!$canna_libs$ac_delim _ACEOF if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 97; then ＠＠ -40548,6 +40551,7 ＠＠ ac_delim='%!_!# ' ac_delim='%!_!# ' for ac_last_try in false false false false false :; do cat >conf$$subs.sed <<_ACEOF +canna_libs!$canna_libs$ac_delim ALLOCA!$ALLOCA$ac_delim have_esd_config!$have_esd_config$ac_delim SRC_SUBDIR_DEPS!$SRC_SUBDIR_DEPS$ac_delim ＠＠ -40624,7 +40628,7 ＠＠ LTLIBOBJS!$LTLIBOBJS$ac_delim LTLIBOBJS!$LTLIBOBJS$ac_delim _ACEOF - if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 74; then + if test `sed -n "s/.*$ac_delim\$/X/p" conf$$subs.sed | grep -c X` = 75; then break elif $ac_last_try; then { { echo "$as_me:$LINENO: error: could not make $CONFIG_STATUS" >&5 diff -r fd8a9a4d81d944bffd5a1c3258dab652470b27d4 -r 13ce402e1736d4183b639aae50e08063d5056640 configure.ac --- a/configure.ac Sun Jan 20 19:53:54 2008 +0100 +++ b/configure.ac Wed May 07 21:17:59 2008 +0200 ＠＠ -1226,6 +1226,8 ＠＠ else SHEBANG_PROGNAME=xemacs-script fi +AC_SUBST(SHEBANG_PROGNAME) + AC_DEFINE_UNQUOTED(EMACS_PROGNAME, "$PROGNAME") AC_DEFINE_UNQUOTED(SHEBANG_PROGNAME, "${PROGNAME}-script") _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

Re: [COMMIT] Support #!, to allow XEmacs to be called as a script interpreter. 16 years, 7 months

Aidan Kehoe

Ar an chéad lá is fiche de mí Eanair, scríobh Michael Sperber: > Aidan Kehoe <kehoea(a)parhasard.net> writes: > > > (where #!/usr/bin/env xemacs --script doesn’t necessarily work, and where > > xemacs-script is a link to the binary), which theirs doesn’t. It also, > > unfortunately, fails because I don’t understand autoconf enough to have > > ＠SHEBANG_PROGNAME＠ actually expanded; when I do a make-install it creates a > > literal /usr/local/bin/＠SHEBANG_PROGNAME＠ link to the XEmacs binary. Help > > appreciated. > > I think you're missing an invocation of AC_SUBST. Yes, that was it--thank you! APPROVE COMMIT NOTE: This patch has been committed. [...] -- ¿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

1 participants
0 comments

[COMMIT] Support windows-1250 on Unix as well as Windows. 16 years, 7 months

Aidan Kehoe

APPROVE COMMIT NOTE: This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net> # Date 1210187205 -7200 # Node ID 15dd5229cea58e9699fb9311493269a4751abb81 # Parent c32b3d10c56b202091a1abe4ad924db6535e847b Support windows-1250 on Unix as well as Windows. 2008-05-07 Aidan Kehoe <kehoea(a)parhasard.net> * mule/latin.el (windows-1250): Add the Central European Windows coding system. * mule/mule-win32-init.el: Don't use the Windows-specific CP1250 implementation, rely on that in latin.el instead. diff -r c32b3d10c56b -r 15dd5229cea5 lisp/ChangeLog --- a/lisp/ChangeLog Sat Apr 26 16:28:44 2008 +0200 +++ b/lisp/ChangeLog Wed May 07 21:06:45 2008 +0200 ＠＠ -1,3 +1,10 ＠＠ 2008-04-13 Henry S. Thompson <ht(a)inf.ed +2008-05-07 Aidan Kehoe <kehoea(a)parhasard.net> + + * mule/latin.el (windows-1250): Add the Central European Windows + coding system. + * mule/mule-win32-init.el: Don't use the Windows-specific CP1250 + implementation, rely on that in latin.el instead. + 2008-04-13 Henry S. Thompson <ht(a)inf.ed.ac.uk>, Mike Sperber <mike(a)xemacs.org> * window-xemacs.el (save-window-excursion/mapping, diff -r c32b3d10c56b -r 15dd5229cea5 lisp/mule/latin.el --- a/lisp/mule/latin.el Sat Apr 26 16:28:44 2008 +0200 +++ b/lisp/mule/latin.el Wed May 07 21:06:45 2008 +0200 ＠＠ -188,6 +188,137 ＠＠ when used to write German (or English, o when used to write German (or English, of course). " '(mnemonic "Latin 2" aliases (iso-latin-2 latin-2))) + +(make-8-bit-coding-system + 'windows-1250 + '((#x80 ?\u20AC) ;; EURO SIGN + (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK + (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK + (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS + (#x86 ?\u2020) ;; DAGGER + (#x87 ?\u2021) ;; DOUBLE DAGGER + (#x89 ?\u2030) ;; PER MILLE SIGN + (#x8A ?\u0160) ;; LATIN CAPITAL LETTER S WITH CARON + (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK + (#x8C ?\u015A) ;; LATIN CAPITAL LETTER S WITH ACUTE + (#x8D ?\u0164) ;; LATIN CAPITAL LETTER T WITH CARON + (#x8E ?\u017D) ;; LATIN CAPITAL LETTER Z WITH CARON + (#x8F ?\u0179) ;; LATIN CAPITAL LETTER Z WITH ACUTE + (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK + (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK + (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK + (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK + (#x95 ?\u2022) ;; BULLET + (#x96 ?\u2013) ;; EN DASH + (#x97 ?\u2014) ;; EM DASH + (#x99 ?\u2122) ;; TRADE MARK SIGN + (#x9A ?\u0161) ;; LATIN SMALL LETTER S WITH CARON + (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK + (#x9C ?\u015B) ;; LATIN SMALL LETTER S WITH ACUTE + (#x9D ?\u0165) ;; LATIN SMALL LETTER T WITH CARON + (#x9E ?\u017E) ;; LATIN SMALL LETTER Z WITH CARON + (#x9F ?\u017A) ;; LATIN SMALL LETTER Z WITH ACUTE + (#xA0 ?\u00A0) ;; NO-BREAK SPACE + (#xA1 ?\u02C7) ;; CARON + (#xA2 ?\u02D8) ;; BREVE + (#xA3 ?\u0141) ;; LATIN CAPITAL LETTER L WITH STROKE + (#xA4 ?\u00A4) ;; CURRENCY SIGN + (#xA5 ?\u0104) ;; LATIN CAPITAL LETTER A WITH OGONEK + (#xA6 ?\u00A6) ;; BROKEN BAR + (#xA7 ?\u00A7) ;; SECTION SIGN + (#xA8 ?\u00A8) ;; DIAERESIS + (#xA9 ?\u00A9) ;; COPYRIGHT SIGN + (#xAA ?\u015E) ;; LATIN CAPITAL LETTER S WITH CEDILLA + (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK + (#xAC ?\u00AC) ;; NOT SIGN + (#xAD ?\u00AD) ;; SOFT HYPHEN + (#xAE ?\u00AE) ;; REGISTERED SIGN + (#xAF ?\u017B) ;; LATIN CAPITAL LETTER Z WITH DOT ABOVE + (#xB0 ?\u00B0) ;; DEGREE SIGN + (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN + (#xB2 ?\u02DB) ;; OGONEK + (#xB3 ?\u0142) ;; LATIN SMALL LETTER L WITH STROKE + (#xB4 ?\u00B4) ;; ACUTE ACCENT + (#xB5 ?\u00B5) ;; MICRO SIGN + (#xB6 ?\u00B6) ;; PILCROW SIGN + (#xB7 ?\u00B7) ;; MIDDLE DOT + (#xB8 ?\u00B8) ;; CEDILLA + (#xB9 ?\u0105) ;; LATIN SMALL LETTER A WITH OGONEK + (#xBA ?\u015F) ;; LATIN SMALL LETTER S WITH CEDILLA + (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK + (#xBC ?\u013D) ;; LATIN CAPITAL LETTER L WITH CARON + (#xBD ?\u02DD) ;; DOUBLE ACUTE ACCENT + (#xBE ?\u013E) ;; LATIN SMALL LETTER L WITH CARON + (#xBF ?\u017C) ;; LATIN SMALL LETTER Z WITH DOT ABOVE + (#xC0 ?\u0154) ;; LATIN CAPITAL LETTER R WITH ACUTE + (#xC1 ?\u00C1) ;; LATIN CAPITAL LETTER A WITH ACUTE + (#xC2 ?\u00C2) ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX + (#xC3 ?\u0102) ;; LATIN CAPITAL LETTER A WITH BREVE + (#xC4 ?\u00C4) ;; LATIN CAPITAL LETTER A WITH DIAERESIS + (#xC5 ?\u0139) ;; LATIN CAPITAL LETTER L WITH ACUTE + (#xC6 ?\u0106) ;; LATIN CAPITAL LETTER C WITH ACUTE + (#xC7 ?\u00C7) ;; LATIN CAPITAL LETTER C WITH CEDILLA + (#xC8 ?\u010C) ;; LATIN CAPITAL LETTER C WITH CARON + (#xC9 ?\u00C9) ;; LATIN CAPITAL LETTER E WITH ACUTE + (#xCA ?\u0118) ;; LATIN CAPITAL LETTER E WITH OGONEK + (#xCB ?\u00CB) ;; LATIN CAPITAL LETTER E WITH DIAERESIS + (#xCC ?\u011A) ;; LATIN CAPITAL LETTER E WITH CARON + (#xCD ?\u00CD) ;; LATIN CAPITAL LETTER I WITH ACUTE + (#xCE ?\u00CE) ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX + (#xCF ?\u010E) ;; LATIN CAPITAL LETTER D WITH CARON + (#xD0 ?\u0110) ;; LATIN CAPITAL LETTER D WITH STROKE + (#xD1 ?\u0143) ;; LATIN CAPITAL LETTER N WITH ACUTE + (#xD2 ?\u0147) ;; LATIN CAPITAL LETTER N WITH CARON + (#xD3 ?\u00D3) ;; LATIN CAPITAL LETTER O WITH ACUTE + (#xD4 ?\u00D4) ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX + (#xD5 ?\u0150) ;; LATIN CAPITAL LETTER O WITH DOUBLE ACUTE + (#xD6 ?\u00D6) ;; LATIN CAPITAL LETTER O WITH DIAERESIS + (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN + (#xD8 ?\u0158) ;; LATIN CAPITAL LETTER R WITH CARON + (#xD9 ?\u016E) ;; LATIN CAPITAL LETTER U WITH RING ABOVE + (#xDA ?\u00DA) ;; LATIN CAPITAL LETTER U WITH ACUTE + (#xDB ?\u0170) ;; LATIN CAPITAL LETTER U WITH DOUBLE ACUTE + (#xDC ?\u00DC) ;; LATIN CAPITAL LETTER U WITH DIAERESIS + (#xDD ?\u00DD) ;; LATIN CAPITAL LETTER Y WITH ACUTE + (#xDE ?\u0162) ;; LATIN CAPITAL LETTER T WITH CEDILLA + (#xDF ?\u00DF) ;; LATIN SMALL LETTER SHARP S + (#xE0 ?\u0155) ;; LATIN SMALL LETTER R WITH ACUTE + (#xE1 ?\u00E1) ;; LATIN SMALL LETTER A WITH ACUTE + (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX + (#xE3 ?\u0103) ;; LATIN SMALL LETTER A WITH BREVE + (#xE4 ?\u00E4) ;; LATIN SMALL LETTER A WITH DIAERESIS + (#xE5 ?\u013A) ;; LATIN SMALL LETTER L WITH ACUTE + (#xE6 ?\u0107) ;; LATIN SMALL LETTER C WITH ACUTE + (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA + (#xE8 ?\u010D) ;; LATIN SMALL LETTER C WITH CARON + (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE + (#xEA ?\u0119) ;; LATIN SMALL LETTER E WITH OGONEK + (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS + (#xEC ?\u011B) ;; LATIN SMALL LETTER E WITH CARON + (#xED ?\u00ED) ;; LATIN SMALL LETTER I WITH ACUTE + (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX + (#xEF ?\u010F) ;; LATIN SMALL LETTER D WITH CARON + (#xF0 ?\u0111) ;; LATIN SMALL LETTER D WITH STROKE + (#xF1 ?\u0144) ;; LATIN SMALL LETTER N WITH ACUTE + (#xF2 ?\u0148) ;; LATIN SMALL LETTER N WITH CARON + (#xF3 ?\u00F3) ;; LATIN SMALL LETTER O WITH ACUTE + (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX + (#xF5 ?\u0151) ;; LATIN SMALL LETTER O WITH DOUBLE ACUTE + (#xF6 ?\u00F6) ;; LATIN SMALL LETTER O WITH DIAERESIS + (#xF7 ?\u00F7) ;; DIVISION SIGN + (#xF8 ?\u0159) ;; LATIN SMALL LETTER R WITH CARON + (#xF9 ?\u016F) ;; LATIN SMALL LETTER U WITH RING ABOVE + (#xFA ?\u00FA) ;; LATIN SMALL LETTER U WITH ACUTE + (#xFB ?\u0171) ;; LATIN SMALL LETTER U WITH DOUBLE ACUTE + (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS + (#xFD ?\u00FD) ;; LATIN SMALL LETTER Y WITH ACUTE + (#xFE ?\u0163) ;; LATIN SMALL LETTER T WITH CEDILLA + (#xFF ?\u02D9)) ;; DOT ABOVE + "CP 1250, Microsoft's encoding for Central Europe. +See also `iso-8859-2' and `window-1252' for Western Europe. " + '(mnemonic "CP1250" + aliases (cp1250))) + ;; ;; Latin-3 (ISO-8859-3). Esperanto, Maltese and Turkish. Obsolescent. diff -r c32b3d10c56b -r 15dd5229cea5 lisp/mule/mule-win32-init.el --- a/lisp/mule/mule-win32-init.el Sat Apr 26 16:28:44 2008 +0200 +++ b/lisp/mule/mule-win32-init.el Wed May 07 21:06:45 2008 +0200 ＠＠ -153,10 +153,9 ＠＠ as returned by ;; http://blogs.msdn.com/michkap/archive/2005/08/01/446475.aspx ; ("ANSI" 1200 utf-16-little-endian "Unicode (BMP of ISO 10646)") - ("ANSI" 1250 no-conversion "Windows 3.1 Eastern European") - ;; We implement this ourselves, and keeping the same implementation ;; across platforms means behaviour is a bit more consistent. + ; ("ANSI" 1250 no-conversion "Windows 3.1 Eastern European") ; ("ANSI" 1251 no-conversion "Windows 3.1 Cyrillic") ; ("ANSI" 1252 no-conversion "Windows 3.1 US (ANSI)") -- ¿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

1 participants
0 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

XEmacs-Patches May 2008