June 2006 - xemacs-cvs＠xemacs.org - XEmacs Mailing List Archives

CVS update by viteno packages ... 17 years, 10 months

CVS Monitor

User: viteno Date: 06/06/28 09:57:33 Modified: packages ChangeLog Log: Package release Revision Changes Path 1.627 +4 -0 XEmacs/packages/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/ChangeLog,v retrieving revision 1.626 retrieving revision 1.627 diff -u -p -r1.626 -r1.627 --- ChangeLog 2006/06/16 10:25:06 1.626 +++ ChangeLog 2006/06/28 07:57:33 1.627 ＠＠ -1,3 +1,7 ＠＠ +2006-06-28 Norbert Koch <viteno(a)xemacs.org> + + * Packages released: edit-utils latin-unity. + 2006-06-16 Norbert Koch <viteno(a)xemacs.org> * Packages released: prog-modes xemacs-base.

1 participants
0 comments

CVS update by james xemacs/src, redisplay-output.c ... 17 years, 10 months

CVS Monitor

User: james Date: 06/06/28 00:59:45 Modified: xemacs/src ChangeLog redisplay-gtk.c redisplay-msw.c redisplay-output.c redisplay-tty.c redisplay-x.c Log: Don't leak Dynarr's in redisplay. <m3sllwwxja.fsf(a)jerrypc.cs.usu.edu> Revision Changes Path 1.980 +9 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.979 retrieving revision 1.980 diff -u -p -r1.979 -r1.980 --- ChangeLog 2006/06/23 15:44:59 1.979 +++ ChangeLog 2006/06/27 22:59:37 1.980 ＠＠ -1,3 +1,12 ＠＠ +2006-06-22 Jerry James <james(a)xemacs.org> + + * redisplay-gtk.c (gtk_output_display_block): Fix a Dynarr leak. + Don't create the buffer if there is nothing to do. + * redisplay-msw.c (mswindows_output_display_block): Ditto. + * redisplay-output.c (redisplay_output_layout): Ditto. + * redisplay-tty.c (tty_output_display_block): Ditto. + * redisplay-x.c (x_output_display_block): Ditto. + 2006-06-23 Stephen J. Turnbull <stephen(a)xemacs.org> * font-mgr.c (extract_fcapi_string): 1.19 +2 -2 XEmacs/xemacs/src/redisplay-gtk.c Index: redisplay-gtk.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-gtk.c,v retrieving revision 1.18 retrieving revision 1.19 diff -u -p -r1.18 -r1.19 --- redisplay-gtk.c 2005/11/22 11:24:45 1.18 +++ redisplay-gtk.c 2006/06/27 22:59:39 1.19 ＠＠ -293,7 +293,7 ＠＠ gtk_output_display_block (struct window int cursor_width, int cursor_height) { struct frame *f = XFRAME (w->frame); - Ichar_dynarr *buf = Dynarr_new (Ichar); + Ichar_dynarr *buf; Lisp_Object window; struct display_block *db = Dynarr_atp (dl->display_blocks, block); ＠＠ -325,7 +325,7 ＠＠ gtk_output_display_block (struct window if (end < 0) end = Dynarr_length (rba); - Dynarr_reset (buf); + buf = Dynarr_new (Ichar); while (elt < end) { 1.43 +2 -2 XEmacs/xemacs/src/redisplay-msw.c Index: redisplay-msw.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-msw.c,v retrieving revision 1.42 retrieving revision 1.43 diff -u -p -r1.42 -r1.43 --- redisplay-msw.c 2005/01/24 23:34:07 1.42 +++ redisplay-msw.c 2006/06/27 22:59:39 1.43 ＠＠ -907,7 +907,7 ＠＠ mswindows_output_display_block (struct w int cursor_width, int cursor_height) { struct frame *f = XFRAME (w->frame); - Ichar_dynarr *buf = Dynarr_new (Ichar); + Ichar_dynarr *buf; Lisp_Object window; struct display_block *db = Dynarr_atp (dl->display_blocks, block); ＠＠ -934,7 +934,7 ＠＠ mswindows_output_display_block (struct w if (end < 0) end = Dynarr_length (rba); - Dynarr_reset (buf); + buf = Dynarr_new (Ichar); while (elt < end) { 1.27 +3 -1 XEmacs/xemacs/src/redisplay-output.c Index: redisplay-output.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-output.c,v retrieving revision 1.26 retrieving revision 1.27 diff -u -p -r1.26 -r1.27 --- redisplay-output.c 2005/01/24 23:34:07 1.26 +++ redisplay-output.c 2006/06/27 22:59:40 1.27 ＠＠ -1407,7 +1407,7 ＠＠ redisplay_output_layout (Lisp_Object dom { Lisp_Image_Instance *p = XIMAGE_INSTANCE (image_instance); Lisp_Object rest, window = DOMAIN_WINDOW (domain); - Ichar_dynarr *buf = Dynarr_new (Ichar); + Ichar_dynarr *buf; struct window *w = XWINDOW (window); struct device *d = DOMAIN_XDEVICE (domain); int layout_height, layout_width; ＠＠ -1423,6 +1423,8 ＠＠ redisplay_output_layout (Lisp_Object dom /* This makes the glyph area fit into the display area. */ if (!redisplay_normalize_glyph_area (db, dga)) return; + + buf = Dynarr_new (Ichar); /* Highly dodgy optimization. We want to only output the whole layout if we really have to. */ 1.26 +2 -2 XEmacs/xemacs/src/redisplay-tty.c Index: redisplay-tty.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-tty.c,v retrieving revision 1.25 retrieving revision 1.26 diff -u -p -r1.25 -r1.26 --- redisplay-tty.c 2005/01/24 23:34:07 1.25 +++ redisplay-tty.c 2006/06/27 22:59:40 1.26 ＠＠ -206,7 +206,7 ＠＠ tty_output_display_block (struct window int UNUSED (cursor_height)) { struct frame *f = XFRAME (w->frame); - Ichar_dynarr *buf = Dynarr_new (Ichar); + Ichar_dynarr *buf; struct display_block *db = Dynarr_atp (dl->display_blocks, block); rune_dynarr *rba = db->runes; ＠＠ -232,7 +232,7 ＠＠ tty_output_display_block (struct window if (end < 0) end = Dynarr_length (rba); - Dynarr_reset (buf); + buf = Dynarr_new (Ichar); while (elt < end && Dynarr_atp (rba, elt)->xpos < start_pixpos) { 1.43 +2 -2 XEmacs/xemacs/src/redisplay-x.c Index: redisplay-x.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/redisplay-x.c,v retrieving revision 1.42 retrieving revision 1.43 diff -u -p -r1.42 -r1.43 --- redisplay-x.c 2006/06/03 17:50:55 1.42 +++ redisplay-x.c 2006/06/27 22:59:40 1.43 ＠＠ -432,7 +432,7 ＠＠ x_output_display_block (struct window *w #ifndef USE_XFT struct frame *f = XFRAME (w->frame); #endif - Ichar_dynarr *buf = Dynarr_new (Ichar); + Ichar_dynarr *buf; Lisp_Object window; struct display_block *db = Dynarr_atp (dl->display_blocks, block); ＠＠ -459,7 +459,7 ＠＠ x_output_display_block (struct window *w if (end < 0) end = Dynarr_length (rba); - Dynarr_reset (buf); + buf = Dynarr_new (Ichar); while (elt < end) {

1 participants
0 comments

CVS update by viteno xemacs ... 17 years, 10 months

CVS Monitor

User: viteno Date: 06/06/27 23:51:10 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1575 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1574 retrieving revision 1.1575 diff -u -p -r1.1574 -r1.1575 --- version.sh 2006/06/26 21:51:09 1.1574 +++ version.sh 2006/06/27 21:51:09 1.1575 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060626)" +xemacs_extra_name="(+CVS-20060627)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by viteno xemacs ... 17 years, 10 months

CVS Monitor

User: viteno Date: 06/06/26 23:51:10 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1574 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1573 retrieving revision 1.1574 diff -u -p -r1.1573 -r1.1574 --- version.sh 2006/06/25 21:51:08 1.1573 +++ version.sh 2006/06/26 21:51:09 1.1574 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060625)" +xemacs_extra_name="(+CVS-20060626)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by adrian xemacs-builds/adrian/website ... 17 years, 10 months

CVS Monitor

User: adrian Date: 06/06/26 18:55:03 Modified: xemacs-builds/adrian/website apa-linklint-utils.el Log: Add apa-linklint-sort-paragraph-by-failed. Revision Changes Path 1.3 +7 -0 XEmacs/xemacs-builds/adrian/website/apa-linklint-utils.el Index: apa-linklint-utils.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/adrian/website/apa-linklint-utils.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- apa-linklint-utils.el 2006/06/07 06:56:23 1.2 +++ apa-linklint-utils.el 2006/06/26 16:55:02 1.3 ＠＠ -41,3 +41,10 ＠＠ offered to be saved by use of `apa-save- (let ((compilation-mode-hook 'apa-linklint-compilation-mode-hook)) (igrep-find "grep" "were ok, " '("urlsum.txt") "-Pi")))) + +(defun apa-linklint-sort-paragraph-by-failed () +"Sort paragraphs in buffer by number of failed urls, in reverse order. + +Buffer is assumed to contain the contents of a urlfailF.txt linklint file." + (interactive) + (sort-regexp-fields-numerically t "^\$.+\n\$+[ ]+had \$[0-9]+\$ failed.+\n\$.+\n\$+" "\\2" (point-min) (point-max)))

1 participants
0 comments

CVS update by viteno xemacs ... 17 years, 10 months

CVS Monitor

User: viteno Date: 06/06/25 23:51:10 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1573 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1572 retrieving revision 1.1573 diff -u -p -r1.1572 -r1.1573 --- version.sh 2006/06/24 21:51:08 1.1572 +++ version.sh 2006/06/25 21:51:08 1.1573 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060624)" +xemacs_extra_name="(+CVS-20060625)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by aidan xemacs/lisp ... 17 years, 10 months

CVS Monitor

User: aidan Date: 06/06/25 19:27:31 Modified: xemacs/lisp ChangeLog x-init.el Log: Stop complaining about unknown Unicode keysyms. Revision Changes Path 1.751 +11 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.750 retrieving revision 1.751 diff -u -p -r1.750 -r1.751 --- ChangeLog 2006/06/25 13:58:02 1.750 +++ ChangeLog 2006/06/25 17:27:28 1.751 ＠＠ -1,5 +1,11 ＠＠ 2006-06-25 Aidan Kehoe <kehoea(a)parhasard.net> + * x-init.el (x-initialize-keyboard): + No longer warn about Unicode keysyms without a mapping, since we + now have valid mappings for all Unicode keysyms. + +2006-06-25 Aidan Kehoe <kehoea(a)parhasard.net> + * cmdloop.el (read-quoted-char): Don't error on non-character keys, accept them as terminating the sequence. ＠＠ -26,7 +32,12 ＠＠ * unicode.el: * unicode.el (featurep): + Define a CCL program to translate characters to Unicode, for use + in redisplay with the fall-back Unicode charsets. * x-init.el (x-initialize-keyboard): + Only warn about unknown Unicode keysyms if Mule is available; we + assume that people who've chosen non-Mule are okay with losing + data. 2006-06-03 Adrian Aichner <adrian(a)xemacs.org> 1.18 +1 -36 XEmacs/xemacs/lisp/x-init.el Index: x-init.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/x-init.el,v retrieving revision 1.17 retrieving revision 1.18 diff -u -p -r1.17 -r1.18 --- x-init.el 2006/06/03 17:50:40 1.17 +++ x-init.el 2006/06/25 17:27:29 1.18 ＠＠ -234,42 +234,7 ＠＠ (x-win-init-sun)) ((string-match "XFree86" vendor) ;; Those XFree86 people do some weird keysym stuff, too. - (x-win-init-xfree86)))) - ;; Perhaps tell people that some keys won't work. - ;; - ;; If they remap while XEmacs is running and this problem arises, they - ;; won't see the messages. Which should be okay, assuming the length of - ;; time before we get a Unicode-compatible internal encoding is relatively - ;; short. - (let (unknown-code-points sym-string) - (dolist (x-keysym (hash-table-key-list (x-keysym-hash-table))) - (setq sym-string (if (stringp x-keysym) x-keysym (symbol-name x-keysym))) - (when (and (not (get (intern sym-string) 'character-of-keysym)) - (string-match "^U[0-9A-F]+$" sym-string)) - (pushnew (concat sym-string " ") unknown-code-points :test 'equal))) - (when (and (featurep 'mule) unknown-code-points) - (lwarn 'key-mapping 'info - "Undefined Unicode key mappings. -Your keyboard has, among many others, the following keysyms defined: - -%s -The standards say that applications should interpret these keysyms as -representing the corresponding Unicode code points (e.g. U2720 should -represent MALTESE CROSS), but unfortunately the current version of XEmacs -has no support for many of those characters in its internal encoding, and -when it encounters the keysyms corresponding to those characters, they -remain unbound. - -See the documentation for `unicode-to-char' for one technique if you have an -urgent need for support for one of those characters--you probably don't, -most of the widely-used characters have mappings in the internal XEmacs -encoding--otherwise, wait until we ship a version with an internal encoding -based on Unicode. " - (with-string-as-buffer-contents (apply 'concat " " - unknown-code-points) - (setq fill-prefix " ") - (fill-paragraph nil)))))) - + (x-win-init-xfree86))))) ;; Moved from x-toolbar.el, since InfoDock doesn't dump x-toolbar.el. (defun x-init-toolbar-from-resources (locale)

1 participants
0 comments

CVS update by aidan xemacs/lisp ... 17 years, 10 months

CVS Monitor

User: aidan Date: 06/06/25 15:58:05 Modified: xemacs/lisp ChangeLog cmdloop.el Log: Don't error on non-character keys in read-quoted-char, accept them as terminating the sequence instead. Revision Changes Path 1.750 +6 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.749 retrieving revision 1.750 diff -u -p -r1.749 -r1.750 --- ChangeLog 2006/06/18 21:43:38 1.749 +++ ChangeLog 2006/06/25 13:58:02 1.750 ＠＠ -1,3 +1,9 ＠＠ +2006-06-25 Aidan Kehoe <kehoea(a)parhasard.net> + + * cmdloop.el (read-quoted-char): + Don't error on non-character keys, accept them as terminating the + sequence. + 2006-06-18 Aidan Kehoe <kehoea(a)parhasard.net> * x-compose.el (compose-diaeresis-map): 1.22 +3 -4 XEmacs/xemacs/lisp/cmdloop.el Index: cmdloop.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cmdloop.el,v retrieving revision 1.21 retrieving revision 1.22 diff -u -p -r1.21 -r1.22 --- cmdloop.el 2006/04/16 17:09:30 1.21 +++ cmdloop.el 2006/06/25 13:58:03 1.22 ＠＠ -577,10 +577,9 ＠＠ any other non-digit terminates the chara read-quoted-char-radix))) (and prompt (display-message 'prompt (format "%s-" prompt))) (setq event (next-command-event) - char (or (event-to-character event) - (signal 'error - (list "key read cannot be inserted in a buffer" - event)))) + ;; If event-to-character fails, this is fine, we handle that + ;; with the (null char) cond branch below. + char (event-to-character event)) (if inhibit-quit (setq quit-flag nil))) ;; Translate TAB key into control-I ASCII character, and so on. (and char

1 participants
0 comments

CVS update by aidan packages/mule-packages/latin-unity, latin-unity-latin10.el, latin-unity-latin8.el ... 17 years, 10 months

CVS Monitor

User: aidan Date: 06/06/25 11:36:40 Modified: packages/mule-packages/latin-unity ChangeLog latin-unity-latin10.el latin-unity-latin7.el latin-unity-latin8.el latin-unity-latin9.el Log: Fix some assertions in latin-unity. Revision Changes Path 1.46 +14 -0 XEmacs/packages/mule-packages/latin-unity/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/ChangeLog,v retrieving revision 1.45 retrieving revision 1.46 diff -u -p -r1.45 -r1.46 --- ChangeLog 2006/05/03 12:04:44 1.45 +++ ChangeLog 2006/06/25 09:36:39 1.46 ＠＠ -1,3 +1,17 ＠＠ +2006-06-25 Aidan Kehoe <kehoea(a)parhasard.net> + + * latin-unity-latin10.el (charsetp): + * latin-unity-latin10.el (coding-system-p): + * latin-unity-latin7.el (charsetp): + * latin-unity-latin7.el (coding-system-p): + * latin-unity-latin8.el (charsetp): + * latin-unity-latin8.el (coding-system-p): + * latin-unity-latin9.el (charsetp): + * latin-unity-latin9.el (coding-system-p): + I didn't understand assert's calling conventions when writing this + code, and as a result an assertion failure doesn't show the string + I intended it to. + 2006-05-03 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.17 released. 1.3 +3 -3 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin10.el Index: latin-unity-latin10.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin10.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- latin-unity-latin10.el 2005/02/15 22:22:47 1.2 +++ latin-unity-latin10.el 2006/06/25 09:36:39 1.3 ＠＠ -46,16 +46,16 ＠＠ ;; Check that we're functionally equivalent to the old latin-unity-latin10.el ;; The character set should exist. -(assert (charsetp (find-charset 'latin-iso8859-16)) +(assert (charsetp (find-charset 'latin-iso8859-16)) t "`latin-euro-standards' didn't provide a Latin 10 character set!") ;; As should the coding system. -(assert (coding-system-p (find-coding-system 'iso-8859-16)) +(assert (coding-system-p (find-coding-system 'iso-8859-16)) t "`latin-euro-standards' didn't provide a Latin 10 coding system!") ;; And we should have a language environment. (assert - (assoc "Latin-10" language-info-alist) + (assoc "Latin-10" language-info-alist) t "`latin-euro-standards' didn't provide a Latin 10 language environment!") (provide 'latin-unity-latin10) 1.3 +3 -3 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin7.el Index: latin-unity-latin7.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin7.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- latin-unity-latin7.el 2005/02/15 22:22:47 1.2 +++ latin-unity-latin7.el 2006/06/25 09:36:39 1.3 ＠＠ -46,16 +46,16 ＠＠ ;; Check that we're functionally equivalent to the old latin-unity-latin7.el ;; The character set should exist. -(assert (charsetp (find-charset 'latin-iso8859-13)) +(assert (charsetp (find-charset 'latin-iso8859-13)) t "`latin-euro-standards' didn't provide a Latin 7 character set!") ;; As should the coding system. -(assert (coding-system-p (find-coding-system 'iso-8859-13)) +(assert (coding-system-p (find-coding-system 'iso-8859-13)) t "`latin-euro-standards' didn't provide a Latin 7 coding system!") ;; And we should have a language environment. (assert - (assoc "Latin-7" language-info-alist) + (assoc "Latin-7" language-info-alist) t "`latin-euro-standards' didn't provide a Latin 7 language environment!") (provide 'latin-unity-latin7) 1.3 +3 -3 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin8.el Index: latin-unity-latin8.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin8.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- latin-unity-latin8.el 2005/02/15 22:22:47 1.2 +++ latin-unity-latin8.el 2006/06/25 09:36:40 1.3 ＠＠ -46,16 +46,16 ＠＠ ;; Check that we're functionally equivalent to the old latin-unity-latin8.el ;; The character set should exist. -(assert (charsetp (find-charset 'latin-iso8859-14)) +(assert (charsetp (find-charset 'latin-iso8859-14)) t "`latin-euro-standards' didn't provide a Latin 8 character set!") ;; As should the coding system. -(assert (coding-system-p (find-coding-system 'iso-8859-14)) +(assert (coding-system-p (find-coding-system 'iso-8859-14)) t "`latin-euro-standards' didn't provide a Latin 8 coding system!") ;; And we should have a language environment. (assert - (assoc "Latin-8" language-info-alist) + (assoc "Latin-8" language-info-alist) t "`latin-euro-standards' didn't provide a Latin 8 language environment!") (provide 'latin-unity-latin8) 1.8 +3 -3 XEmacs/packages/mule-packages/latin-unity/latin-unity-latin9.el Index: latin-unity-latin9.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-latin9.el,v retrieving revision 1.7 retrieving revision 1.8 diff -u -p -r1.7 -r1.8 --- latin-unity-latin9.el 2005/02/15 22:22:48 1.7 +++ latin-unity-latin9.el 2006/06/25 09:36:40 1.8 ＠＠ -46,16 +46,16 ＠＠ ;; Check that we're functionally equivalent to the old latin-unity-latin9.el ;; The character set should exist. -(assert (charsetp (find-charset 'latin-iso8859-16)) +(assert (charsetp (find-charset 'latin-iso8859-16)) t "`latin-euro-standards' didn't provide a Latin 9 character set!") ;; As should the coding system. -(assert (coding-system-p (find-coding-system 'iso-8859-15)) +(assert (coding-system-p (find-coding-system 'iso-8859-15)) t "`latin-euro-standards' didn't provide a Latin 9 coding system!") ;; And we should have a language environment. (assert - (assoc "Latin-9" language-info-alist) + (assoc "Latin-9" language-info-alist) t "`latin-euro-standards' didn't provide a Latin 9 language environment!") (provide 'latin-unity-latin9)

1 participants
0 comments

CVS update by aidan packages/xemacs-packages/edit-utils, toolbar-utils.el ... 17 years, 10 months

CVS Monitor

User: aidan Date: 06/06/25 11:18:16 Modified: packages/xemacs-packages/edit-utils ChangeLog toolbar-utils.el Log: Set toolbar to default-toolbar if not passed as an argument. Fix wrong usage of setcdr when setting specifier. Thank you Jeff Miller! Revision Changes Path 1.221 +6 -0 XEmacs/packages/xemacs-packages/edit-utils/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/ChangeLog,v retrieving revision 1.220 retrieving revision 1.221 diff -u -p -r1.220 -r1.221 --- ChangeLog 2006/03/07 07:14:12 1.220 +++ ChangeLog 2006/06/25 09:18:15 1.221 ＠＠ -1,3 +1,9 ＠＠ +2006-06-22 Jeff Miller <jmiller(a)cablespeed.com> + + * toolbar-utils.el (toolbar-kill-item-pos): set toolbar to + default-toolbar if not passed as an argument. Fix wrong usage of + setcdr when setting specifier. + 2006-03-07 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 2.34 released. 1.3 +7 -7 XEmacs/packages/xemacs-packages/edit-utils/toolbar-utils.el Index: toolbar-utils.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/toolbar-utils.el,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- toolbar-utils.el 2002/12/12 03:28:33 1.2 +++ toolbar-utils.el 2006/06/25 09:18:15 1.3 ＠＠ -383,14 +383,14 ＠＠ spacers, and `toolbar-find-button' to lo See also `toolbar-find-button-by-icon', `toolbar-find-button-by-command', and `toolbar-find-button-by-help-string'." (setq locale (or locale 'global)) - (let ((spec (cdadar (specifier-spec-list (or toolbar default-toolbar) - locale)))) + (setq toolbar (or toolbar default-toolbar)) + (let ((spec (cdadar (specifier-spec-list toolbar locale)))) (setq button-palette (cons (nth pos spec) button-palette)) - (set-specifier toolbar (if (eq pos 0) - (cdr spec) - (setcdr (nthcdr (1- pos) spec) - (nthcdr (1+ pos) spec))) - locale))) + (if (eq pos 0) + (setq spec (cdr spec)) + (setcdr (nthcdr (1- pos) spec) + (nthcdr (1+ pos) spec))) + (set-specifier toolbar spec locale))) ;; locating buttons by their content, returning a position

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

xemacs-cvs June 2006