April 2009 - XEmacs-Patches - XEmacs Mailing List Archives

commit: Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc. 7 years, 6 months

Aidan Kehoe

changeset: 4491:d402d7b18bd88bab41f37a186554f8c1f2f0eaae parent: 4488:6b0000935adc3f79cb189350d6014d4b4aff734e user: Aidan Kehoe <kehoea(a)parhasard.net> date: Tue Aug 05 08:37:17 2008 +0200 files: etc/ChangeLog etc/HELLO lisp/ChangeLog lisp/mule/arabic.el lisp/mule/iso-with-esc.el lisp/mule/mule-category.el lisp/mule/mule-msw-init-late.el lisp/mule/mule-win32-init.el lisp/unicode.el src/ChangeLog src/lisp.h src/mule-charset.c description: Revamp the Arabic support. Create greek-iso-8bit-with-esc, arabic-iso-8bit-with-esc. src/ChangeLog addition: 2008-08-05 Aidan Kehoe <kehoea(a)parhasard.net> * mule-charset.c (complex_vars_of_mule_charset): Remove Vcharset_arabic_iso8859_7. * lisp.h: Remove Vcharset_arabic_iso8859_7. See commentary in lisp/mule/iso-with-esc.el for motivation. lisp/ChangeLog addition: 2008-08-05 Aidan Kehoe <kehoea(a)parhasard.net> * mule/iso-with-esc.el (greek-iso-8bit-with-esc): (arabic-iso-8bit-with-esc): Add these two here. Move the implementation of the 'arabic-iso8859-6 character set here, with commentary on why that is reasonable. * mule/arabic.el (iso-8859-6): Add iso-8859-6, windows-1256 implementations using make-8-bit-coding-system. Remove our non-standard Mule character sets. * unicode.el (load-unicode-tables): Remove Arabic since it's no longer dumped. * mule/mule-msw-init-late.el: Remove Arabic. * mule/mule-category.el (predefined-category-list): Remove Arabic. etc/ChangeLog addition: 2008-08-05 Aidan Kehoe <kehoea(a)parhasard.net> * HELLO: Encode the Arabic using UTF-8 sequences, not ISO-8859-6. diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae etc/ChangeLog --- a/etc/ChangeLog Sat Jul 26 13:50:27 2008 +0300 +++ b/etc/ChangeLog Tue Aug 05 08:37:17 2008 +0200 ＠＠ -1,3 +1,7 ＠＠ 2008-02-21 Stephen J. Turnbull <stephe +2008-08-05 Aidan Kehoe <kehoea(a)parhasard.net> + + * HELLO: Encode the Arabic using UTF-8 sequences, not ISO-8859-6. + 2008-02-21 Stephen J. Turnbull <stephen(a)xemacs.org> * README: Add descriptions of Daniel Polansky's icons. diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae etc/HELLO --- a/etc/HELLO Sat Jul 26 13:50:27 2008 +0300 +++ b/etc/HELLO Tue Aug 05 08:37:17 2008 +0200 ＠＠ -3,7 +3,7 ＠＠ Please correct this incomplete list and --------------------------------------------------------- Amharic ($(3"c!<!N"^(B) $(3!A!,!>(B -Arabic [2](38R(47d(3T!JSa(4W(3W[0](B +Arabic (%Gةّيبرعلا%＠) %Gمكيلع%＠ %Gمالّسلا%＠ Croatian (Hrvatski) Bog (Bok), Dobar dan Czech (,Bh(Besky) Dobr,B}(B den Danish (Dansk) Hej, Goddag diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae lisp/ChangeLog --- a/lisp/ChangeLog Sat Jul 26 13:50:27 2008 +0300 +++ b/lisp/ChangeLog Tue Aug 05 08:37:17 2008 +0200 ＠＠ -1,3 +1,20 ＠＠ 2008-07-26 Aidan Kehoe <kehoea＠parhasa +2008-08-05 Aidan Kehoe <kehoea(a)parhasard.net> + + * mule/iso-with-esc.el (greek-iso-8bit-with-esc): + (arabic-iso-8bit-with-esc): + Add these two here. Move the implementation of the + 'arabic-iso8859-6 character set here, with commentary on why that + is reasonable. + * mule/arabic.el (iso-8859-6): + Add iso-8859-6, windows-1256 implementations using + make-8-bit-coding-system. Remove our non-standard Mule character + sets. + * unicode.el (load-unicode-tables): Remove Arabic since it's no + longer dumped. + * mule/mule-msw-init-late.el: Remove Arabic. + * mule/mule-category.el (predefined-category-list): Remove + Arabic. + 2008-07-26 Aidan Kehoe <kehoea(a)parhasard.net> * x-init.el (x-initialize-compose): diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae lisp/mule/arabic.el --- a/lisp/mule/arabic.el Sat Jul 26 13:50:27 2008 +0300 +++ b/lisp/mule/arabic.el Tue Aug 05 08:37:17 2008 +0200 ＠＠ -28,79 +28,204 ＠＠ ;;; Code: -; (make-charset 'arabic-iso8859-6 -; "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127" -; '(dimension -; 1 -; registry "ISO8859-6" -; chars 96 -; columns 1 -; direction r2l -; final ?G -; graphic 1 -; short-name "RHP of ISO8859/6" -; long-name "RHP of Arabic (ISO 8859-6): ISO-IR-127" -; )) - -;; For Arabic, we need three different types of character sets. -;; Digits are of direction left-to-right and of width 1-column. -;; Others are of direction right-to-left and of width 1-column or -;; 2-column. -(make-charset 'arabic-digit "Arabic digit" - '(dimension 1 - registries ["MuleArabic-0"] - chars 94 - columns 1 - direction l2r - final ?2 - graphic 0 - short-name "Arabic digit" - long-name "Arabic digit" - )) - -(make-charset 'arabic-1-column "Arabic 1-column" - '(dimension - 1 - registries ["MuleArabic-1"] - chars 94 - columns 1 - direction r2l - final ?3 - graphic 0 - short-name "Arabic 1-col" - long-name "Arabic 1-column" - )) - -(make-charset 'arabic-2-column "Arabic 2-column" - '(dimension - 1 - registries ["MuleArabic-2"] - chars 94 - columns 2 - direction r2l - final ?4 - graphic 0 - short-name "Arabic 2-col" - long-name "Arabic 2-column" - )) - -(make-coding-system 'iso-8859-6 'iso2022 - "ISO-8859-6 (Arabic)" - '(charset-g0 ascii - charset-g1 arabic-iso8859-6 - charset-g2 t - charset-g3 t - no-iso6429 t - mnemonic "MIME/Arbc" - )) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; ARABIC -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -;; (define-language-environment 'arabic -;; "Arabic" -;; (lambda () -;; (require 'arabic))) +;; See iso-with-esc.el for commentary on the ISO standard Arabic character +;; set. + +(make-8-bit-coding-system + 'iso-8859-6 + '((#xA0 ?\u00A0) ;; NO-BREAK SPACE + (#xA4 ?\u00A4) ;; CURRENCY SIGN + (#xAC ?\u060C) ;; ARABIC COMMA + (#xAD ?\u00AD) ;; SOFT HYPHEN + (#xBB ?\u061B) ;; ARABIC SEMICOLON + (#xBF ?\u061F) ;; ARABIC QUESTION MARK + (#xC1 ?\u0621) ;; ARABIC LETTER HAMZA + (#xC2 ?\u0622) ;; ARABIC LETTER ALEF WITH MADDA ABOVE + (#xC3 ?\u0623) ;; ARABIC LETTER ALEF WITH HAMZA ABOVE + (#xC4 ?\u0624) ;; ARABIC LETTER WAW WITH HAMZA ABOVE + (#xC5 ?\u0625) ;; ARABIC LETTER ALEF WITH HAMZA BELOW + (#xC6 ?\u0626) ;; ARABIC LETTER YEH WITH HAMZA ABOVE + (#xC7 ?\u0627) ;; ARABIC LETTER ALEF + (#xC8 ?\u0628) ;; ARABIC LETTER BEH + (#xC9 ?\u0629) ;; ARABIC LETTER TEH MARBUTA + (#xCA ?\u062A) ;; ARABIC LETTER TEH + (#xCB ?\u062B) ;; ARABIC LETTER THEH + (#xCC ?\u062C) ;; ARABIC LETTER JEEM + (#xCD ?\u062D) ;; ARABIC LETTER HAH + (#xCE ?\u062E) ;; ARABIC LETTER KHAH + (#xCF ?\u062F) ;; ARABIC LETTER DAL + (#xD0 ?\u0630) ;; ARABIC LETTER THAL + (#xD1 ?\u0631) ;; ARABIC LETTER REH + (#xD2 ?\u0632) ;; ARABIC LETTER ZAIN + (#xD3 ?\u0633) ;; ARABIC LETTER SEEN + (#xD4 ?\u0634) ;; ARABIC LETTER SHEEN + (#xD5 ?\u0635) ;; ARABIC LETTER SAD + (#xD6 ?\u0636) ;; ARABIC LETTER DAD + (#xD7 ?\u0637) ;; ARABIC LETTER TAH + (#xD8 ?\u0638) ;; ARABIC LETTER ZAH + (#xD9 ?\u0639) ;; ARABIC LETTER AIN + (#xDA ?\u063A) ;; ARABIC LETTER GHAIN + (#xE0 ?\u0640) ;; ARABIC TATWEEL + (#xE1 ?\u0641) ;; ARABIC LETTER FEH + (#xE2 ?\u0642) ;; ARABIC LETTER QAF + (#xE3 ?\u0643) ;; ARABIC LETTER KAF + (#xE4 ?\u0644) ;; ARABIC LETTER LAM + (#xE5 ?\u0645) ;; ARABIC LETTER MEEM + (#xE6 ?\u0646) ;; ARABIC LETTER NOON + (#xE7 ?\u0647) ;; ARABIC LETTER HEH + (#xE8 ?\u0648) ;; ARABIC LETTER WAW + (#xE9 ?\u0649) ;; ARABIC LETTER ALEF MAKSURA + (#xEA ?\u064A) ;; ARABIC LETTER YEH + (#xEB ?\u064B) ;; ARABIC FATHATAN + (#xEC ?\u064C) ;; ARABIC DAMMATAN + (#xED ?\u064D) ;; ARABIC KASRATAN + (#xEE ?\u064E) ;; ARABIC FATHA + (#xEF ?\u064F) ;; ARABIC DAMMA + (#xF0 ?\u0650) ;; ARABIC KASRA + (#xF1 ?\u0651) ;; ARABIC SHADDA + (#xF2 ?\u0652)) ;; ARABIC SUKUN + "ISO 8859-6 (Arabic)" +'(mnemonic "ArISO")) + +(make-8-bit-coding-system + 'windows-1256 + '((#x80 ?\u20AC) ;; EURO SIGN + (#x81 ?\u067E) ;; ARABIC LETTER PEH + (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK + (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK + (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK + (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS + (#x86 ?\u2020) ;; DAGGER + (#x87 ?\u2021) ;; DOUBLE DAGGER + (#x88 ?\u02C6) ;; MODIFIER LETTER CIRCUMFLEX ACCENT + (#x89 ?\u2030) ;; PER MILLE SIGN + (#x8A ?\u0679) ;; ARABIC LETTER TTEH + (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK + (#x8C ?\u0152) ;; LATIN CAPITAL LIGATURE OE + (#x8D ?\u0686) ;; ARABIC LETTER TCHEH + (#x8E ?\u0698) ;; ARABIC LETTER JEH + (#x8F ?\u0688) ;; ARABIC LETTER DDAL + (#x90 ?\u06AF) ;; ARABIC LETTER GAF + (#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 + (#x98 ?\u06A9) ;; ARABIC LETTER KEHEH + (#x99 ?\u2122) ;; TRADE MARK SIGN + (#x9A ?\u0691) ;; ARABIC LETTER RREH + (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK + (#x9C ?\u0153) ;; LATIN SMALL LIGATURE OE + (#x9D ?\u200C) ;; ZERO WIDTH NON-JOINER + (#x9E ?\u200D) ;; ZERO WIDTH JOINER + (#x9F ?\u06BA) ;; ARABIC LETTER NOON GHUNNA + (#xA0 ?\u00A0) ;; NO-BREAK SPACE + (#xA1 ?\u060C) ;; ARABIC COMMA + (#xA2 ?\u00A2) ;; CENT SIGN + (#xA3 ?\u00A3) ;; POUND SIGN + (#xA4 ?\u00A4) ;; CURRENCY SIGN + (#xA5 ?\u00A5) ;; YEN SIGN + (#xA6 ?\u00A6) ;; BROKEN BAR + (#xA7 ?\u00A7) ;; SECTION SIGN + (#xA8 ?\u00A8) ;; DIAERESIS + (#xA9 ?\u00A9) ;; COPYRIGHT SIGN + (#xAA ?\u06BE) ;; ARABIC LETTER HEH DOACHASHMEE + (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK + (#xAC ?\u00AC) ;; NOT SIGN + (#xAD ?\u00AD) ;; SOFT HYPHEN + (#xAE ?\u00AE) ;; REGISTERED SIGN + (#xAF ?\u00AF) ;; MACRON + (#xB0 ?\u00B0) ;; DEGREE SIGN + (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN + (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO + (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE + (#xB4 ?\u00B4) ;; ACUTE ACCENT + (#xB5 ?\u00B5) ;; MICRO SIGN + (#xB6 ?\u00B6) ;; PILCROW SIGN + (#xB7 ?\u00B7) ;; MIDDLE DOT + (#xB8 ?\u00B8) ;; CEDILLA + (#xB9 ?\u00B9) ;; SUPERSCRIPT ONE + (#xBA ?\u061B) ;; ARABIC SEMICOLON + (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK + (#xBC ?\u00BC) ;; VULGAR FRACTION ONE QUARTER + (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF + (#xBE ?\u00BE) ;; VULGAR FRACTION THREE QUARTERS + (#xBF ?\u061F) ;; ARABIC QUESTION MARK + (#xC0 ?\u06C1) ;; ARABIC LETTER HEH GOAL + (#xC1 ?\u0621) ;; ARABIC LETTER HAMZA + (#xC2 ?\u0622) ;; ARABIC LETTER ALEF WITH MADDA ABOVE + (#xC3 ?\u0623) ;; ARABIC LETTER ALEF WITH HAMZA ABOVE + (#xC4 ?\u0624) ;; ARABIC LETTER WAW WITH HAMZA ABOVE + (#xC5 ?\u0625) ;; ARABIC LETTER ALEF WITH HAMZA BELOW + (#xC6 ?\u0626) ;; ARABIC LETTER YEH WITH HAMZA ABOVE + (#xC7 ?\u0627) ;; ARABIC LETTER ALEF + (#xC8 ?\u0628) ;; ARABIC LETTER BEH + (#xC9 ?\u0629) ;; ARABIC LETTER TEH MARBUTA + (#xCA ?\u062A) ;; ARABIC LETTER TEH + (#xCB ?\u062B) ;; ARABIC LETTER THEH + (#xCC ?\u062C) ;; ARABIC LETTER JEEM + (#xCD ?\u062D) ;; ARABIC LETTER HAH + (#xCE ?\u062E) ;; ARABIC LETTER KHAH + (#xCF ?\u062F) ;; ARABIC LETTER DAL + (#xD0 ?\u0630) ;; ARABIC LETTER THAL + (#xD1 ?\u0631) ;; ARABIC LETTER REH + (#xD2 ?\u0632) ;; ARABIC LETTER ZAIN + (#xD3 ?\u0633) ;; ARABIC LETTER SEEN + (#xD4 ?\u0634) ;; ARABIC LETTER SHEEN + (#xD5 ?\u0635) ;; ARABIC LETTER SAD + (#xD6 ?\u0636) ;; ARABIC LETTER DAD + (#xD7 ?\u00D7) ;; MULTIPLICATION SIGN + (#xD8 ?\u0637) ;; ARABIC LETTER TAH + (#xD9 ?\u0638) ;; ARABIC LETTER ZAH + (#xDA ?\u0639) ;; ARABIC LETTER AIN + (#xDB ?\u063A) ;; ARABIC LETTER GHAIN + (#xDC ?\u0640) ;; ARABIC TATWEEL + (#xDD ?\u0641) ;; ARABIC LETTER FEH + (#xDE ?\u0642) ;; ARABIC LETTER QAF + (#xDF ?\u0643) ;; ARABIC LETTER KAF + (#xE0 ?\u00E0) ;; LATIN SMALL LETTER A WITH GRAVE + (#xE1 ?\u0644) ;; ARABIC LETTER LAM + (#xE2 ?\u00E2) ;; LATIN SMALL LETTER A WITH CIRCUMFLEX + (#xE3 ?\u0645) ;; ARABIC LETTER MEEM + (#xE4 ?\u0646) ;; ARABIC LETTER NOON + (#xE5 ?\u0647) ;; ARABIC LETTER HEH + (#xE6 ?\u0648) ;; ARABIC LETTER WAW + (#xE7 ?\u00E7) ;; LATIN SMALL LETTER C WITH CEDILLA + (#xE8 ?\u00E8) ;; LATIN SMALL LETTER E WITH GRAVE + (#xE9 ?\u00E9) ;; LATIN SMALL LETTER E WITH ACUTE + (#xEA ?\u00EA) ;; LATIN SMALL LETTER E WITH CIRCUMFLEX + (#xEB ?\u00EB) ;; LATIN SMALL LETTER E WITH DIAERESIS + (#xEC ?\u0649) ;; ARABIC LETTER ALEF MAKSURA + (#xED ?\u064A) ;; ARABIC LETTER YEH + (#xEE ?\u00EE) ;; LATIN SMALL LETTER I WITH CIRCUMFLEX + (#xEF ?\u00EF) ;; LATIN SMALL LETTER I WITH DIAERESIS + (#xF0 ?\u064B) ;; ARABIC FATHATAN + (#xF1 ?\u064C) ;; ARABIC DAMMATAN + (#xF2 ?\u064D) ;; ARABIC KASRATAN + (#xF3 ?\u064E) ;; ARABIC FATHA + (#xF4 ?\u00F4) ;; LATIN SMALL LETTER O WITH CIRCUMFLEX + (#xF5 ?\u064F) ;; ARABIC DAMMA + (#xF6 ?\u0650) ;; ARABIC KASRA + (#xF7 ?\u00F7) ;; DIVISION SIGN + (#xF8 ?\u0651) ;; ARABIC SHADDA + (#xF9 ?\u00F9) ;; LATIN SMALL LETTER U WITH GRAVE + (#xFA ?\u0652) ;; ARABIC SUKUN + (#xFB ?\u00FB) ;; LATIN SMALL LETTER U WITH CIRCUMFLEX + (#xFC ?\u00FC) ;; LATIN SMALL LETTER U WITH DIAERESIS + (#xFD ?\u200E) ;; LEFT-TO-RIGHT MARK + (#xFE ?\u200F) ;; RIGHT-TO-LEFT MARK + (#xFF ?\u06D2));; ARABIC LETTER YEH BARREE + "Windows-1256 (Arabic)" + '(mnemonic "cp1256" + documentation + "This is the much Windows encoding for Arabic, much superior to the ISO +standard one." + aliases (cp1256))) + +;; The Mac Arabic coding systems don't have defined MIME names. + +;; #### Decide what to do about the syntax of the Arabic punctuation. ;;; arabic.el ends here diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae lisp/mule/iso-with-esc.el --- a/lisp/mule/iso-with-esc.el Sat Jul 26 13:50:27 2008 +0300 +++ b/lisp/mule/iso-with-esc.el Tue Aug 05 08:37:17 2008 +0200 ＠＠ -98,3 +98,108 ＠＠ charset-g3 t no-iso6429 t mnemonic "MIME/Hbrw")) + +;;;###autoload +(make-coding-system + 'greek-iso-8bit-with-esc 'iso2022 "MIME ISO-8859-7" + '(charset-g0 ascii + charset-g1 greek-iso8859-7 + charset-g2 t + charset-g3 t + mnemonic "Grk")) + +;; ISO 8859-6 is such a useless character set that it seems a waste of +;; codespace to dump it. Let me count the ways: +;; +;; 1. It doesn't support Persian or Urdu, let alone Sinhalese, despite +;; plenty of unallocated code points. +;; +;; 2. It doesn't encode all the vowel diacritics (the Harakaat) despite that +;; they are necessary, even for the Arabs, for basic things like +;; dictionary entries, children's books, and occasional disambiguation. +;; +;; 3. The Arabs don't use it, they use Windows-1256, which also supports +;; Persian, at least, as well as the French characters necessary in +;; Lebanon and North Africa. + +(make-charset + 'arabic-iso8859-6 + "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127" + '(dimension 1 + registry "ISO8859-6" + chars 96 + columns 1 + direction r2l + final ?G + graphic 1 + short-name "RHP of ISO8859/6" + long-name "RHP of Arabic (ISO 8859-6): ISO-IR-127")) + +(loop + for (iso8859-6 unicode) + in '((#xA0 #x00A0) ;; NO-BREAK SPACE + (#xA4 #x00A4) ;; CURRENCY SIGN + (#xAC #x060C) ;; ARABIC COMMA + (#xAD #x00AD) ;; SOFT HYPHEN + (#xBB #x061B) ;; ARABIC SEMICOLON + (#xBF #x061F) ;; ARABIC QUESTION MARK + (#xC1 #x0621) ;; ARABIC LETTER HAMZA + (#xC2 #x0622) ;; ARABIC LETTER ALEF WITH MADDA ABOVE + (#xC3 #x0623) ;; ARABIC LETTER ALEF WITH HAMZA ABOVE + (#xC4 #x0624) ;; ARABIC LETTER WAW WITH HAMZA ABOVE + (#xC5 #x0625) ;; ARABIC LETTER ALEF WITH HAMZA BELOW + (#xC6 #x0626) ;; ARABIC LETTER YEH WITH HAMZA ABOVE + (#xC7 #x0627) ;; ARABIC LETTER ALEF + (#xC8 #x0628) ;; ARABIC LETTER BEH + (#xC9 #x0629) ;; ARABIC LETTER TEH MARBUTA + (#xCA #x062A) ;; ARABIC LETTER TEH + (#xCB #x062B) ;; ARABIC LETTER THEH + (#xCC #x062C) ;; ARABIC LETTER JEEM + (#xCD #x062D) ;; ARABIC LETTER HAH + (#xCE #x062E) ;; ARABIC LETTER KHAH + (#xCF #x062F) ;; ARABIC LETTER DAL + (#xD0 #x0630) ;; ARABIC LETTER THAL + (#xD1 #x0631) ;; ARABIC LETTER REH + (#xD2 #x0632) ;; ARABIC LETTER ZAIN + (#xD3 #x0633) ;; ARABIC LETTER SEEN + (#xD4 #x0634) ;; ARABIC LETTER SHEEN + (#xD5 #x0635) ;; ARABIC LETTER SAD + (#xD6 #x0636) ;; ARABIC LETTER DAD + (#xD7 #x0637) ;; ARABIC LETTER TAH + (#xD8 #x0638) ;; ARABIC LETTER ZAH + (#xD9 #x0639) ;; ARABIC LETTER AIN + (#xDA #x063A) ;; ARABIC LETTER GHAIN + (#xE0 #x0640) ;; ARABIC TATWEEL + (#xE1 #x0641) ;; ARABIC LETTER FEH + (#xE2 #x0642) ;; ARABIC LETTER QAF + (#xE3 #x0643) ;; ARABIC LETTER KAF + (#xE4 #x0644) ;; ARABIC LETTER LAM + (#xE5 #x0645) ;; ARABIC LETTER MEEM + (#xE6 #x0646) ;; ARABIC LETTER NOON + (#xE7 #x0647) ;; ARABIC LETTER HEH + (#xE8 #x0648) ;; ARABIC LETTER WAW + (#xE9 #x0649) ;; ARABIC LETTER ALEF MAKSURA + (#xEA #x064A) ;; ARABIC LETTER YEH + (#xEB #x064B) ;; ARABIC FATHATAN + (#xEC #x064C) ;; ARABIC DAMMATAN + (#xED #x064D) ;; ARABIC KASRATAN + (#xEE #x064E) ;; ARABIC FATHA + (#xEF #x064F) ;; ARABIC DAMMA + (#xF0 #x0650) ;; ARABIC KASRA + (#xF1 #x0651) ;; ARABIC SHADDA + (#xF2 #x0652));; ARABIC SUKUN + do (set-unicode-conversion (make-char 'arabic-iso8859-6 iso8859-6) + unicode)) + +;;;###autoload +(make-coding-system + 'arabic-iso-8bit-with-esc 'iso2022 ;; GNU's iso-8859-6 is + ;; iso2022-compatible. + "ISO-8859-6 (Arabic)" + '(charset-g0 ascii + charset-g1 arabic-iso8859-6 + charset-g2 t + charset-g3 t + no-iso6429 t + mnemonic "MIME/Arbc")) + diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae lisp/mule/mule-category.el --- a/lisp/mule/mule-category.el Sat Jul 26 13:50:27 2008 +0300 +++ b/lisp/mule/mule-category.el Tue Aug 05 08:37:17 2008 +0200 ＠＠ -244,7 +244,6 ＠＠ The descriptions are inserted in a buffe (latin-iso8859-4 ?l) (latin-iso8859-9 ?l) (cyrillic-iso8859-5 ?y "Cyrillic character set") - (arabic-iso8859-6 ?b "Arabic character set") (greek-iso8859-7 ?g "Greek character set") (hebrew-iso8859-8 ?w "Hebrew character set") (katakana-jisx0201 ?k "Japanese 1-byte Katakana character set") diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae lisp/mule/mule-msw-init-late.el --- a/lisp/mule/mule-msw-init-late.el Sat Jul 26 13:50:27 2008 +0300 +++ b/lisp/mule/mule-msw-init-late.el Tue Aug 05 08:37:17 2008 +0200 ＠＠ -37,7 +37,6 ＠＠ (greek-iso8859-7 . "Greek") (latin-iso8859-9 . "Turkish") (hebrew-iso8859-8 . "Hebrew") - (arabic-iso8859-6 . "Arabic") (latin-iso8859-4 . "Baltic") (vietnamese-viscii-lower . "Viet Nam") (vietnamese-viscii-upper . "Viet Nam") diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae lisp/mule/mule-win32-init.el --- a/lisp/mule/mule-win32-init.el Sat Jul 26 13:50:27 2008 +0300 +++ b/lisp/mule/mule-win32-init.el Tue Aug 05 08:37:17 2008 +0200 ＠＠ -162,7 +162,8 ＠＠ as returned by ; ("ANSI" 1253 no-conversion "Windows 3.1 Greek") ("ANSI" 1254 no-conversion "Windows 3.1 Turkish") ("ANSI" 1255 no-conversion "Hebrew") - ("ANSI" 1256 no-conversion "Arabic") + ;; We implement these ourselves. + ; ("ANSI" 1256 no-conversion "Arabic") ("ANSI" 1257 no-conversion "Baltic") ("ANSI" 1258 no-conversion "VietNam") ;; #### Is this category right? I don't have Lunde to hand, and the diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae lisp/unicode.el --- a/lisp/unicode.el Sat Jul 26 13:50:27 2008 +0300 +++ b/lisp/unicode.el Tue Aug 05 08:37:17 2008 +0200 ＠＠ -73,7 +73,6 ＠＠ Setting this at run-time does nothing.") ("8859-3.TXT" latin-iso8859-3 #xA0 #xFF #x-80) ("8859-4.TXT" latin-iso8859-4 #xA0 #xFF #x-80) ("8859-5.TXT" cyrillic-iso8859-5 #xA0 #xFF #x-80) - ("8859-6.TXT" arabic-iso8859-6 #xA0 #xFF #x-80) ("8859-7.TXT" greek-iso8859-7 #xA0 #xFF #x-80) ("8859-8.TXT" hebrew-iso8859-8 #xA0 #xFF #x-80) ("8859-9.TXT" latin-iso8859-9 #xA0 #xFF #x-80) ＠＠ -154,12 +153,12 ＠＠ Setting this at run-time does nothing.") '(ascii control-1 latin-iso8859-1 latin-iso8859-2 latin-iso8859-15 greek-iso8859-7 hebrew-iso8859-8 ipa cyrillic-iso8859-5 latin-iso8859-16 latin-iso8859-3 latin-iso8859-4 latin-iso8859-9 - vietnamese-viscii-lower vietnamese-viscii-upper arabic-iso8859-6 + vietnamese-viscii-lower vietnamese-viscii-upper jit-ucs-charset-0 japanese-jisx0208 japanese-jisx0208-1978 japanese-jisx0212 japanese-jisx0213-1 japanese-jisx0213-2 chinese-gb2312 chinese-sisheng chinese-big5-1 chinese-big5-2 indian-is13194 korean-ksc5601 chinese-cns11643-1 chinese-cns11643-2 - chinese-isoir165 arabic-1-column arabic-2-column arabic-digit + chinese-isoir165 composite ethiopic indian-1-column indian-2-column jit-ucs-charset-0 katakana-jisx0201 lao thai-tis620 thai-xtis tibetan tibetan-1-column latin-jisx0201 chinese-cns11643-3 chinese-cns11643-4 diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae src/ChangeLog --- a/src/ChangeLog Sat Jul 26 13:50:27 2008 +0300 +++ b/src/ChangeLog Tue Aug 05 08:37:17 2008 +0200 ＠＠ -1,3 +1,10 ＠＠ 2008-07-20 John Paul Wallington <jpw＠p +2008-08-05 Aidan Kehoe <kehoea(a)parhasard.net> + + * mule-charset.c (complex_vars_of_mule_charset): + Remove Vcharset_arabic_iso8859_7. + * lisp.h: Remove Vcharset_arabic_iso8859_7. + See commentary in lisp/mule/iso-with-esc.el for motivation. + 2008-07-20 John Paul Wallington <jpw(a)pobox.com> * nt.c (Fmswindows_short_file_name, Fmswindows_long_file_name): diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae src/lisp.h --- a/src/lisp.h Sat Jul 26 13:50:27 2008 +0300 +++ b/src/lisp.h Tue Aug 05 08:37:17 2008 +0200 ＠＠ -5229,7 +5229,6 ＠＠ extern Lisp_Object Vcharset_latin_iso885 extern Lisp_Object Vcharset_latin_iso8859_4; extern Lisp_Object Vcharset_thai_tis620; extern Lisp_Object Vcharset_greek_iso8859_7; -extern Lisp_Object Vcharset_arabic_iso8859_6; extern Lisp_Object Vcharset_hebrew_iso8859_8; extern Lisp_Object Vcharset_katakana_jisx0201; extern Lisp_Object Vcharset_latin_jisx0201; diff -r 6b0000935adc3f79cb189350d6014d4b4aff734e -r d402d7b18bd88bab41f37a186554f8c1f2f0eaae src/mule-charset.c --- a/src/mule-charset.c Sat Jul 26 13:50:27 2008 +0300 +++ b/src/mule-charset.c Tue Aug 05 08:37:17 2008 +0200 ＠＠ -47,7 +47,6 ＠＠ Lisp_Object Vcharset_latin_iso8859_4; Lisp_Object Vcharset_latin_iso8859_4; Lisp_Object Vcharset_thai_tis620; Lisp_Object Vcharset_greek_iso8859_7; -Lisp_Object Vcharset_arabic_iso8859_6; Lisp_Object Vcharset_hebrew_iso8859_8; Lisp_Object Vcharset_katakana_jisx0201; Lisp_Object Vcharset_latin_jisx0201; ＠＠ -94,7 +93,6 ＠＠ Lisp_Object Qlatin_iso8859_4, Qthai_tis620, Qgreek_iso8859_7, - Qarabic_iso8859_6, Qhebrew_iso8859_8, Qkatakana_jisx0201, Qlatin_jisx0201, ＠＠ -1112,7 +1110,6 ＠＠ syms_of_mule_charset (void) DEFSYMBOL (Qlatin_iso8859_4); DEFSYMBOL (Qthai_tis620); DEFSYMBOL (Qgreek_iso8859_7); - DEFSYMBOL (Qarabic_iso8859_6); DEFSYMBOL (Qhebrew_iso8859_8); DEFSYMBOL (Qkatakana_jisx0201); DEFSYMBOL (Qlatin_jisx0201); ＠＠ -1236,15 +1233,6 ＠＠ complex_vars_of_mule_charset (void) build_msg_string ("ISO8859-7 (Greek)"), build_msg_string ("ISO8859-7 (Greek)"), vector1(build_string("iso8859-7")), 0, 0); - staticpro (&Vcharset_arabic_iso8859_6); - Vcharset_arabic_iso8859_6 = - make_charset (LEADING_BYTE_ARABIC_ISO8859_6, Qarabic_iso8859_6, 2, - CHARSET_TYPE_96, 1, 1, 'G', - CHARSET_RIGHT_TO_LEFT, - build_string ("ISO8859-6"), - build_msg_string ("ISO8859-6 (Arabic)"), - build_msg_string ("ISO8859-6 (Arabic)"), - vector1(build_string ("iso8859-6")), 0, 0); staticpro (&Vcharset_hebrew_iso8859_8); Vcharset_hebrew_iso8859_8 = make_charset (LEADING_BYTE_HEBREW_ISO8859_8, Qhebrew_iso8859_8, 2, _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit: Automated merge with ssh://aidan-guest@hg.debian.org//hg/xemacs/xemacs 7 years, 8 months

Aidan Kehoe

changeset: 4365:c9ab656691c04f41c53df820c0a83e4ee36f5177 tag: tip parent: 4364:d74913294e8794f2d973faf8af11028702444873 parent: 4362:f5693b5f7f2d6198ebb86a8983b786e62b3d4c05 user: Aidan Kehoe <kehoea(a)parhasard.net> date: Thu Dec 27 13:22:26 2007 +0100 files: lisp/ChangeLog description: Automated merge with ssh://aidan-guest＠hg.debian.org//hg/xemacs/xemacs diff -r d74913294e8794f2d973faf8af11028702444873 -r c9ab656691c04f41c53df820c0a83e4ee36f5177 ChangeLog --- a/ChangeLog Thu Dec 27 13:21:05 2007 +0100 +++ b/ChangeLog Thu Dec 27 13:22:26 2007 +0100 ＠＠ -1,6 +1,11 ＠＠ 2007-12-26 Stephen J. Turnbull <stephe 2007-12-26 Stephen J. Turnbull <stephen(a)xemacs.org> + * Makefile.in.in (mkpkgdir): Ensure only one late package directory. + +2007-12-26 Stephen J. Turnbull <stephen(a)xemacs.org> + * Makefile.in.in (check-available-packages): Say where to install. + (mkpkgdir): 2007-12-23 Stephen J. Turnbull <stephen(a)xemacs.org> diff -r d74913294e8794f2d973faf8af11028702444873 -r c9ab656691c04f41c53df820c0a83e4ee36f5177 Makefile.in.in --- a/Makefile.in.in Thu Dec 27 13:21:05 2007 +0100 +++ b/Makefile.in.in Thu Dec 27 13:22:26 2007 +0100 ＠＠ -513,11 +513,18 ＠＠ check-available-packages: then echo "To install the full set of packages with mule in"; \ echo "${package_path}/mule-packages, type:"; \ echo " make install-all-packages"; \ - fi; + fi + +# The test for a non-trivial path simply checks for the conventional Unix +# path separator ":". This is reasonable because this is basically just +# a convenience feature, anyway. mkpkgdir: FRC.mkdir ${MAKEPATH} ＠if test -z ${package_path}; \ - then echo "not configured --with-late-packages; no place to install."; \ + then echo "Not configured --with-late-packages; no place to install."; \ + exit -1; \ + elif echo ${package_path} | grep ":"; \ + then echo "Configured with multiple late package directories; you decide where to install."; \ exit -1; \ elif test -e ${package_path}/xemacs-packages \ -o -e ${package_path}/mule-packages; \ diff -r d74913294e8794f2d973faf8af11028702444873 -r c9ab656691c04f41c53df820c0a83e4ee36f5177 etc/ChangeLog --- a/etc/ChangeLog Thu Dec 27 13:21:05 2007 +0100 +++ b/etc/ChangeLog Thu Dec 27 13:22:26 2007 +0100 ＠＠ -1,3 +1,7 ＠＠ 2007-12-23 Stephen J. Turnbull <stephe +2007-12-26 Stephen J. Turnbull <stephen(a)xemacs.org> + + * bundled-packages/README: Document restriction on --with-late-packages. + 2007-12-23 Stephen J. Turnbull <stephen(a)xemacs.org> * bundled-packages/README: Documentation for bundled packages. diff -r d74913294e8794f2d973faf8af11028702444873 -r c9ab656691c04f41c53df820c0a83e4ee36f5177 etc/bundled-packages/README --- a/etc/bundled-packages/README Thu Dec 27 13:21:05 2007 +0100 +++ b/etc/bundled-packages/README Thu Dec 27 13:22:26 2007 +0100 ＠＠ -1,10 +1,13 ＠＠ Package distributions may be placed in t Package distributions may be placed in this directory. If present and a package-path is configured, packages can be installed -using the top-level makefile. +using the top-level Makefile. To configure the package path, use the --with-late-packages option to -configure, which specifies the path to the directory containing the -xemacs-packages and mule-packages hierarchies to install. +configure, which specifies a single directory in which to install the +xemacs-packages and mule-packages hierarchies provided. If this is null, +or contains a Unix-style search path (i.e., a colon is present in the +argument of the --with-late-packages option), you will have to install +the packages by hand. To find out if a distribution includes bundled packages, type diff -r d74913294e8794f2d973faf8af11028702444873 -r c9ab656691c04f41c53df820c0a83e4ee36f5177 lisp/ChangeLog --- a/lisp/ChangeLog Thu Dec 27 13:21:05 2007 +0100 +++ b/lisp/ChangeLog Thu Dec 27 13:22:26 2007 +0100 ＠＠ -5,6 +5,14 ＠＠ 2007-12-25 Aidan Kehoe <kehoea＠parhasa #'make-image-specifier with string arguments, and more noticeably truncation-glyph, continuation-glyph, octal-escape-glyph, control-arrow-glyph. + +2007-12-23 Mike Sperber <mike(a)xemacs.org> + + * font.el (xft-font-create-object): Use + `fc-pattern-get-or-compute-size' instead of + `fc-pattern-get-size'. + + * fontconfig.el (fc-pattern-get-or-compute-size): Add. 2007-12-22 Stephen J. Turnbull <stephen(a)xemacs.org> diff -r d74913294e8794f2d973faf8af11028702444873 -r c9ab656691c04f41c53df820c0a83e4ee36f5177 lisp/font.el --- a/lisp/font.el Thu Dec 27 13:21:05 2007 +0100 +++ b/lisp/font.el Thu Dec 27 13:22:26 2007 +0100 ＠＠ -813,7 +813,7 ＠＠ Optional DEVICE defaults to `default-x-d (pattern (fc-font-match device (fc-name-parse name))) (font-obj (make-font)) (family (fc-pattern-get-family pattern 0)) - (size (fc-pattern-get-size pattern 0)) + (size (fc-pattern-get-or-compute-size pattern 0)) (weight (fc-pattern-get-weight pattern 0))) (set-font-family font-obj (and (not (equal family 'fc-result-no-match)) diff -r d74913294e8794f2d973faf8af11028702444873 -r c9ab656691c04f41c53df820c0a83e4ee36f5177 lisp/fontconfig.el --- a/lisp/fontconfig.el Thu Dec 27 13:21:05 2007 +0100 +++ b/lisp/fontconfig.el Thu Dec 27 13:22:26 2007 +0100 ＠＠ -350,6 +350,21 ＠＠ corresponding Xft font slant constant." (let ((pair (assoc str fc-font-name-weight-mapping-string-reverse))) (if pair (cdr pair)))) +(defun fc-pattern-get-or-compute-size (pattern id) + "Get the size from `pattern' associated with `id' or try to compute it. +Returns 'fc-result-no-match if unsucessful." + ;; Many font patterns don't have a "size" property, but do have a + ;; "dpi" and a "pixelsize" property". + (let ((maybe (fc-pattern-get-size pattern id))) + (if (not (eq maybe 'fc-result-no-match)) + maybe + (let ((dpi (fc-pattern-get-dpi pattern id)) + (pixelsize (fc-pattern-get-pixelsize pattern id))) + (if (and (numberp dpi) + (numberp pixelsize)) + (* pixelsize (/ 72 dpi)) + 'fc-result-no-match))))) + (defun fc-copy-pattern-partial (pattern attribute-list) "Return a copy of PATTERN restricted to ATTRIBUTE-LIST. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

2 participants
1 comments

[PATCH] xemacsweb: I can finally commit issue36 now that it is resolved 7 years, 8 months

Adrian Aichner

xemacsweb ChangeLog patch: Diff command: cvs -q diff -U 0 Files affected: About/ChangeLog Index: About/ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/About/ChangeLog,v retrieving revision 1.218 diff -u -U0 -r1.218 ChangeLog --- About/ChangeLog 6 Nov 2007 20:58:59 -0000 1.218 +++ About/ChangeLog 26 Nov 2007 19:00:20 -0000 ＠＠ -0,0 +1,4 ＠＠ +2007-11-26 Adrian Aichner <adrian(a)xemacs.org> + + * XEmacsServices.content: Document and resolve issue 36. + xemacsweb source patch: Diff command: cvs -f -z3 -q diff -u -w -N Files affected: About/XEmacsServices.content =================================================================== RCS Index: About/XEmacsServices.content =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacsweb/About/XEmacsServices.content,v retrieving revision 1.71 diff -u -w -r1.71 XEmacsServices.content --- About/XEmacsServices.content 6 Nov 2007 20:59:00 -0000 1.71 +++ About/XEmacsServices.content 26 Nov 2007 18:56:51 -0000 ＠＠ -87,9 +87,57 ＠＠ ;; See `sgml-comment-begin', `sgml-comment-end', and ;; http://htmlhelp.com/reference/wilbur/misc/comment.html (format - " <tr>\n %2$s Issue ID %3$s\n <td rowspan=\"7\" valign=\"top\"><a id=\"issue%1$d\" name=\"issue%1$d\">%1$d</a></td>\n %2$s Service(s) %3$s\n <td>all services of gwyn.tux.org are unavailable: DNS for xemacs.org, ssh, http, ftp</td>\n %2$s YYYY-MM-DD( HH:MM:SS UTC) Date found %3$s\n <td nowrap=\"nowrap\">YYYY-MM-DD( HH:MM:SS UTC)</td>\n %2$s YYYY-MM-DD( HH:MM:SS UTC) Date fixed %3$s\n <td nowrap=\"nowrap\">YYYY-MM-DD( HH:MM:SS UTC)</td>\n </tr>\n <tr>\n\t%2$s Error(s), Symptom(s) %3$s\n <th colspan=\"3\">Error(s), Symptom(s)</th>\n </tr>\n <tr>\n <td colspan=\"3\">\n\t free-form description of a error or symptom.\n <pre xml:space=\"preserve\">\nSending failed; SMTP protocol error\n221 Closing connection. Good bye.\n\t </pre>\n\t</td>\n </tr>\n <tr>\n\t%2$s Resolution(s) %3$s\n <th colspan=\"3\">Resolution(s)</th>\n </tr>\n <tr>\n ! <td colspan=\"3\">\n\t Description of resolution.\n\t</td>\n </tr>\n <tr>\n\t%2$s Reference(s) %3$s\n <th colspan=\"3\">References</th>\n </tr>\n <tr>\n <td colspan=\"3\">\n\t References to other information, like URLs for external issue documenation.\n\t</td>\n </tr>\n\n" + " <tr>\n %2$s Issue ID %3$s\n <td rowspan=\"7\" valign=\"top\"><a id=\"issue%1$d\" name=\"issue%1$d\">%1$d</a></td>\n %2$s Service(s) %3$s\n <td>all services of gwyn.tux.org are unavailable: DNS for xemacs.org, ssh, http, ftp</td>\n %2$s YYYY-MM-DD( HH:MM:SS UTC) Date found %3$s\n <td nowrap=\"nowrap\">YYYY-MM-DD( HH:MM:SS UTC)</td>\n %2$s YYYY-MM-DD( HH:MM:SS UTC) Date fixed %3$s\n <td nowrap=\"nowrap\">YYYY-MM-DD( HH:MM:SS UTC)</td>\n </tr>\n <tr>\n\t%2$s Error(s), Symptom(s) %3$s\n <th colspan=\"3\">Error(s), Symptom(s)</th>\n </tr>\n <tr>\n <td colspan=\"3\">\n\t free-form description of a error or symptom.\n <pre xml:space=\"preserve\">\nSending failed; SMTP protocol error\n221 Closing connection. Good bye.\n\t </pre>\n\t</td>\n </tr>\n <tr>\n\t%2$s Resolution(s) %3$s\n <th colspan=\"3\">Resolution(s)</th>\n </tr>\n <tr>\n ! <td colspan=\"3\">\n\t Description of resolution.\n\t</td>\n </tr>\n <tr>\n\t%2$s Reference(s) %3$s\n <th colspan=\"3\">References</th>\n </tr>\n <tr>\n <td colspan=\"3\">\n\t References to other information, like URLs for external issue documentation.\n\t</td>\n </tr>\n\n" next-issue-number sgml-comment-begin sgml-comment-end)))) --> + + <tr> +  + <td rowspan="7" valign="top"><a id="issue36" name="issue36">36</a></td> +  + <td>ssh</td> +  + <td nowrap="nowrap">2007-11-24</td> +  + <td nowrap="nowrap">2007-11-26</td> + </tr> + <tr> +  + <th colspan="3">Error(s), Symptom(s)</th> + </tr> + <tr> + <td colspan="3"> + ssh is not functional on cvs.xemacs.org. + Consequencially, cvs operations involving access via ssh do + not work. CVS read-only access via pserver is + operational. + <pre xml:space="preserve"> +Connection to cvs.xemacs.org closed by remote host. +cvs [update aborted]: end of file from server (consult above messages if any) + </pre> + <pre xml:space="preserve"> +ssh: connect to host dotsrc.org port 22: Connection timed out + </pre> + </td> + </tr> + <tr> +  + <th colspan="3">Resolution(s)</th> + </tr> + <tr> + <td colspan="3"> + + </td> + </tr> + <tr> +  + <th colspan="3">References</th> + </tr> + <tr> + <td colspan="3"> + The problem has been reported to dotsrc.org. + </td> + </tr> <tr>  -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/ _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

3 participants
2 comments

[AC21.5] Improve resizing of echo area 7 years, 10 months

Stephen J. Turnbull

APPROVE COMMIT 21.5 This patch causes Adrian's patch of 2006-10-28 for resizing the echo area to respect resize-minibuffer-mode. I'm of two minds about that, but I think that these two facilities are so closely related that we should try to keep their behavior as similar as possible. Also, I've experienced a bit of annoyance (things like debug backtraces will max out the echo area, which won't return to normal size until you force a message), so I think it's important to have a way to turn it off. It also respects the defcustoms of resize-minibuffer-mode. I added a new defcustom, `resize-minibuffer-idle-height', which is the target height of the echo area/minibuffer window when it is idle. (Only partially unimplemented.) As with resize-minibuffer, there are two modes: adjust height exactly, and reduce only when too big. I'm reverting behavior to that of 21.5.27: those who do not enable resize-minibuffer mode won't get echo area resizing any more. If nobody objects, I'll enable resize-minibuffer-mode by default later. (This takes a little work since it was designed as a minor mode.) I've also added a function to use as an undisplay-echo-area-function, which reverts the echo area/minibuffer to small size when it's idle. Unfortunately, it seems really easy to get an uninterruptible infloop if that function signals or produces any output. Therefore it is disabled by default, and has lots of warnings in the code and documentation until I have more experience with it. Feel free to try it ... I *think* I've got all angles (except deliberate sabotage :-) covered in the current version. lisp/ChangeLog addition: 2007-04-30 Stephen J. Turnbull <stephen(a)xemacs.org> * simple.el (raw-append-message): Improve resizing of echo area --- now obeys resize-minibuffer conventions. * resize-minibuffer.el (resize-minibuffer-idle-height): New. * simple.el (undisplay-echo-area-resize-window-allowed): New. * simple.el (undisplay-echo-area-resize-window): New. Add function to shrink echo area when idle. (incomplete) * simple.el (log-message-ignore-regexps): * simple.el (undisplay-echo-area-function): * simple.el (clear-message): * simple.el (append-message): * simple.el (display-message): Improve docstrings. 21.5 source patch: Diff command: cvs -q diff -u Index: lisp/resize-minibuffer.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/resize-minibuffer.el,v retrieving revision 1.4 diff -u -u -r1.4 resize-minibuffer.el --- lisp/resize-minibuffer.el 15 Mar 2002 07:43:21 -0000 1.4 +++ lisp/resize-minibuffer.el 30 Apr 2007 13:48:01 -0000 ＠＠ -88,6 +88,15 ＠＠ :type '(choice (const nil) integer) :group 'resize-minibuffer) +;; #### Yeah, I know. The relation between the echo area and the +;; minibuffer needs rethinking. It's not really possible to unify them at +;; present. -- sjt +(defcustom resize-minibuffer-idle-height nil + "When minibuffer is idle, crop its window to this height. +Must be a positive integer or nil. nil indicates no limit. +Effective only when `undisplay-echo-area-function' respects it. One such +function is `undisplay-echo-area-resize-window'.") + (defcustom resize-minibuffer-window-exactly t "*If non-`nil', make minibuffer exactly the size needed to display all its contents. Otherwise, the minibuffer window can temporarily increase in size but Index: lisp/simple.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v retrieving revision 1.58 diff -u -u -r1.58 simple.el --- lisp/simple.el 29 Dec 2006 18:09:43 -0000 1.58 +++ lisp/simple.el 30 Apr 2007 13:48:03 -0000 ＠＠ -4127,9 +4127,10 ＠＠ "List of regular expressions matching messages which shouldn't be logged. See `log-message'. -Ideally, packages which generate messages which might need to be ignored -should label them with 'progress, 'prompt, or 'no-log, so they can be -filtered by the log-message-ignore-labels." +Adding entries to this list slows down messaging significantly. Wherever +possible, messages which might need to be ignored should be labeled with +'progress, 'prompt, or 'no-log, so they can be filtered by +log-message-ignore-labels." :type '(repeat regexp) :group 'log-message) ＠＠ -4146,9 +4147,39 ＠＠ :group 'log-message) (defcustom undisplay-echo-area-function nil - "The function to call to undisplay echo area buffer." -:type 'function -:group 'log-message) + "The function to call to undisplay echo area buffer. +WARNING: any problem with your function is likely to result in an +uninterruptible infinite loop. Use of custom functions is therefore not +recommended." +:type '(choice (const nil) + function) +:group 'log-message) + +(defvar undisplay-echo-area-resize-window-allowed t + "INTERNAL USE ONLY. +Guards against `undisplay-echo-area-resize-window' infloops. +Touch this at your own risk.") + +(defun undisplay-echo-area-resize-window () + "Resize idle echo area window to `resize-minibuffer-idle-height'. +If either `resize-minibuffer-idle-height' or `resize-minibuffer-mode' is nil, +does nothing. If `resize-minibuffer-window-exactly' is non-nil, always resize +to this height exactly, otherwise if current height is no larger than this, +leave it as is." + (when (default-value undisplay-echo-area-resize-window-allowed) + (setq-default undisplay-echo-area-resize-window-allowed nil) + (let* ((mbw (minibuffer-window)) + (height (window-height mbw))) + (with-boundp '(resize-minibuffer-idle-height) + (and resize-minibuffer-mode + (numberp resize-minibuffer-idle-height) + (> resize-minibuffer-idle-height 0) + (unless (if resize-minibuffer-window-exactly + (= resize-minibuffer-idle-height height) + (<= resize-minibuffer-idle-height height)) + (enlarge-window (- resize-minibuffer-idle-height height) + nil mbw)))) + (setq-default undisplay-echo-area-resize-window-allowed t)))) ;;Subsumed by view-lossage ;; Not really, I'm adding it back by popular demand. -slb ＠＠ -4235,6 +4266,9 ＠＠ is nil, it will be displayed. The string which remains in the echo area will be returned, or nil if the message-stack is now empty. If LABEL is nil, the entire message-stack is cleared. +STDOUT-P is ignored, except for output to stream devices. For streams, +STDOUT-P non-nil directs output to stdout, otherwise to stderr. \(This is +used only in case of restoring an earlier message from the stack.) Unless you need the return value or you need to specify a label, you should just use (message nil)." ＠＠ -4293,13 +4327,19 ＠＠ (setq log (cdr log))))) (defun append-message (label message &optional frame stdout-p) + "Add MESSAGE to the message-stack, or append it to the existing text. +LABEL is the class of the message. If it is the same as that of the top of +the message stack, MESSAGE is appended to the existing message, otherwise +it is pushed on the stack. +FRAME determines the minibuffer window to send the message to. +STDOUT-P is ignored, except for output to stream devices. For streams, +STDOUT-P non-nil directs output to stdout, otherwise to stderr." (or frame (setq frame (selected-frame))) ;; If outputting to the terminal, make sure output from anyone else clears ;; the left side first, but don't do it ourselves, otherwise we won't be ;; able to append to an existing message. (if (eq 'stream (frame-type frame)) (set-device-clear-left-side (frame-device frame) nil)) - ;; Add a new entry to the message-stack, or modify an existing one (let ((top (car message-stack))) (if (eq label (car top)) (setcdr top (concat (cdr top) message)) ＠＠ -4308,31 +4348,60 ＠＠ (if (eq 'stream (frame-type frame)) (set-device-clear-left-side (frame-device frame) t))) -;; Really append the message to the echo area. no fiddling with +;; Really append the message to the echo area. No fiddling with ;; message-stack. (defun raw-append-message (message &optional frame stdout-p) (unless (equal message "") (let ((inhibit-read-only t)) (with-current-buffer " *Echo Area*" (insert-string message) - ;; (fill-region (point-min) (point-max)) - (enlarge-window - (- - (ceiling - (/ (- (point-max) (point-min)) - (- (window-width (minibuffer-window)) 1.0))) - (window-height (minibuffer-window))) - nil (minibuffer-window))) - ;; Conditionalizing on the device type in this way is not that clean, - ;; but neither is having a device method, as I originally implemented - ;; it: all non-stream devices behave in the same way. Perhaps - ;; the cleanest way is to make the concept of a "redisplayable" - ;; device, which stream devices are not. Look into this more if - ;; we ever create another non-redisplayable device type (e.g. - ;; processes? printers?). + ;; #### This needs to be conditional; cf discussion by Stefan Monnier + ;; et al on emacs-devel in mid-to-late April 2007. One problem is + ;; there is no known good way to guess whether the user wants to have + ;; the echo area height changed on him asynchronously, especially + ;; after message display. + ;; There is also a problem where Lisp backtraces get sent to the echo + ;; area, thus maxing out the window height. Unfortunately, it doesn't + ;; return to a reasonable size very quickly. + ;; It is not clear that echo area and minibuffer behavior should be + ;; linked as we do here. It's OK for now; at least this obeys the + ;; minibuffer resizing conventions which seem a pretty good guess + ;; at user preference. + (when resize-minibuffer-mode + ;; #### interesting idea, unbearable implementation + ;; (fill-region (point-min) (point-max)) + ;; + ;; #### We'd like to be able to do something like + ;; + ;; (save-window-excursion + ;; (select-window (minibuffer-window frame)) + ;; (resize-minibuffer-window)))) + ;; + ;; but that can't work, because the echo area isn't a real window! + ;; We should fix that, but this is an approximation, duplicating the + ;; resize-minibuffer code. + (let* ((mbw (minibuffer-window frame)) + (height (window-height mbw)) + (lines (ceiling (/ (- (point-max) (point-min)) + (- (window-width mbw) 1.0))))) + (and (numberp resize-minibuffer-window-max-height) + (> resize-minibuffer-window-max-height 0) + (setq lines (min lines + resize-minibuffer-window-max-height))) + (or (if resize-minibuffer-window-exactly + (= lines height) + (<= lines height)) + (enlarge-window (- lines height) nil mbw))))) ;; Don't redisplay the echo area if we are executing a macro. (if (not executing-kbd-macro) + ;; Conditionalizing on the device type in this way isn't clean, but + ;; neither is having a device method, as I originally implemented + ;; it: all non-stream devices behave in the same way. Perhaps + ;; the cleanest way is to make the concept of a "redisplayable" + ;; device, which stream devices are not. Look into this more if + ;; we ever create another non-redisplayable device type (e.g. + ;; processes? printers?). (if (eq 'stream (frame-type frame)) (send-string-to-terminal message stdout-p (frame-device frame)) (funcall redisplay-echo-area-function)))))) ＠＠ -4341,6 +4410,8 ＠＠ "Print a one-line message at the bottom of the frame. First argument LABEL is an identifier for this message. MESSAGE is the string to display. Use `clear-message' to remove a labelled message. +STDOUT-P is ignored, except for output to stream devices. For streams, +STDOUT-P non-nil directs output to stdout, otherwise to stderr. Here are some standard labels (those marked with `*' are not logged by default--see the `log-message-ignore-labels' variable): ---------------- end of patch ---------------- _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

2 participants
1 comments

[PATCH] Changes the default so with-xft=yes results in xft activated 8 years

The XEmacs Package Smoketest

Hi, My first hg patch coming up. Please inspect carefully. Maybe not a wise thing to start with changing configure behavior. After running make configure I got unexpected changes in lib-src/config.values.in. Am I doing something wrong here? Details below. There seemed to be a typo concerning with-xft-gauge and with-xft-gauges that results in gauges beeing selected unconditionally if with_xft_emacs=yes. I guess xft-gauges isn't used at the moment so it may be left as it is for some reason. Stephen? # HG changeset patch # User Mats Lidell <matsl(a)xemacs.org> # Date 1217196051 -7200 # Node ID 2e80c89e982f64e78281062454bfd06de74df56f # Parent 6b0000935adc3f79cb189350d6014d4b4aff734e Changes the default for with-xft so that with-xft=yes results in a default that has xft activated. Also fixes a typo. Both with-xft-gauge and with-xft-gauges was present. diff -r 6b0000935adc -r 2e80c89e982f ChangeLog --- a/ChangeLog Sat Jul 26 13:50:27 2008 +0300 +++ b/ChangeLog Mon Jul 28 00:00:51 2008 +0200 ＠＠ -1,3 +1,8 ＠＠ +2008-07-27 Mats Lidell <matsl(a)xemacs.org> + + * configure.ac (XE_COMPLEX_ARG): Use different defaults for with-xft + and without-xft. + 2008-07-06 Ville Skytt~ <scop(a)xemacs.org> * configure.ac (xe_fst): diff -r 6b0000935adc -r 2e80c89e982f configure --- a/configure Sat Jul 26 13:50:27 2008 +0300 +++ b/configure Mon Jul 28 00:00:51 2008 +0200 ＠＠ -1426,10 +1426,6 ＠＠ --enable-FEATURE[=ARG] alias for --with-FEATURE --without-FEATURE do not use FEATURE (same as --with-FEATURE=no) --disable-FEATURE alias for --without-FEATURE - -Compilation options -------------------- - --with-compiler C compiler to use --with-xemacs-compiler compiler to use to compile just the xemacs executable and C modules. If you want to compile ＠＠ -1538,7 +1534,8 ＠＠ `gauges'. Prefix component with `no' to disable its use of Xft. Requires X11, Xft, Xrender, freetype, and fontconfig support. Default is `noemacs, - nomenubars, notabs, nogauges'. + nomenubars, notabs, nogauges'. The default when + selected is `emacs, nomenubars, notabs, nogauges'. --with-gtk Support GTK on the X Window System. (EXPERIMENTAL) --with-gnome Support GNOME on the X Window System. (EXPERIMENTAL) --with-msw Support MS Windows as a window system (only under ＠＠ -2266,7 +2263,6 ＠＠ MAKE_SUBDIR="$MAKE_SUBDIR lib-src" && if test "$verbose" = "yes"; then echo " Appending \"lib-src\" to \$MAKE_SUBDIR"; fi INSTALL_ARCH_DEP_SUBDIR="$INSTALL_ARCH_DEP_SUBDIR lib-src" && if test "$verbose" = "yes"; then echo " Appending \"lib-src\" to \$INSTALL_ARCH_DEP_SUBDIR"; fi with_dragndrop_default="no" - # If --with-compiler or --without-compiler were given then copy the value to the # equivalent enable_compiler variable. if test "${with_compiler+set}" = set; then ＠＠ -2888,12 +2884,12 ＠＠ fi; _xft_notfirst="" -_xft_emacs_default=no +_xft_emacs_default=yes _xft_menubars_default=no _xft_tabs_default=no _xft_gauges_default=no _xft_types="emacs menubars tabs gauges" -_xft_default="noemacs,nomenubars,notabs,nogauges" +_xft_default="emacs,nomenubars,notabs,nogauges" # If --with-xft or --without-xft were given then copy the value to the # equivalent enable_xft variable. ＠＠ -2970,7 +2966,7 ＠＠ eval "enable_xft_$y=\$_xft_${y}_default" unset _xft_${y}_default done - +with_xft_emacs=no fi; # If --with-gtk or --without-gtk were given then copy the value to the # equivalent enable_gtk variable. ＠＠ -27332,11 +27328,11 ＠＠ with_xft_tabs="no" fi fi -if test "$with_xft_gauge" != "no" ; then +if test "$with_xft_gauges" != "no" ; then if test "$with_xft_emacs" = "yes" -a "$enable_widgets" != "no" ; then - with_xft_gauge="yes" - else - with_xft_gauge="no" + with_xft_gauges="yes" + else + with_xft_gauges="no" fi fi ＠＠ -27528,8 +27524,8 ＠＠ #define USE_XFT_TABS 1 _ACEOF -test "$with_xft_gauge" = "yes" && cat >>confdefs.h <<\_ACEOF -#define USE_XFT_GAUGE 1 +test "$with_xft_gauges" = "yes" && cat >>confdefs.h <<\_ACEOF +#define USE_XFT_GAUGES 1 _ACEOF diff -r 6b0000935adc -r 2e80c89e982f configure.ac --- a/configure.ac Sat Jul 26 13:50:27 2008 +0300 +++ b/configure.ac Mon Jul 28 00:00:51 2008 +0200 ＠＠ -540,23 +540,7 ＠＠ dnl Note that AS_HELP_STRING compresses whitespace, wraps, and indents the dnl string to fit the --help display; there's no need to preformat. dnl -dnl I think these will be caught by autoconf internal checks, -dnl only --with-* are unchecked -dnl --external-widget --enable-external-widget -dnl --native-sound-lib=LIB --with-native-sound-lib -dnl --mail-locking=TYPE --with-mail-locking -dnl --rel-alloc --with-rel-alloc -dnl --use-number-lib --enable-bignum -dnl --debug --enable-debug -dnl --error-checking --enable-error-checking -dnl --memory-usage-stats --enable-memory-usage-stats -dnl --quick-build --enable-quick-build -dnl --use-union-type --enable-union-type -dnl --pdump --enable-pdump -dnl --use-kkcc --enable-kkcc -dnl -dnl parse flags -XE_HELP_SUBSECTION([Compilation options]) +dnl I think these will be caught by autoconf inFTE_HELP_SUBSECTION([Compilation options]) XE_MERGED_ARG([compiler], AS_HELP_STRING([--with-compiler],[C compiler to use]), [], []) ＠＠ -690,9 +674,10 ＠＠ [Xft], [`emacs' (buffers), `menubars', `tabs', and `gauges'], [X11, Xft, Xrender, freetype, and fontconfig], - [`noemacs, nomenubars, notabs, nogauges'])], - [],[], - [XE_COMPLEX_OPTION([emacs],[no]), + [`noemacs, nomenubars, notabs, nogauges'. + The default when selected is `emacs, nomenubars, notabs, nogauges'])], + [],[with_xft_emacs=no], + [XE_COMPLEX_OPTION([emacs],[yes]), XE_COMPLEX_OPTION([menubars],[no]), XE_COMPLEX_OPTION([tabs],[no]), XE_COMPLEX_OPTION([gauges],[no])]) ＠＠ -3540,7 +3525,7 ＠＠ AC_DEFINE(HAVE_FONTCONFIG) AC_DEFINE(USE_XFT) dnl Due to interactions with other libraries, must postpone AC_DEFINE - dnl of USE_XFT_MENUBARS, USE_XFT_TABS, and USE_XFT_GAUGE. + dnl of USE_XFT_MENUBARS, USE_XFT_TABS, and USE_XFT_GAUGES. unset xft_includes_found fi fi ＠＠ -4429,11 +4414,11 ＠＠ fi fi dnl this is not in xft reloaded #3 -if test "$with_xft_gauge" != "no" ; then +if test "$with_xft_gauges" != "no" ; then if test "$with_xft_emacs" = "yes" -a "$enable_widgets" != "no" ; then - with_xft_gauge="yes" - else - with_xft_gauge="no" + with_xft_gauges="yes" + else + with_xft_gauges="no" fi fi ＠＠ -4526,7 +4511,7 ＠＠ test "$with_xft_menubars" = "yes" && AC_DEFINE(USE_XFT_MENUBARS) test "$with_xft_tabs" = "yes" && AC_DEFINE(USE_XFT_TABS) -test "$with_xft_gauge" = "yes" && AC_DEFINE(USE_XFT_GAUGE) +test "$with_xft_gauges" = "yes" && AC_DEFINE(USE_XFT_GAUGES) dnl ---------------------- dnl Mule-dependent options diff -r 6b0000935adc -r 2e80c89e982f lib-src/config.values.in --- a/lib-src/config.values.in Sat Jul 26 13:50:27 2008 +0300 +++ b/lib-src/config.values.in Mon Jul 28 00:00:51 2008 +0200 ＠＠ -15,178 +15,6 ＠＠ ;;; Variables defined in configure by AC_SUBST follow: ;;; (These are used in Makefiles) -ALLOCA "＠ALLOCA＠" -ARCHLIBDIR "＠ARCHLIBDIR＠" -ARCHLIBDIR_USER_DEFINED "＠ARCHLIBDIR_USER_DEFINED＠" -CC "＠CC＠" -CFLAGS "＠CFLAGS＠" -CPP "＠CPP＠" -CPPFLAGS "＠CPPFLAGS＠" -DEFS "＠DEFS＠" -DOCDIR "＠DOCDIR＠" -DOCDIR_USER_DEFINED "＠DOCDIR_USER_DEFINED＠" -EARLY_PACKAGE_DIRECTORIES "＠EARLY_PACKAGE_DIRECTORIES＠" -EARLY_PACKAGE_DIRECTORIES_USER_DEFINED "＠EARLY_PACKAGE_DIRECTORIES_USER_DEFINED＠" -ECHO_C "＠ECHO_C＠" -ECHO_N "＠ECHO_N＠" -ECHO_T "＠ECHO_T＠" -EGREP "＠EGREP＠" -ETCDIR "＠ETCDIR＠" -ETCDIR_USER_DEFINED "＠ETCDIR_USER_DEFINED＠" -EXEC_PREFIX "＠EXEC_PREFIX＠" -EXEC_PREFIX_USER_DEFINED "＠EXEC_PREFIX_USER_DEFINED＠" -EXEEXT "＠EXEEXT＠" -GTK_CONFIG "＠GTK_CONFIG＠" -INFODIR "＠INFODIR＠" -INFODIR_USER_DEFINED "＠INFODIR_USER_DEFINED＠" -INFOPATH "＠INFOPATH＠" -INFOPATH_USER_DEFINED "＠INFOPATH_USER_DEFINED＠" -INSTALL "＠INSTALL＠" -INSTALLPATH "＠INSTALLPATH＠" -INSTALL_ARCH_DEP_SUBDIR "＠INSTALL_ARCH_DEP_SUBDIR＠" -INSTALL_DATA "＠INSTALL_DATA＠" -INSTALL_PROGRAM "＠INSTALL_PROGRAM＠" -INSTALL_SCRIPT "＠INSTALL_SCRIPT＠" -LAST_PACKAGE_DIRECTORIES "＠LAST_PACKAGE_DIRECTORIES＠" -LAST_PACKAGE_DIRECTORIES_USER_DEFINED "＠LAST_PACKAGE_DIRECTORIES_USER_DEFINED＠" -LATE_PACKAGE_DIRECTORIES "＠LATE_PACKAGE_DIRECTORIES＠" -LATE_PACKAGE_DIRECTORIES_USER_DEFINED "＠LATE_PACKAGE_DIRECTORIES_USER_DEFINED＠" -LDFLAGS "＠LDFLAGS＠" -LIBOBJS "＠LIBOBJS＠" -LIBS "＠LIBS＠" -LIBSTDCPP "＠LIBSTDCPP＠" -LISPDIR "＠LISPDIR＠" -LISPDIR_USER_DEFINED "＠LISPDIR_USER_DEFINED＠" -LN_S "＠LN_S＠" -LTLIBOBJS "＠LTLIBOBJS＠" -MAKE_DOCFILE "＠MAKE_DOCFILE＠" -MAKE_SUBDIR "＠MAKE_SUBDIR＠" -MODARCHDIR "＠MODARCHDIR＠" -MODCFLAGS "＠MODCFLAGS＠" -MODULEDIR "＠MODULEDIR＠" -MODULEDIR_USER_DEFINED "＠MODULEDIR_USER_DEFINED＠" -MOD_CC "＠MOD_CC＠" -MOD_INSTALL_PROGRAM "＠MOD_INSTALL_PROGRAM＠" -OBJECT_TO_BUILD "＠OBJECT_TO_BUILD＠" -OBJEXT "＠OBJEXT＠" -PACKAGE_BUGREPORT "＠PACKAGE_BUGREPORT＠" -PACKAGE_NAME "＠PACKAGE_NAME＠" -PACKAGE_PATH "＠PACKAGE_PATH＠" -PACKAGE_PATH_USER_DEFINED "＠PACKAGE_PATH_USER_DEFINED＠" -PACKAGE_STRING "＠PACKAGE_STRING＠" -PACKAGE_TARNAME "＠PACKAGE_TARNAME＠" -PACKAGE_VERSION "＠PACKAGE_VERSION＠" -PATH_SEPARATOR "＠PATH_SEPARATOR＠" -PREFIX "＠PREFIX＠" -PREFIX_USER_DEFINED "＠PREFIX_USER_DEFINED＠" -PROGNAME "＠PROGNAME＠" -RANLIB "＠RANLIB＠" -RECURSIVE_MAKE_ARGS "＠RECURSIVE_MAKE_ARGS＠" -SET_MAKE "＠SET_MAKE＠" -SHELL "＠SHELL＠" -SITELISPDIR "＠SITELISPDIR＠" -SITELISPDIR_USER_DEFINED "＠SITELISPDIR_USER_DEFINED＠" -SITEMODULEDIR "＠SITEMODULEDIR＠" -SITEMODULEDIR_USER_DEFINED "＠SITEMODULEDIR_USER_DEFINED＠" -SRC_SUBDIR_DEPS "＠SRC_SUBDIR_DEPS＠" -SUBDIR_MAKEFILES "＠SUBDIR_MAKEFILES＠" -XEMACS_CC "＠XEMACS_CC＠" -XE_CFLAGS "＠XE_CFLAGS＠" -X_CFLAGS "＠X_CFLAGS＠" -X_EXTRA_LIBS "＠X_EXTRA_LIBS＠" -X_LIBS "＠X_LIBS＠" -X_PRE_LIBS "＠X_PRE_LIBS＠" -YACC "＠YACC＠" -abs_builddir "＠abs_builddir＠" -abs_srcdir "＠abs_srcdir＠" -abs_top_builddir "＠abs_top_builddir＠" -abs_top_srcdir "＠abs_top_srcdir＠" -ac_ct_CC "＠ac_ct_CC＠" -ac_ct_RANLIB "＠ac_ct_RANLIB＠" -archlibdir "＠archlibdir＠" -bindir "＠bindir＠" -bitmapdir "＠bitmapdir＠" -blddir "＠blddir＠" -build "＠build＠" -build_alias "＠build_alias＠" -build_cpu "＠build_cpu＠" -build_os "＠build_os＠" -build_vendor "＠build_vendor＠" -builddir "＠builddir＠" -c_switch_all "＠c_switch_all＠" -c_switch_general "＠c_switch_general＠" -c_switch_window_system "＠c_switch_window_system＠" -canna_libs "＠canna_libs＠" -configuration "＠configuration＠" -configure_input "＠configure_input＠" -datadir "＠datadir＠" -datarootdir "＠datarootdir＠" -dll_cflags "＠dll_cflags＠" -dll_ld "＠dll_ld＠" -dll_ldflags "＠dll_ldflags＠" -dll_ldo "＠dll_ldo＠" -dll_post "＠dll_post＠" -dnd_objs "＠dnd_objs＠" -docdir "＠docdir＠" -dynodump_arch "＠dynodump_arch＠" -early_packages "＠early_packages＠" -etcdir "＠etcdir＠" -exec_prefix "＠exec_prefix＠" -extra_includes "＠extra_includes＠" -extra_objs "＠extra_objs＠" -have_esd_config "＠have_esd_config＠" -host_alias "＠host_alias＠" -includedir "＠includedir＠" -infodir "＠infodir＠" -infopath "＠infopath＠" -install_pp "＠install_pp＠" -inststaticdir "＠inststaticdir＠" -instvardir "＠instvardir＠" -internal_makefile_list "＠internal_makefile_list＠" -last_packages "＠last_packages＠" -late_packages "＠late_packages＠" -ld "＠ld＠" -ld_dynamic_link_flags "＠ld_dynamic_link_flags＠" -ld_libs_all "＠ld_libs_all＠" -ld_libs_general "＠ld_libs_general＠" -ld_libs_window_system "＠ld_libs_window_system＠" -ld_switch_all "＠ld_switch_all＠" -ld_switch_general "＠ld_switch_general＠" -ld_switch_shared "＠ld_switch_shared＠" -ld_switch_window_system "＠ld_switch_window_system＠" -ldap_libs "＠ldap_libs＠" -lib_gcc "＠lib_gcc＠" -libdir "＠libdir＠" -libexecdir "＠libexecdir＠" -libs_xauth "＠libs_xauth＠" -lispdir "＠lispdir＠" -localstatedir "＠localstatedir＠" -lwlib_objs "＠lwlib_objs＠" -machfile "＠machfile＠" -mandir "＠mandir＠" -moduledir "＠moduledir＠" -native_sound_lib "＠native_sound_lib＠" -oldincludedir "＠oldincludedir＠" -opsysfile "＠opsysfile＠" -package_path "＠package_path＠" -postgresql_libs "＠postgresql_libs＠" -prefix "＠prefix＠" -program_transform_name "＠program_transform_name＠" -sbindir "＠sbindir＠" -sharedstatedir "＠sharedstatedir＠" -sitelispdir "＠sitelispdir＠" -sitemoduledir "＠sitemoduledir＠" -sound_cflags "＠sound_cflags＠" -srcdir "＠srcdir＠" -start_files "＠start_files＠" -start_flags "＠start_flags＠" -statedir "＠statedir＠" -sysconfdir "＠sysconfdir＠" -target_alias "＠target_alias＠" -top_builddir "＠top_builddir＠" -top_srcdir "＠top_srcdir＠" -version "＠version＠" -with_modules "＠with_modules＠" ;;; Variables defined in configure by AC_DEFINE and AC_DEFINE_UNQUOTED follow: ;;; (These are used in C code) diff -r 6b0000935adc -r 2e80c89e982f src/ChangeLog --- a/src/ChangeLog Sat Jul 26 13:50:27 2008 +0300 +++ b/src/ChangeLog Mon Jul 28 00:00:51 2008 +0200 ＠＠ -1,3 +1,7 ＠＠ +2008-07-27 Mats Lidell <matsl(a)xemacs.org> + + * config.h.in: Renamed USE_XFT_GAUGES. + 2008-07-20 John Paul Wallington <jpw(a)pobox.com> * nt.c (Fmswindows_short_file_name, Fmswindows_long_file_name): diff -r 6b0000935adc -r 2e80c89e982f src/config.h.in --- a/src/config.h.in Sat Jul 26 13:50:27 2008 +0300 +++ b/src/config.h.in Mon Jul 28 00:00:51 2008 +0200 ＠＠ -20,8 +20,7 ＠＠ Boston, MA 02111-1307, USA. */ /* Significantly divergent from FSF. */ - -/* No code in XEmacs #includes config.h twice, but some of the code +XEmacs #includes config.h twice, but some of the code intended to work with other packages as well (like gmalloc.c) think they can include it as many times as they like. */ #ifndef _SRC_CONFIG_H_ ＠＠ -225,7 +224,7 ＠＠ /* Per-widget stuff will go away? */ #undef USE_XFT_MENUBARS #undef USE_XFT_TABS -#undef USE_XFT_GAUGE +#undef USE_XFT_GAUGES /* Defines for building X applications */ #ifdef HAVE_X_WINDOWS Done 00:03:05 -- %% Mats _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

3 participants
12 comments

[PATCH] Make CDPATH handling portable, accept entries not matching "/$". 15 years, 11 months

Aidan Kehoe

2009-03-07 Aidan Kehoe <kehoea(a)parhasard.net> * files.el (cd): Make CDPATH handling portable, accept entries without trailing slashes within it. --- lisp/files.el~ 2009-02-20 17:22:47.000000000 +0000 +++ lisp/files.el 2009-03-07 12:37:57.000000000 +0000 ＠＠ -595,12 +595,14 ＠＠ (null (getenv "CDPATH")))))) (if (file-name-absolute-p dir) (cd-absolute (expand-file-name dir)) - ;; XEmacs + ;; XEmacs change. I'm not sure respecting CDPATH is the right thing to + ;; do under Windows. (unless (and cd-path (equal (getenv "CDPATH") cdpath-previous)) - ;;#### Unix-specific - (let ((trypath (parse-colon-path - (setq cdpath-previous (getenv "CDPATH"))))) - (setq cd-path (or trypath (list "./"))))) + (let ((trypath (split-string (setq cdpath-previous (getenv "CDPATH")) + path-separator))) + (setq cd-path (or (and trypath + (mapcar #'file-name-as-directory trypath)) + (string ?. directory-sep-char))))) (or (catch 'found (mapcar #'(lambda (x) (let ((f (expand-file-name (concat x dir)))) -- ¿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

1 participants
1 comments

commit: Add standard section headers in preparation for 21.5.29. 16 years

Stephen Turnbull

changeset: 4633:199ecf2503c8 tag: tip user: Stephen J. Turnbull <stephen(a)xemacs.org> date: Sat Apr 18 03:18:27 2009 +0900 files: CHANGES-beta lisp/lisp-mnt.el description: Add standard section headers in preparation for 21.5.29. diff -r b93587f33338 -r 199ecf2503c8 CHANGES-beta --- a/CHANGES-beta Thu Apr 02 15:29:57 2009 +0900 +++ b/CHANGES-beta Sat Apr 18 03:18:27 2009 +0900 ＠＠ -1,3 +1,11 ＠＠ +Major Features and Backward Incompatible Changes +User-Visible Bug Fixes and Minor Improvements +Build Infrastructure +Documentation +Lisp API +Internal API and Implementation +Testing and Debugging + Brief summary of Changes to 21.5.28 "fuki" Major Features and Backward Incompatible Changes diff -r b93587f33338 -r 199ecf2503c8 lisp/lisp-mnt.el --- a/lisp/lisp-mnt.el Thu Apr 02 15:29:57 2009 +0900 +++ b/lisp/lisp-mnt.el Sat Apr 18 03:18:27 2009 +0900 ＠＠ -577,6 +577,101 ＠＠ (message (substitute-command-keys "Type \\[mail-send] to send bug report.")))) +;;; Entry point: insert boilerplate + +(defconst lm-standard-permission + "\n;; This file is part of XEmacs. + +;; XEmacs is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 2, or (at your option) +;; any later version. + +;; XEmacs is distributed in the hope that it will be useful, but +;; WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs; see the file COPYING. If not, write to the Free +;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA.\n" + "Standard permissions notice for Lisp files that are part of XEmacs. +License version and FSF address are current as of 2009-04-01.") + +(defconst lm-change-log + "\n;;; Change Log: + +;; %s %s <%s> +;; +;; * Created.\n" + "GNU standard change-log template.") + +(defconst lm-boilerplate + ";;; %s --- %s + +;; Copyright (C) %s %s + +;; Author: %s <%s> +;; Created: %s +;; Keywords: %s +%s +;;; Synched up with: Not in GNU. + +;;; Commentary: + +;; PLACE YOUR COMMENTARY (DESCRIPTION OF THE LIBRARY'S CONTENTS AND FUNCTION) +;; IN THIS SECTION. +%s +;;; Code:\n\n" + "lisp-mnt standard boilerplate.") + +;; #### Need to improve the interactive declaration. +;; #### Need to check for existing boilerplate. +(defun lm-insert-boilerplate (file synopsis permission author email keys log) + "Insert lisp-mnt standard header and footer. +FILE is the file name of the library. +SYNOPSIS is a one line description of the file. + Total length of FILE and SYNOPSIS should be less than 70 characters. +PERMISSION, if non-nil, means to use a simple \"All Rights Reserved.\" + Otherwise, the standard boilerplate for XEmacs sources is inserted. +AUTHOR is the name of the author, defaulting to `user-full-name'. +EMAIL is the contact email address, defaulting to `user-mail-address'. +KEYS is a comma-separated list of finder keywords. +LOG, if non-nil, means to insert a Change Log section. + Otherwise, it will be omitted." + + (interactive "FName of file: \nsSynopsis: \nP\nsAuthor: \nsEmail: +sKeywords: \ncInsert a Change Log section? (y/n)") + + (save-restriction + (widen) + (let ((file (file-name-nondirectory file)) + (year (format-time-string "%Y")) + (date (format-time-string "%Y-%m-%d")) + (author (if (> (length author) 0) + author + user-full-name)) + (email (if (> (length email) 0) + email + user-mail-address)) + (log (eql (upcase log) ?Y))) + (goto-char (point-min)) + (insert (format lm-boilerplate + file synopsis + year author + author email + date + keys + (if permission + "\n;; All Rights Reserved.\n" + lm-standard-permission) + (if log + (format lm-change-log date author email) + ""))) + (goto-char (point-max)) + (insert (format "\n;;; %s ends here\n" file))))) + (provide 'lisp-mnt) ;;; lisp-mnt.el ends here _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit: Add urefs to Lstreams node. 16 years

Stephen Turnbull

changeset: 4632:b93587f33338 user: Stephen J. Turnbull <stephen(a)xemacs.org> date: Thu Apr 02 15:29:57 2009 +0900 files: man/ChangeLog man/internals/internals.texi description: Add urefs to Lstreams node. diff -r 866681a74bd9 -r b93587f33338 man/ChangeLog --- a/man/ChangeLog Wed Apr 01 20:46:58 2009 +0900 +++ b/man/ChangeLog Thu Apr 02 15:29:57 2009 +0900 ＠＠ -1,3 +1,8 ＠＠ +2009-04-02 Stephen J. Turnbull <stephen(a)xemacs.org> + + * internals/internals.texi: s/＠urlref/＠uref/g. + (Lstreams): Add urefs to David Beasley tutorials. + 2009-02-26 Stephen J. Turnbull <stephen(a)xemacs.org> * xemacs-faq.texi (Q3.0.12): New node for Meta key on Mac. diff -r 866681a74bd9 -r b93587f33338 man/internals/internals.texi --- a/man/internals/internals.texi Wed Apr 01 20:46:58 2009 +0900 +++ b/man/internals/internals.texi Thu Apr 02 15:29:57 2009 +0900 ＠＠ -20288,6 +20288,11 ＠＠ write characters, so the calling functions do not have to worry about blocking data together in order to achieve efficiency. +Lstreams seem to be similar to Python 2.5 generators/coroutines. David +Beasley's tutorials on ＠uref{http://dabeaz.com/generators-uk/,generators} +and ＠uref{http://dabeaz.com/coroutines/,coroutines} are an excellent +resource. + ＠menu * Creating an Lstream:: Creating an lstream object. * Lstream Types:: Different sorts of things that are streamed. ＠＠ -27538,7 +27543,7 ＠＠ don't blame Ben (or Eric and Matthias, for that matter). Feel free to add, edit, and share the blame, guys! -＠c #### Make these ＠urlref's!! +＠c #### Make these ＠uref's!! As of late November 2004, this principally means adding support for the ＠file{Xft} library, which provides a more robust ＠emph{font configuration} mechanism via Keith Packard's ＠file{fontconfig} library _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

commit: Improve lisp-mnt documentation. 16 years

Stephen Turnbull

changeset: 4631:866681a74bd9 user: Stephen J. Turnbull <stephen(a)xemacs.org> date: Wed Apr 01 20:46:58 2009 +0900 files: lisp/ChangeLog lisp/lisp-mnt.el description: Improve lisp-mnt documentation. diff -r 64e5e393f15d -r 866681a74bd9 lisp/ChangeLog --- a/lisp/ChangeLog Wed Apr 01 20:07:33 2009 +0900 +++ b/lisp/ChangeLog Wed Apr 01 20:46:58 2009 +0900 ＠＠ -1,3 +1,14 ＠＠ +2009-04-01 Stephen J. Turnbull <stephen(a)xemacs.org> + + * lisp-mnt.el: Update FSF address. + Improve header comment. + Remove long-obsolete commented code. + (lm-crack-address, lm-report-bug): + Add #### remarks calling for use of superior external functions. + (lm-synopsis): + Convert interactive spec to use "F" specifier. + Adjust docstring to reality. + 2009-03-08 Stephen J. Turnbull <stephen(a)xemacs.org> * cus-edit.el (custom-face-prompt): Fix typo and improve diff -r 64e5e393f15d -r 866681a74bd9 lisp/lisp-mnt.el --- a/lisp/lisp-mnt.el Wed Apr 01 20:07:33 2009 +0900 +++ b/lisp/lisp-mnt.el Wed Apr 01 20:46:58 2009 +0900 ＠＠ -33,14 +33,14 ＠＠ ;; This minor mode adds some services to Emacs-Lisp editing mode. ;; -;; First, it knows about the header conventions for library packages. -;; One entry point supports generating synopses from a library directory. -;; Another can be used to check for missing headers in library files. +;; It provides knowledge about the header conventions for library packages. +;; `lm-synopsis' supports generating synopses from a library directory. +;; `lm-verify' can be used to check for missing headers in library files. ;; -;; Another entry point automatically addresses bug mail to a package's +;; `lm-report-bug' automatically addresses bug mail to a package's ;; maintainer or author. -;; This file can be loaded by your lisp-mode-hook. Have it (require 'lisp-mnt) +;; This file can be loaded by your lisp-mode-hook with `(require 'lisp-mnt)'. ;; This file is an example of the header conventions. Note the following ;; features: ＠＠ -90,7 +90,7 ＠＠ ;; package for the distribution. (This file doesn't have one because the ;; author *is* one of the maintainers.) ;; -;; * Keywords line --- used by the finder code (now under construction) +;; * Keywords line --- used by the finder code (now direly bit-rotted) ;; for finding Emacs Lisp code related to a topic. ;; ;; * X-Bogus-Bureaucratic-Cruft line --- this is a joke and an example ＠＠ -118,7 +118,6 ＠＠ ;;; Code: (require 'picture) ; provides move-to-column-force -;(require 'emacsbug) ; XEmacs, not needed for bytecompilation ;;; Variables: ＠＠ -247,6 +246,7 ＠＠ (kill-buffer (current-buffer))) ))) +;; #### This should be replaced by a call into mail-lib. (defun lm-crack-address (x) "Split up an email address into full name and real email address. The value is a cons of the form (FULLNAME . ADDRESS)." ＠＠ -422,13 +422,15 ＠＠ (kill-buffer (current-buffer))) ))) -;;; Verification and synopses +;;; Utilities (defun lm-insert-at-column (col &rest strings) "Insert list of STRINGS, at column COL." (if (> (current-column) col) (insert "\n")) (move-to-column-force col) (apply 'insert strings)) + +;;; Entry points: verification, synopses, and bug reporting (defun lm-verify (&optional file showok &optional verb) "Check that the current buffer (or FILE if given) is in proper format. ＠＠ -515,13 +517,13 ＠＠ )) (defun lm-synopsis (&optional file showall) - "Generate a synopsis listing for the buffer or the given FILE if given. + "Generate a synopsis listing for FILE, defaulting to the visited file. If FILE is a directory, recurse on its files and generate a report in -a temporary buffer. If SHOWALL is non-nil, also generate a line for files -which do not include a recognizable synopsis." - (interactive - (list - (read-file-name "Synopsis for (file or dir): "))) +a temporary buffer. If optional SHOWALL is non-nil, also generate a line +for files which do not include a recognizable synopsis. Interactively, +to specify the current directory, remove the trailing slash from the default +string. Interactively, SHOWALL is taken from the prefix argument." + (interactive "FSynopsis for (file or dir): \nP") (if (and file (file-directory-p file)) (progn ＠＠ -550,6 +552,7 ＠＠ (kill-buffer (current-buffer))) )))) +;; #### This should call out to `report-xemacs-bug'. (defun lm-report-bug (topic) "Report a bug in the package currently being visited to its maintainer. Prompts for bug subject. Leaves you in a mail buffer." _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches

1 participants
0 comments

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

XEmacs-Patches April 2009