November 2005 - xemacs-cvs＠xemacs.org - XEmacs Mailing List Archives

CVS update by adrian packages/xemacs-packages/edit-utils ... 19 years, 2 months

CVS Monitor

User: adrian Date: 05/11/21 08:59:43 Modified: packages/xemacs-packages/edit-utils ChangeLog Makefile Log: packages: Add crm.elc to edit-utils/Makefile -------------------- ChangeLog entries follow: -------------------- xemacs-packages/edit-utils/ChangeLog addition: 2005-11-21 Adrian Aichner <adrian(a)xemacs.org> * Makefile (ELCS): Add crm.elc. Revision Changes Path 1.213 +4 -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.212 retrieving revision 1.213 diff -u -p -r1.212 -r1.213 --- ChangeLog 2005/11/21 07:42:13 1.212 +++ ChangeLog 2005/11/21 07:59:42 1.213 ＠＠ -1,3 +1,7 ＠＠ +2005-11-21 Adrian Aichner <adrian(a)xemacs.org> + + * Makefile (ELCS): Add crm.elc. + 2005-11-21 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 2.30 released. 1.143 +1 -1 XEmacs/packages/xemacs-packages/edit-utils/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/Makefile,v retrieving revision 1.142 retrieving revision 1.143 diff -u -p -r1.142 -r1.143 --- Makefile 2005/11/21 07:42:13 1.142 +++ Makefile 2005/11/21 07:59:42 1.143 ＠＠ -42,7 +42,7 ＠＠ ELCS = abbrevlist.elc after-save-command toolbar-utils.elc tree-menu.elc uniquify.elc where-was-i-db.elc \ winring.elc vertical-mode.elc power-macros.elc \ search-buffers.elc setnu.elc align.elc autorevert.elc allout.elc \ - narrow-stack.elc highline.elc + narrow-stack.elc highline.elc crm.elc EXPLICIT_DOCS = $(PACKAGE).texi tempo.texi

1 participants
0 comments

CVS update by viteno xemacs-builds/viteno ... 19 years, 2 months

CVS Monitor

User: viteno Date: 05/11/21 08:56:08 Modified: xemacs-builds/viteno package-index setup-packages.ini Log: Package database backup: - edit-utils-2.30 - riece-1.21 Revision Changes Path 1.262 +15 -15 XEmacs/xemacs-builds/viteno/package-index Index: package-index =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/package-index,v retrieving revision 1.261 retrieving revision 1.262 diff -u -p -r1.261 -r1.262 --- package-index 2005/11/16 08:49:11 1.261 +++ package-index 2005/11/21 07:56:07 1.262 ＠＠ -194,21 +194,21 ＠＠ (package-get-update-base-entry (quote (riece (standards-version 1.1 - version "1.20" - author-version "2.0.0" - date "2005-08-31" - build-date "2005-08-31" + version "1.21" + author-version "2.0.2" + date "2005-11-21" + build-date "2005-11-21" maintainer "Daiki Ueno <ueno(a)unixuser.org>" distribution xemacs priority high category "standard" dump nil description "IRC (Internet Relay Chat) client for Emacs." - filename "riece-1.20-pkg.tar.gz" - md5sum "2d609f9b62ed05526bd43f3f83a6138c" - size 201699 - provides (riece-compat riece-xemacs riece-globals riece-options riece-debug riece-version riece-coding riece-complete riece-addon-modules riece-addon riece-ruby riece-mode riece-identity riece-channel riece-user riece-misc riece-signal riece-layout riece-display riece-server riece-naming riece-message riece-filter riece-handle riece-000 riece-200 riece-300 riece-400 riece-500 riece-commands riece-irc riece riece-alias riece-async riece-biff riece-button riece-ctcp riece-ctlseq riece-doctor riece-eval-ruby riece-eval riece-foolproof riece-google riece-guess riece-hangman riece-highlight riece-history riece-icon riece-ignore riece-kakasi riece-keepalive riece-keyword riece-log riece-lsdb riece-menu riece-mini riece-rdcc riece-shrink-buffer riece-skk-kakutei riece-toolbar riece-unread riece-url riece-xface riece-yank) - requires (xemacs-base mail-lib) + filename "riece-1.21-pkg.tar.gz" + md5sum "69dad9e533297eb21313dde7b8ce0026" + size 198929 + provides (riece-compat riece-xemacs riece-globals riece-options riece-debug riece-version riece-coding riece-complete riece-addon-modules riece-addon riece-ruby riece-cache riece-mode riece-identity riece-channel riece-user riece-misc riece-signal riece-layout riece-display riece-server riece-naming riece-message riece-filter riece-handle riece-000 riece-200 riece-300 riece-400 riece-500 riece-commands riece-irc riece riece-alias riece-async riece-biff riece-button riece-ctcp riece-ctlseq riece-doctor riece-eval-ruby riece-eval riece-foolproof riece-google riece-guess riece-hangman riece-highlight riece-history riece-icon riece-ignore riece-kakasi riece-keepalive riece-keyword riece-log riece-lsdb riece-menu riece-mini riece-rdcc riece-shrink-buffer riece-skk-kakutei riece-toolbar riece-unread riece-url riece-xface riece-xfaceb riece-yank) + requires (xemacs-base mail-lib bbdb) type regular )) )) ＠＠ -789,19 +789,19 ＠＠ (package-get-update-base-entry (quote (edit-utils (standards-version 1.1 - version "2.29" + version "2.30" author-version "No-Upstream-Ver" - date "2005-11-14" - build-date "2005-11-14" + date "2005-11-21" + build-date "2005-11-21" maintainer "XEmacs Development Team <xemacs-beta(a)xemacs.org>" distribution xemacs priority high category "standard" dump nil description "Miscellaneous editor extensions, you probably need this." - filename "edit-utils-2.29-pkg.tar.gz" - md5sum "72482ee2b31c49871d6ba00a3230de8f" - size 934572 + filename "edit-utils-2.30-pkg.tar.gz" + md5sum "2e80b10a989834108fbf5ef67472655d" + size 934695 provides (abbrevlist after-save-commands atomic-extents avoid backup-dir balloon-help big-menubar blink-cursor blink-paren bookmark compare-w completion dabbrev desktop detached-minibuf edit-toolbar fast-lock file-part floating-toolbar flow-ctrl foldout func-menu hippie-exp icomplete id-select info-look iswitchb lazy-lock lazy-shot live-icon makesum man mic-paren paren mode-motion+ outl-mouse outln-18 page-ext blink-paren paren permanent-buffers popper power-macros recent-files redo reportmail resume rsz-minibuf saveconf savehist saveplace scroll-in-place setnu shell-font tempo toolbar-utils tree-menu uniquify vertical-mode where-was-i-db winring autorevert align allout outline narrow-stack highline) requires (xemacs-base xemacs-devel fsf-compat dired mail-lib) type single 1.250 +4 -4 XEmacs/xemacs-builds/viteno/setup-packages.ini Index: setup-packages.ini =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/viteno/setup-packages.ini,v retrieving revision 1.249 retrieving revision 1.250 diff -u -p -r1.249 -r1.250 --- setup-packages.ini 2005/11/16 08:49:11 1.249 +++ setup-packages.ini 2005/11/21 07:56:07 1.250 ＠＠ -320,8 +320,8 ＠＠ version: 1.11 install: packages/ps-print-1.11-pkg.tar.gz 156222 ＠ edit-utils -version: 2.29 -install: packages/edit-utils-2.29-pkg.tar.gz 934572 +version: 2.30 +install: packages/edit-utils-2.30-pkg.tar.gz 934695 ＠ fsf-compat version: 1.15 ＠＠ -424,8 +424,8 ＠＠ version: 1.04 install: packages/oo-browser-1.04-pkg.tar.gz 515713 ＠ riece -version: 1.20 -install: packages/riece-1.20-pkg.tar.gz 201699 +version: 1.21 +install: packages/riece-1.21-pkg.tar.gz 198929 ＠ general-docs version: 1.04

1 participants
0 comments

CVS update by viteno packages/xemacs-packages/riece ... 19 years, 2 months

CVS Monitor

User: viteno Date: 05/11/21 08:42:45 Modified: packages/xemacs-packages/riece ChangeLog Makefile Log: Increment VERSION in Makefile Revision Changes Path 1.23 +4 -0 XEmacs/packages/xemacs-packages/riece/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/ChangeLog,v retrieving revision 1.22 retrieving revision 1.23 diff -u -p -r1.22 -r1.23 --- ChangeLog 2005/11/20 07:46:24 1.22 +++ ChangeLog 2005/11/21 07:42:45 1.23 ＠＠ -1,3 +1,7 ＠＠ +2005-11-21 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 1.21 released. + 2005-11-19 Daiki Ueno <ueno(a)unixuser.org> * Riece: Version 2.0.2 released. 1.23 +1 -1 XEmacs/packages/xemacs-packages/riece/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/Makefile,v retrieving revision 1.22 retrieving revision 1.23 diff -u -p -r1.22 -r1.23 --- Makefile 2005/11/20 07:46:24 1.22 +++ Makefile 2005/11/21 07:42:45 1.23 ＠＠ -19,7 +19,7 ＠＠ # This XEmacs package contains the riece IRC client package -VERSION = 1.20 +VERSION = 1.21 AUTHOR_VERSION = 2.0.2 MAINTAINER = Daiki Ueno <ueno(a)unixuser.org> PACKAGE = riece

1 participants
0 comments

CVS update by viteno packages/xemacs-packages/edit-utils ... 19 years, 2 months

CVS Monitor

User: viteno Date: 05/11/21 08:42:13 Modified: packages/xemacs-packages/edit-utils ChangeLog Makefile Log: Increment VERSION in Makefile Revision Changes Path 1.212 +4 -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.211 retrieving revision 1.212 diff -u -p -r1.211 -r1.212 --- ChangeLog 2005/11/20 21:36:57 1.211 +++ ChangeLog 2005/11/21 07:42:13 1.212 ＠＠ -1,3 +1,7 ＠＠ +2005-11-21 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 2.30 released. + 2005-11-20 Adrian Aichner <adrian(a)xemacs.org> * crm.el: New file. This corresponds to revision 1.5 of GNU Emacs 1.142 +1 -1 XEmacs/packages/xemacs-packages/edit-utils/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/edit-utils/Makefile,v retrieving revision 1.141 retrieving revision 1.142 diff -u -p -r1.141 -r1.142 --- Makefile 2005/11/14 07:25:51 1.141 +++ Makefile 2005/11/21 07:42:13 1.142 ＠＠ -19,7 +19,7 ＠＠ # This XEmacs package contains independent single file lisp packages -VERSION = 2.29 +VERSION = 2.30 AUTHOR_VERSION = MAINTAINER = XEmacs Development Team <xemacs-beta(a)xemacs.org> PACKAGE = edit-utils

1 participants
0 comments

CVS update by viteno packages ... 19 years, 2 months

CVS Monitor

User: viteno Date: 05/11/21 08:41:47 Modified: packages ChangeLog Log: Package release Revision Changes Path 1.585 +4 -0 XEmacs/packages/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/ChangeLog,v retrieving revision 1.584 retrieving revision 1.585 diff -u -p -r1.584 -r1.585 --- ChangeLog 2005/11/16 08:08:50 1.584 +++ ChangeLog 2005/11/21 07:41:47 1.585 ＠＠ -1,3 +1,7 ＠＠ +2005-11-21 Norbert Koch <viteno(a)xemacs.org> + + * Packages released: edit-utils riece. + 2005-11-16 Norbert Koch <viteno(a)xemacs.org> * package-compile.el:

1 participants
0 comments

CVS update by viteno xemacs ... 19 years, 2 months

CVS Monitor

User: viteno Date: 05/11/20 23:51:04 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1350 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1349 retrieving revision 1.1350 diff -u -p -r1.1349 -r1.1350 --- version.sh 2005/11/19 22:51:11 1.1349 +++ version.sh 2005/11/20 22:51:04 1.1350 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20051119)" +xemacs_extra_name="(+CVS-20051120)" xemacs_release_date="2005-10-26"

1 participants
0 comments

CVS update by adrian packages/xemacs-packages/edit-utils ... 19 years, 2 months

CVS Monitor

User: adrian Date: 05/11/20 22:36:58 Modified: packages/xemacs-packages/edit-utils ChangeLog Added: packages/xemacs-packages/edit-utils crm.el Log: 2005-11-20 Adrian Aichner <adrian(a)xemacs.org> * crm.el: New file. This corresponds to revision 1.5 of GNU Emacs CVS, plus update of FSF address, as provided in Message-ID: <v9y84g75j2.fsf_-_(a)marauder.physik.uni-ulm.de> by Reiner Steib. Revision Changes Path 1.211 +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.210 retrieving revision 1.211 diff -u -p -r1.210 -r1.211 --- ChangeLog 2005/11/14 07:25:51 1.210 +++ ChangeLog 2005/11/20 21:36:57 1.211 ＠＠ -1,3 +1,9 ＠＠ +2005-11-20 Adrian Aichner <adrian(a)xemacs.org> + + * crm.el: New file. This corresponds to revision 1.5 of GNU Emacs + CVS, plus update of FSF address, as provided in Message-ID: + <v9y84g75j2.fsf_-_(a)marauder.physik.uni-ulm.de> by Reiner Steib. + 2005-11-14 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 2.29 released. 1.1 XEmacs/packages/xemacs-packages/edit-utils/crm.el Index: crm.el =================================================================== ;;; crm.el --- read multiple strings with completion ;; Copyright (C) 1985, 1986, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000 ;; Free Software Foundation, Inc. ;; Author: Sen Nagata <sen(a)eccosys.com> ;; Keywords: completion, minibuffer, multiple elements ;; This file is part of GNU Emacs. ;; GNU Emacs 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. ;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; This code defines a function, `completing-read-multiple', which ;; provides the ability to read multiple strings in the minibuffer, ;; with completion. ;; By using this functionality, a user may specify multiple strings at ;; a single prompt, optionally using completion. ;; Multiple strings are specified by separating each of the strings ;; with a prespecified separator character. For example, if the ;; separator character is a comma, the strings 'alice', 'bob', and ;; 'eve' would be specified as 'alice,bob,eve'. ;; The default value for the separator character is the value of ;; `crm-default-separator' (comma). The separator character may be ;; changed by modifying the value of `crm-separator'. ;; Contiguous strings of non-separator-characters are referred to as ;; 'elements'. In the aforementioned example, the elements are: ;; 'alice', 'bob', and 'eve'. ;; Completion is available on a per-element basis. For example, if ;; the contents of the minibuffer are 'alice,bob,eve' and point is ;; between 'l' and 'i', pressing TAB operates on the element 'alice'. ;; For the moment, I have decided to not bind any special behavior to ;; the separator key. In the future, the separator key might be used ;; to provide completion in certain circumstances. One of the reasons ;; why this functionality is not yet provided is that it is unclear to ;; the author what the precise circumstances are, under which ;; separator-invoked completion should be provided. ;; Design note: `completing-read-multiple' is modeled after ;; `completing-read'. They should be similar -- it was intentional. ;; Some of this code started out as translation from C code in ;; src/minibuf.c to Emacs Lisp code. ;; Thanks to Richard Stallman for all of his help (many of the good ;; ideas in here are from him), Gerd Moellmann for his attention, ;; Stefan Monnier for responding with a code sample and comments very ;; early on, and Kai Grossjohann & Soren Dayton for valuable feedback. ;;; Questions and Thoughts: ;; -the author has gone through a number of test-and-fix cycles w/ ;; this code, so it should be usable. please let me know if you find ;; any problems. ;; -should `completing-read-multiple' allow a trailing separator in ;; a return value when REQUIRE-MATCH is t? if not, should beep when a user ;; tries to exit the minibuffer via RET? ;; -TODO: possibly make return values from `crm-do-completion' into constants ;; -TODO: find out whether there is an appropriate way to distinguish between ;; functions intended for internal use and those that aren't. ;; -tip: use M-f and M-b for ease of navigation among elements. ;;; History: ;; ;; 2000-04-10: ;; ;; first revamped version ;;; Code: (defconst crm-default-separator "," "Default separator for `completing-read-multiple'.") (defvar crm-separator crm-default-separator "Separator used for separating strings in `completing-read-multiple'. It should be a single character string that doesn't appear in the list of completion candidates. Modify this value to make `completing-read-multiple' use a separator other than `crm-default-separator'.") ;; actual filling in of these maps occurs below via `crm-init-keymaps' (defvar crm-local-completion-map nil "Local keymap for minibuffer multiple input with completion. Analog of `minibuffer-local-completion-map'.") (defvar crm-local-must-match-map nil "Local keymap for minibuffer multiple input with exact match completion. Analog of `minibuffer-local-must-match-map' for crm.") (defvar crm-completion-table nil "An alist whose elements' cars are strings, or an obarray. This is a table used for completion by `completing-read-multiple' and its supporting functions.") ;; this is supposed to be analogous to last_exact_completion in src/minibuf.c (defvar crm-last-exact-completion nil "Completion string if last attempt reported \"Complete, but not unique\".") (defvar crm-left-of-element nil "String to the left of the current element.") (defvar crm-current-element nil "The current element.") (defvar crm-right-of-element nil "String to the right of the current element.") (defvar crm-beginning-of-element nil "Buffer position representing the beginning of the current element.") (defvar crm-end-of-element nil "Buffer position representing the end of the current element.") ;; emulates temp_echo_area_glyphs from src/minibuf.c (defun crm-temp-echo-area-glyphs (message-string) "Temporarily display MESSAGE-STRING in echo area. After user-input or 2 seconds, erase the displayed string." (save-excursion (goto-char (point-max)) (insert message-string) (sit-for 2) (backward-char (length message-string)) (delete-char (length message-string)))) ;; this function evolved from a posting by Stefan Monnier (defun crm-collection-fn (string predicate flag) "Function used by `completing-read-multiple' to compute completion values. The value of STRING is the string to be completed. The value of PREDICATE is a function to filter possible matches, or nil if none. The value of FLAG is used to specify the type of completion operation. A value of nil specifies `try-completion'. A value of t specifies `all-completions'. A value of lambda specifes a test for an exact match. For more information on STRING, PREDICATE, and FLAG, see the Elisp Reference sections on 'Programmed Completion' and 'Basic Completion Functions'." (let ((lead "")) (when (string-match (concat ".*" crm-separator) string) (setq lead (substring string 0 (match-end 0))) (setq string (substring string (match-end 0)))) (if (eq flag 'lambda) ;; return t for exact match, nil otherwise (let ((result (try-completion string crm-completion-table predicate))) (if (stringp result) nil (if result t nil)))) (if flag ;; called via (all-completions string 'crm-completion-fn predicate)? (all-completions string crm-completion-table predicate) ;; called via (try-completion string 'crm-completion-fn predicate)? (let ((result (try-completion string crm-completion-table predicate))) (if (stringp result) (concat lead result) result))))) (defun crm-find-current-element () "Parse the minibuffer to find the current element. If no element can be found, return nil. If an element is found, bind: -the variable `crm-current-element' to the current element, -the variables `crm-left-of-element' and `crm-right-of-element' to the strings to the left and right of the current element, respectively, and -the variables `crm-beginning-of-element' and `crm-end-of-element' to the buffer positions of the beginning and end of the current element respectively, and return t." (let* ((minibuffer-string (buffer-string)) (end-index (or (string-match "," minibuffer-string (1- (point))) (1- (point-max)))) (target-string (substring minibuffer-string 0 end-index)) (index (or (string-match (concat crm-separator "\$[^" crm-separator "]*\$$") target-string) (string-match (concat "^\$[^" crm-separator "]*\$$") target-string)))) (if (not (numberp index)) ;; no candidate found nil (progn ;; (setq crm-beginning-of-element (match-beginning 1)) (setq crm-end-of-element end-index) ;; string to the left of the current element (setq crm-left-of-element (substring target-string 0 (match-beginning 1))) ;; the current element (setq crm-current-element (match-string 1 target-string)) ;; string to the right of the current element (setq crm-right-of-element (substring minibuffer-string end-index)) t)))) (defun crm-test-completion (candidate) "Return t if CANDIDATE is an exact match for a valid completion." (let ((completions ;; TODO: verify whether the arguments are appropriate (all-completions candidate crm-completion-table minibuffer-completion-predicate))) (if (member candidate completions) t nil))) (defun crm-minibuffer-completion-help () "Display a list of possible completions of the current minibuffer element." (interactive) (message "Making completion list...") (if (not (crm-find-current-element)) nil (let ((completions (all-completions crm-current-element minibuffer-completion-table minibuffer-completion-predicate))) (message nil) (if (null completions) (crm-temp-echo-area-glyphs " [No completions]") (with-output-to-temp-buffer "*Completions*" (display-completion-list (sort completions 'string-lessp)))))) nil) (defun crm-do-completion () "This is the internal completion engine. This function updates the text in the minibuffer to complete the current string, and returns a number between 0 and 6. The meanings of the return values are: 0 - the string has no possible completion 1 - the string is already a valid and unique match 2 - not used 3 - the string is already a valid match (but longer matches exist too) 4 - the string was completed to a valid match 5 - some completion has been done, but the result is not a match 6 - no completion was done, and the string is not an exact match" (if (not (crm-find-current-element)) nil (let (last completion completedp) (setq completion (try-completion crm-current-element minibuffer-completion-table minibuffer-completion-predicate)) (setq last crm-last-exact-completion) (setq crm-last-exact-completion nil) (catch 'crm-exit (if (null completion) ; no possible completion (progn (crm-temp-echo-area-glyphs " [No match]") (throw 'crm-exit 0))) (if (eq completion t) ; was already an exact and unique completion (throw 'crm-exit 1)) (setq completedp (null (string-equal completion crm-current-element))) (if completedp (progn (erase-buffer) (insert crm-left-of-element completion) ;; (if crm-complete-up-to-point ;; (insert crm-separator)) (insert crm-right-of-element) (backward-char (length crm-right-of-element)) ;; TODO: is this correct? (setq crm-current-element completion))) (if (null (crm-test-completion crm-current-element)) (progn (if completedp ; some completion happened (throw 'crm-exit 5) (if completion-auto-help (crm-minibuffer-completion-help) (crm-temp-echo-area-glyphs " [Next char not unique]"))) (throw 'crm-exit 6)) (if completedp (throw 'crm-exit 4))) (setq crm-last-exact-completion completion) (if (not (null last)) (progn (if (not (null (equal crm-current-element last))) (crm-minibuffer-completion-help)))) ;; returning -- was already an exact completion (throw 'crm-exit 3))))) (defun crm-minibuffer-complete () "Complete the current element. If no characters can be completed, display a list of possible completions. Return t if the current element is now a valid match; otherwise return nil." (interactive) ;; take care of scrolling if necessary -- completely cribbed from minibuf.c (if (not (eq last-command this-command)) ;; ok? (setq minibuffer-scroll-window nil)) (let ((window minibuffer-scroll-window)) (if (and (not (null window)) ;; ok? (not (null (window-buffer window)))) (let (tem) (set-buffer (window-buffer window)) ;; ok? (setq tem (pos-visible-in-window-p (point-max) window)) (if (not (null tem)) ;; ok? (set-window-start window (point-min) nil) (scroll-other-window nil)) ;; reaching here means exiting the function w/ return value of nil nil) (let* ( ;(crm-end-of-element nil) (result (crm-do-completion))) (cond ((eq 0 result) nil) ((eq 1 result) ;; adapted from Emacs 21 (if (not (eq (point) crm-end-of-element)) (goto-char (+ 1 crm-end-of-element))) (crm-temp-echo-area-glyphs " [Sole completion]") t) ((eq 3 result) ;; adapted from Emacs 21 (if (not (eq (point) crm-end-of-element)) (goto-char (+ 1 crm-end-of-element))) (crm-temp-echo-area-glyphs " [Complete, but not unique]") t)))))) ;; i love traffic lights...but only when they're green (defun crm-find-longest-completable-substring (string) "Determine the longest completable (left-anchored) substring of STRING. The description \"left-anchored\" means the positions of the characters in the substring must be the same as those of the corresponding characters in STRING. Anchoring is what `^' does in a regular expression. The table and predicate used for completion are `minibuffer-completion-table' and `minibuffer-completion-predicate', respectively. A non-nil return value means that there is some substring which is completable. A return value of t means that STRING itself is completable. If a string value is returned it is the longest completable proper substring of STRING. If nil is returned, STRING does not have any non-empty completable substrings. Remember: \"left-anchored\" substring" (let* ((length-of-string (length string)) (index length-of-string) (done (if (> length-of-string 0) nil t)) (first t) ; ugh, special handling for first time through... goal-string result) ;; loop through left-anchored substrings in order of descending length, ;; find the first substring that is completable (while (not done) (setq result (try-completion (substring string 0 index) minibuffer-completion-table minibuffer-completion-predicate)) (if result ;; found completable substring (progn (setq done t) (if (and (eq result t) first) ;; exactly matching string first time through (setq goal-string t) ;; fully-completed proper substring (setq goal-string (substring string 0 index))))) (setq index (1- index)) (if first (setq first nil)) (if (<= index 0) (setq done t))) ;; possible values include: t, nil, some string goal-string)) ;; TODO: decide whether trailing separator is allowed. current ;; implementation appears to allow it (defun crm-strings-completed-p (separated-string) "Verify that strings in SEPARATED-STRING are completed strings. A return value of t means that all strings were verified. A number is returned if verification was unsuccessful. This number represents the position in SEPARATED-STRING up to where completion was successful." (let ((strings (split-string separated-string crm-separator)) ;; buffers start at 1, not 0 (current-position 1) current-string result done) (while (and strings (not done)) (setq current-string (car strings) result (try-completion current-string minibuffer-completion-table minibuffer-completion-predicate)) (if (eq result t) (setq strings (cdr strings) current-position (+ current-position (length current-string) ;; automatically adding 1 for separator ;; character 1)) ;; still one more case of a match (if (stringp result) (let ((string-list (all-completions result minibuffer-completion-table minibuffer-completion-predicate))) (if (member result string-list) ;; ho ho, code duplication... (setq strings (cdr strings) current-position (+ current-position (length current-string) 1)) (progn (setq done t) ;; current-string is a partially-completed string (setq current-position (+ current-position (length current-string)))))) ;; current-string cannot be completed (let ((completable-substring (crm-find-longest-completable-substring current-string))) (setq done t) (setq current-position (+ current-position (length completable-substring))))))) ;; return our result (if (null strings) t current-position))) ;; try to complete candidate, then check all separated strings. move ;; point to problem position if checking fails for some string. if ;; checking succeeds for all strings, exit. (defun crm-minibuffer-complete-and-exit () "If all of the minibuffer elements are valid completions then exit. All elements in the minibuffer must match. If there is a mismatch, move point to the location of mismatch and do not exit. This function is modeled after `minibuffer_complete_and_exit' in src/minibuf.c" (interactive) (if (not (crm-find-current-element)) nil (let (result) (setq result (catch 'crm-exit (if (eq (point-min) (point-max)) (throw 'crm-exit t)) ;; TODO: this test is suspect? (if (not (null (crm-test-completion crm-current-element))) (throw 'crm-exit "check")) ;; TODO: determine how to detect errors (let ((result (crm-do-completion))) (cond ((or (eq 1 result) (eq 3 result)) (throw 'crm-exit "check")) ((eq 4 result) (if (not (null minibuffer-completion-confirm)) (progn (crm-temp-echo-area-glyphs " [Confirm]") nil) (throw 'crm-exit "check"))) (nil))))) (if (null result) nil (if (equal result "check") (let ((check-strings (crm-strings-completed-p (buffer-string)))) ;; check all of minibuffer (if (eq check-strings t) (throw 'exit nil) (if (numberp check-strings) (progn (goto-char check-strings) (crm-temp-echo-area-glyphs " [An element did not match]")) (message "Unexpected error")))) (if (eq result t) (throw 'exit nil) (message "Unexpected error"))))))) (defun crm-init-keymaps () "Initialize the keymaps used by `completing-read-multiple'. Two keymaps are used depending on the value of the REQUIRE-MATCH argument of the function `completing-read-multiple'. If REQUIRE-MATCH is nil, the keymap `crm-local-completion-map' is used. This keymap inherits from the keymap named `minibuffer-local-completion-map'. The only difference is that TAB is bound to `crm-minibuffer-complete' in the inheriting keymap. If REQUIRE-MATCH is non-nil, the keymap `crm-local-must-match-map' is used. This keymap inherits from the keymap named `minibuffer-local-must-match-map'. The inheriting keymap binds RET to `crm-minibuffer-complete-and-exit' and TAB to `crm-minibuffer-complete'." (unless crm-local-completion-map (setq crm-local-completion-map (make-sparse-keymap)) (set-keymap-parent crm-local-completion-map minibuffer-local-completion-map) ;; key definitions (define-key crm-local-completion-map (kbd "TAB") (function crm-minibuffer-complete))) (unless crm-local-must-match-map (setq crm-local-must-match-map (make-sparse-keymap)) (set-keymap-parent crm-local-must-match-map minibuffer-local-must-match-map) ;; key definitions (define-key crm-local-must-match-map (kbd "RET") (function crm-minibuffer-complete-and-exit)) (define-key crm-local-must-match-map (kbd "TAB") (function crm-minibuffer-complete)))) (crm-init-keymaps) ;; superemulates behavior of completing_read in src/minibuf.c ;;;###autoload (defun completing-read-multiple (prompt table &optional predicate require-match initial-input hist def inherit-input-method) "Read multiple strings in the minibuffer, with completion. By using this functionality, a user may specify multiple strings at a single prompt, optionally using completion. Multiple strings are specified by separating each of the strings with a prespecified separator character. For example, if the separator character is a comma, the strings 'alice', 'bob', and 'eve' would be specified as 'alice,bob,eve'. The default value for the separator character is the value of `crm-default-separator' (comma). The separator character may be changed by modifying the value of `crm-separator'. Contiguous strings of non-separator-characters are referred to as 'elements'. In the aforementioned example, the elements are: 'alice', 'bob', and 'eve'. Completion is available on a per-element basis. For example, if the contents of the minibuffer are 'alice,bob,eve' and point is between 'l' and 'i', pressing TAB operates on the element 'alice'. The return value of this function is a list of the read strings. See the documentation for `completing-read' for details on the arguments: PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HIST, DEF, and INHERIT-INPUT-METHOD." (let ((minibuffer-completion-table (function crm-collection-fn)) (minibuffer-completion-predicate predicate) ;; see completing_read in src/minibuf.c (minibuffer-completion-confirm (unless (eq require-match t) require-match)) (crm-completion-table table) crm-last-exact-completion crm-current-element crm-left-of-element crm-right-of-element crm-beginning-of-element crm-end-of-element (map (if require-match crm-local-must-match-map crm-local-completion-map))) (split-string (read-from-minibuffer prompt initial-input map nil hist def inherit-input-method) crm-separator))) ;; testing and debugging ;; (defun crm-init-test-environ () ;; "Set up some variables for testing." ;; (interactive) ;; (setq my-prompt "Prompt: ") ;; (setq my-table ;; '(("hi") ("there") ("man") ("may") ("mouth") ("ma") ;; ("a") ("ab") ("abc") ("abd") ("abf") ("zab") ("acb") ;; ("da") ("dab") ("dabc") ("dabd") ("dabf") ("dzab") ("dacb") ;; ("fda") ("fdab") ("fdabc") ("fdabd") ("fdabf") ("fdzab") ("fdacb") ;; ("gda") ("gdab") ("gdabc") ("gdabd") ("gdabf") ("gdzab") ("gdacb") ;; )) ;; (setq my-separator ",")) ;(completing-read-multiple my-prompt my-table) ;(completing-read-multiple my-prompt my-table nil t) ;(completing-read-multiple my-prompt my-table nil "match") ;(completing-read my-prompt my-table nil t) ;(completing-read my-prompt my-table nil "match") (provide 'crm) ;;; arch-tag: db1911d9-86c6-4a42-b32a-4910701b15a6 ;;; crm.el ends here

1 participants
0 comments

CVS update by daiki packages/xemacs-packages/auctex ... 19 years, 2 months

CVS Monitor

User: daiki Date: 05/11/20 09:52:39 Modified: packages/xemacs-packages/auctex CHANGES Log: Reverted the last change affected by riece sync Revision Changes Path 1.12 +3 -0 XEmacs/packages/xemacs-packages/auctex/CHANGES Index: CHANGES =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/auctex/CHANGES,v retrieving revision 1.11 retrieving revision 1.12 diff -u -p -r1.11 -r1.12 --- CHANGES 2005/11/20 07:46:21 1.11 +++ CHANGES 2005/11/20 08:52:38 1.12 ＠＠ -1,3 +1,6 ＠＠ +Changes and New Features in AUCTeX +********************************** + News in 11.55 =============

1 participants
0 comments

CVS update by daiki packages/xemacs-packages/riece/lisp/test test-riece-cache.el 19 years, 2 months

CVS Monitor

User: daiki Date: 05/11/20 08:47:48 Added: packages/xemacs-packages/riece/lisp/test test-riece-cache.el Log: Sync riece with upstream version 2.0.2 Revision Changes Path 1.1 XEmacs/packages/xemacs-packages/riece/lisp/test/test-riece-cache.el Index: test-riece-cache.el =================================================================== (require 'riece-cache) (luna-define-class test-riece-cache (lunit-test-case)) (luna-define-method test-riece-cache-get-set ((case test-riece-cache)) (let ((cache (riece-make-cache 3))) (riece-cache-set cache "0" 0) (lunit-assert-2 case (= (riece-cache-get cache "0") 0)))) (luna-define-method test-riece-cache-set-overflow ((case test-riece-cache)) (let ((cache (riece-make-cache 3))) (riece-cache-set cache "0" 0) (lunit-assert-2 case (= (riece-cache-hash-length cache) 1)) (riece-cache-set cache "1" 1) (lunit-assert-2 case (= (riece-cache-hash-length cache) 2)) (riece-cache-set cache "2" 2) (lunit-assert-2 case (= (riece-cache-hash-length cache) 3)) (riece-cache-set cache "3" 3) (lunit-assert-2 case (= (riece-cache-hash-length cache) 3)) (lunit-assert-2 case (null (riece-cache-get cache "0"))))) (luna-define-method test-riece-cache-get-increase-key ((case test-riece-cache)) (let ((cache (riece-make-cache 3))) (riece-cache-set cache "0" 0) (riece-cache-set cache "1" 1) (riece-cache-set cache "2" 2) (lunit-assert-2 case (equal (riece-cache-node-key (riece-cache-first cache)) "0")) (lunit-assert-2 case (equal (riece-cache-node-key (riece-cache-last cache)) "2")) (riece-cache-get cache "1") (lunit-assert-2 case (equal (riece-cache-node-key (riece-cache-last cache)) "1")))) (luna-define-method test-riece-cache-delete ((case test-riece-cache)) (let ((cache (riece-make-cache 3))) (riece-cache-set cache "0" 0) (riece-cache-set cache "1" 1) (riece-cache-set cache "2" 2) (riece-cache-delete cache "1") (lunit-assert-2 case (= (riece-cache-hash-length cache) 2)) (lunit-assert-2 case (null (riece-cache-get cache "1"))) (riece-cache-set cache "1" 1) (riece-cache-delete cache "0") (lunit-assert-2 case (= (riece-cache-hash-length cache) 2)) (lunit-assert-2 case (null (riece-cache-get cache "0"))) (riece-cache-set cache "0" 0) (riece-cache-delete cache "2") (lunit-assert-2 case (= (riece-cache-hash-length cache) 2)) (lunit-assert-2 case (null (riece-cache-get cache "2")))))

1 participants
0 comments

CVS update by daiki packages/xemacs-packages/riece/lisp/test ... 19 years, 2 months

CVS Monitor

User: daiki Date: 05/11/20 08:46:42 Modified: packages/xemacs-packages/riece/lisp/test Makefile.am Added: packages/xemacs-packages/riece/lisp riece-cache.el riece-develop.el riece-xfaceb.el Log: Sync riece with upstream version 2.0.2 Revision Changes Path 1.11 +0 -3 XEmacs/packages/xemacs-packages/auctex/CHANGES Index: CHANGES =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/auctex/CHANGES,v retrieving revision 1.10 retrieving revision 1.11 diff -u -p -r1.10 -r1.11 --- CHANGES 2005/02/11 19:02:00 1.10 +++ CHANGES 2005/11/20 07:46:21 1.11 ＠＠ -1,6 +1,3 ＠＠ -Changes and New Features in AUCTeX -********************************** - News in 11.55 ============= 1.3 +9 -5 XEmacs/packages/xemacs-packages/riece/AUTHORS Index: AUTHORS =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/AUTHORS,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- AUTHORS 2005/08/30 02:34:30 1.2 +++ AUTHORS 2005/11/20 07:46:24 1.3 ＠＠ -4,11 +4,13 ＠＠ Copyright (C) 1989 Tor Lillqvist Riece is mainly written by Daiki Ueno <ueno(a)unixuser.org>. The development of Riece has started to redesign the Liece IRC client. -Liece is based on Irchat (version 3.01) which has been distributed -under GNU General Public License version 1 or later. Liece was mainly -written by the same author of Riece. Tor Lillqvist <tml(a)iki.fi> is -the original author of Irchat. See doc/irchat-copyright.el for the -original copyright statement of Irchat. +Liece was mainly written by the same author of Riece. Liece is based +on Irchat (version 3.01) which has been distributed under GNU General +Public License version 1 or later. Tor Lillqvist <tml(a)iki.fi> is the +original author of Irchat. The current Riece source code, however, +doesn't contain any code from Irchat. For the historical reason, the +original copyright statement of Irchat is filed under +doc/irchat-copyright.el. Riece has many code borrowed from other GPL'ed elisp packages such as Gnus, Emacs-w3m, ECB, and SEMI. I would like to thank the developers ＠＠ -19,3 +21,5 ＠＠ Other authors: TAKAHASHI Kaoru <kaoru(a)kaisei.org> OHASHI Akira <bg66(a)koka-in.org> Yoichi NAKAYAMA <yoichi(a)geiin.org> +Masatake YAMATO <jet(a)gyve.org> (riece-yank.el) +Steve Youngs <steve(a)sxemacs.org> (riece-xfaceb.el) \ No newline at end of file 1.22 +10 -0 XEmacs/packages/xemacs-packages/riece/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/ChangeLog,v retrieving revision 1.21 retrieving revision 1.22 diff -u -p -r1.21 -r1.22 --- ChangeLog 2005/08/31 13:15:50 1.21 +++ ChangeLog 2005/11/20 07:46:24 1.22 ＠＠ -1,3 +1,13 ＠＠ +2005-11-19 Daiki Ueno <ueno(a)unixuser.org> + + * Riece: Version 2.0.2 released. + * configure.ac: Bump up version to 2.0.2. + +2005-09-29 Daiki Ueno <ueno(a)unixuser.org> + + * Riece: Version 2.0.1 released. + * configure.ac: Bump up version to 2.0.1. + 2005-08-31 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.20 released. 1.22 +24 -24 XEmacs/packages/xemacs-packages/riece/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/Makefile,v retrieving revision 1.21 retrieving revision 1.22 diff -u -p -r1.21 -r1.22 --- Makefile 2005/08/31 13:15:50 1.21 +++ Makefile 2005/11/20 07:46:24 1.22 ＠＠ -20,37 +20,37 ＠＠ # This XEmacs package contains the riece IRC client package VERSION = 1.20 -AUTHOR_VERSION = 2.0.0 +AUTHOR_VERSION = 2.0.2 MAINTAINER = Daiki Ueno <ueno(a)unixuser.org> PACKAGE = riece PKG_TYPE = regular -REQUIRES = xemacs-base mail-lib +REQUIRES = xemacs-base mail-lib bbdb CATEGORY = standard include ../../Local.rules.inc -ELCS = lisp/riece-000.elc lisp/riece-200.elc lisp/riece-300.elc \ - lisp/riece-400.elc lisp/riece-500.elc lisp/riece-addon-modules.elc \ - lisp/riece-addon.elc lisp/riece-alias.elc lisp/riece-async.elc \ - lisp/riece-biff.elc lisp/riece-button.elc lisp/riece-channel.elc \ - lisp/riece-coding.elc lisp/riece-commands.elc lisp/riece-compat.elc \ - lisp/riece-complete.elc lisp/riece-ctcp.elc lisp/riece-ctlseq.elc \ - lisp/riece-debug.elc lisp/riece-display.elc lisp/riece-doctor.elc \ - lisp/riece-eval-ruby.elc lisp/riece-eval.elc lisp/riece-filter.elc \ - lisp/riece-foolproof.elc lisp/riece-globals.elc lisp/riece-google.elc \ - lisp/riece-guess.elc lisp/riece-handle.elc lisp/riece-hangman.elc \ - lisp/riece-highlight.elc lisp/riece-history.elc lisp/riece-icon.elc \ - lisp/riece-identity.elc lisp/riece-ignore.elc lisp/riece-irc.elc \ - lisp/riece-kakasi.elc lisp/riece-keepalive.elc lisp/riece-keyword.elc \ - lisp/riece-layout.elc lisp/riece-log.elc lisp/riece-lsdb.elc \ - lisp/riece-menu.elc lisp/riece-message.elc lisp/riece-mini.elc \ - lisp/riece-misc.elc lisp/riece-mode.elc lisp/riece-naming.elc \ - lisp/riece-options.elc lisp/riece-rdcc.elc lisp/riece-ruby.elc \ - lisp/riece-server.elc lisp/riece-shrink-buffer.elc \ - lisp/riece-signal.elc lisp/riece-toolbar.elc lisp/riece-unread.elc \ - lisp/riece-url.elc lisp/riece-user.elc lisp/riece-version.elc \ - lisp/riece-xemacs.elc lisp/riece-xface.elc lisp/riece-yank.elc \ - lisp/riece.elc +ELCS = lisp/riece-000.elc lisp/riece-200.elc lisp/riece-300.elc \ +lisp/riece-400.elc lisp/riece-500.elc lisp/riece-addon-modules.elc \ +lisp/riece-addon.elc lisp/riece-alias.elc lisp/riece-async.elc \ +lisp/riece-biff.elc lisp/riece-button.elc lisp/riece-cache.elc \ +lisp/riece-channel.elc lisp/riece-coding.elc lisp/riece-commands.elc \ +lisp/riece-compat.elc lisp/riece-complete.elc lisp/riece-ctcp.elc \ +lisp/riece-ctlseq.elc lisp/riece-debug.elc lisp/riece-develop.elc \ +lisp/riece-display.elc lisp/riece-doctor.elc lisp/riece-eval-ruby.elc \ +lisp/riece-eval.elc lisp/riece-filter.elc lisp/riece-foolproof.elc \ +lisp/riece-globals.elc lisp/riece-google.elc lisp/riece-guess.elc \ +lisp/riece-handle.elc lisp/riece-hangman.elc lisp/riece-highlight.elc \ +lisp/riece-history.elc lisp/riece-icon.elc lisp/riece-identity.elc \ +lisp/riece-ignore.elc lisp/riece-irc.elc lisp/riece-kakasi.elc \ +lisp/riece-keepalive.elc lisp/riece-keyword.elc lisp/riece-layout.elc \ +lisp/riece-log.elc lisp/riece-lsdb.elc lisp/riece-menu.elc \ +lisp/riece-message.elc lisp/riece-mini.elc lisp/riece-misc.elc \ +lisp/riece-mode.elc lisp/riece-naming.elc lisp/riece-options.elc \ +lisp/riece-rdcc.elc lisp/riece-ruby.elc lisp/riece-server.elc \ +lisp/riece-shrink-buffer.elc lisp/riece-signal.elc \ +lisp/riece-toolbar.elc lisp/riece-unread.elc lisp/riece-url.elc \ +lisp/riece-user.elc lisp/riece-version.elc lisp/riece-xemacs.elc \ +lisp/riece-xface.elc lisp/riece-xfaceb.elc lisp/riece-yank.elc EXTRA_SOURCES = lisp/riece-emacs.el lisp/riece-ndcc.el \ lisp/riece-skk-kakutei.el lisp/url-riece.el 1.4 +17 -0 XEmacs/packages/xemacs-packages/riece/NEWS Index: NEWS =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/NEWS,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- NEWS 2005/08/30 02:34:31 1.3 +++ NEWS 2005/11/20 07:46:24 1.4 ＠＠ -1,3 +1,19 ＠＠ +* Major changes in 2.0.2 + +** Fixed C-c l (riece-command-list) behavior. It didn't display + channel TOPIC correctly. (ueno) + +** Don't alter case of user/channel names when completing user + input. (ueno) + +* Major changes in 2.0.1 + +** If there is a message in previously selected channel, Riece 2.0.0 + doesn't treat it as an unread channel. 2.0.1 fixes it. (ueno) + +** New add-on riece-xfaceb.el, which displays X-Face/Colour Face in + IRC buffers. (Steve Youngs) + * Major changes in 2.0.0 ** Support multiple coding-systems on a server. ＠＠ -538,6 +554,7 ＠＠ NOTE: This release includes some fixes t * For details of changes, see the file ChangeLog. Local variables: +mode: text mode: outline paragraph-separate: "[ ]*$" end: 1.3 +17 -0 XEmacs/packages/xemacs-packages/riece/NEWS.ja Index: NEWS.ja =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/NEWS.ja,v retrieving revision 1.2 retrieving revision 1.3 diff -u -p -r1.2 -r1.3 --- NEWS.ja 2005/08/30 02:34:31 1.2 +++ NEWS.ja 2005/11/20 07:46:25 1.3 ＠＠ -1,3 +1,19 ＠＠ +* Riece 2.0.2 $B$N<g$JJQ99E＠(B + +** C-c l (riece-command-list) $B$G!"%A%c%s%M%k$N%H%T%C%/$NBe$o$j$K;22C<T(B + $B?t$,I=<($5$l$k%P%0$r=$＠5(B (ueno) + +** $B%K%C%/%M!<%`$d%A%c%s%M%kL>$NJd408uJd$NI=<($GBgJ8;z>.J8;z$rJ]B8$9$k(B + $B$h$&$K$7$?(B (ueno) + +* Riece 2.0.1 $B$N<g$JJQ99E＠(B + +** $BD>A0$KA*Br$7$F$$$?%A%c%s%M%k$KL$FI%a%C%;!<%8$,$"$k>l9g$K(B unread $B%^!<(B + $B%/$,I=<($5$l$J$$IT6q9g$N=$＠5(B (ueno) + +** $B?75,%"%I%*%s(B riece-xfaceb.el $B$rF3F~!#(BBBDB $B$+$i(B X-Face/Face $B$r8!:w$7!"(B + $B%f!<%60lMw$KI=<($9$k(B (Steve Youngs) + * Riece 2.0.0 $B$N<g$JJQ99E＠(B ** $B%A%c%s%M%kKh$K%(%s%3!<%G%#%s%0$r;XDj$G$-$k$h$&$K$7$?(B (ueno) ＠＠ -537,6 +553,7 ＠＠ C-c g $B$G0J2<$N=g=x$G0\F0$G$-$^$9!#(B * For details of changes, see the file ChangeLog. Local variables: +mode: text mode: outline paragraph-separate: "[ ]*$" coding: iso-2022-jp 1.8 +1 -1 XEmacs/packages/xemacs-packages/riece/configure.ac Index: configure.ac =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/configure.ac,v retrieving revision 1.7 retrieving revision 1.8 diff -u -p -r1.7 -r1.8 --- configure.ac 2005/08/30 02:34:32 1.7 +++ configure.ac 2005/11/20 07:46:25 1.8 ＠＠ -1,7 +1,7 ＠＠ AC_INIT AC_CONFIG_SRCDIR([configure.ac]) AC_PREREQ(2.59) -AM_INIT_AUTOMAKE(riece, 2.0.0) +AM_INIT_AUTOMAKE(riece, 2.0.2) AC_CHECK_EMACS AC_PATH_LISPDIR 1.6 +1 -1 XEmacs/packages/xemacs-packages/riece/package-info.in Index: package-info.in =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/package-info.in,v retrieving revision 1.5 retrieving revision 1.6 diff -u -p -r1.5 -r1.6 --- package-info.in 2005/08/30 02:34:32 1.5 +++ package-info.in 2005/11/20 07:46:25 1.6 ＠＠ -13,7 +13,7 ＠＠ filename FILENAME md5sum MD5SUM size SIZE - provides (riece-compat riece-xemacs riece-globals riece-options riece-debug riece-version riece-coding riece-complete riece-addon-modules riece-addon riece-ruby riece-mode riece-identity riece-channel riece-user riece-misc riece-signal riece-layout riece-display riece-server riece-naming riece-message riece-filter riece-handle riece-000 riece-200 riece-300 riece-400 riece-500 riece-commands riece-irc riece riece-alias riece-async riece-biff riece-button riece-ctcp riece-ctlseq riece-doctor riece-eval-ruby riece-eval riece-foolproof riece-google riece-guess riece-hangman riece-highlight riece-history riece-icon riece-ignore riece-kakasi riece-keepalive riece-keyword riece-log riece-lsdb riece-menu riece-mini riece-rdcc riece-shrink-buffer riece-skk-kakutei riece-toolbar riece-unread riece-url riece-xface riece-yank) + provides (riece-compat riece-xemacs riece-globals riece-options riece-debug riece-version riece-coding riece-complete riece-addon-modules riece-addon riece-ruby riece-cache riece-mode riece-identity riece-channel riece-user riece-misc riece-signal riece-layout riece-display riece-server riece-naming riece-message riece-filter riece-handle riece-000 riece-200 riece-300 riece-400 riece-500 riece-commands riece-irc riece riece-alias riece-async riece-biff riece-button riece-ctcp riece-ctlseq riece-doctor riece-eval-ruby riece-eval riece-foolproof riece-google riece-guess riece-hangman riece-highlight riece-history riece-icon riece-ignore riece-kakasi riece-keepalive riece-keyword riece-log riece-lsdb riece-menu riece-mini riece-rdcc riece-shrink-buffer riece-skk-kakutei riece-toolbar riece-unread riece-url riece-xface riece-xfaceb riece-yank) requires (REQUIRES) type regular )) 1.2 +3 -0 XEmacs/packages/xemacs-packages/riece/doc/HACKING Index: HACKING =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/doc/HACKING,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- HACKING 2005/08/30 02:34:39 1.1 +++ HACKING 2005/11/20 07:46:28 1.2 ＠＠ -390,6 +390,9 ＠＠ functions. - <module-name>-insinuate Called on initialization of this module. +- <module-name>-uninstall (optional) + Called on uninstallation of this module. + - <module-name>-enable (optional) Called when this add-on is enabled. 1.2 +3 -0 XEmacs/packages/xemacs-packages/riece/doc/HACKING.ja Index: HACKING.ja =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/doc/HACKING.ja,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- HACKING.ja 2005/08/30 02:34:39 1.1 +++ HACKING.ja 2005/11/20 07:46:28 1.2 ＠＠ -364,6 +364,9 ＠＠ riece-naming $B$,Ds6!$9$k<g$J4X?t$O0J2< - <$B%b%8%e!<%kL>(B>-insinuate $B=i4|2==hM}$r9T$$$^$9(B +- <$B%b%8%e!<%kL>(B>-uninstall ($B%*%W%7%g%s(B) + $B%"%I%*%s$r%"%s%$%s%9%H!<%k$9$k$H8F$P$l$^$9(B + - <$B%b%8%e!<%kL>(B>-enable ($B%*%W%7%g%s(B) $B%"%I%*%s$NM-8z$K$9$k$H8F$P$l$^$9(B 1.4 +1 -1 XEmacs/packages/xemacs-packages/riece/doc/riece-en.texi Index: riece-en.texi =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/doc/riece-en.texi,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- riece-en.texi 2005/08/30 02:34:40 1.3 +++ riece-en.texi 2005/11/20 07:46:28 1.4 ＠＠ -3,7 +3,7 ＠＠＠setfilename riece-en.info ＠settitle Riece -- An IRC client for Emacsen -- ＠c %**end of header -＠set VERSION 2.0.0 +＠set VERSION 2.0.2 ＠c ＠documentlanguage en ＠dircategory GNU Emacs Lisp 1.8 +1 -1 XEmacs/packages/xemacs-packages/riece/doc/riece-ja.texi Index: riece-ja.texi =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/doc/riece-ja.texi,v retrieving revision 1.7 retrieving revision 1.8 diff -u -p -r1.7 -r1.8 --- riece-ja.texi 2005/08/30 02:34:40 1.7 +++ riece-ja.texi 2005/11/20 07:46:28 1.8 ＠＠ -3,7 +3,7 ＠＠＠setfilename riece-ja.info ＠settitle Riece -- An IRC client for Emacsen -- ＠c %**end of header -＠set VERSION 2.0.0 +＠set VERSION 2.0.2 ＠c ＠documentlanguage ja ＠dircategory GNU Emacs Lisp 1.8 +1 -0 XEmacs/packages/xemacs-packages/riece/lisp/COMPILE Index: COMPILE =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/COMPILE,v retrieving revision 1.7 retrieving revision 1.8 diff -u -p -r1.7 -r1.8 --- COMPILE 2005/08/30 02:34:42 1.7 +++ COMPILE 2005/11/20 07:46:32 1.8 ＠＠ -14,6 +14,7 ＠＠ riece-addon-modules riece-addon riece-ruby + riece-cache riece-mode ;; riece-identity -+-> riece-channel 1.9 +93 -1 XEmacs/packages/xemacs-packages/riece/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/ChangeLog,v retrieving revision 1.8 retrieving revision 1.9 diff -u -p -r1.8 -r1.9 --- ChangeLog 2005/08/30 02:34:42 1.8 +++ ChangeLog 2005/11/20 07:46:32 1.9 ＠＠ -1,3 +1,95 ＠＠ +2005-11-19 Daiki Ueno <ueno(a)unixuser.org> + + * Riece: Version 2.0.2 released. + * configure.ac: Bump up version to 2.0.2. + +2005-11-19 Daiki Ueno <ueno(a)unixuser.org> + + * riece-alias.el (riece-alias-alternate-separator): Changed from + "＠" -> "%". + + * test/test-riece-cache.el: New test cases. + * test/Makefile.am (EXTRA_DIST): Added test-riece-cache.el. + + * Makefile.am (EXTRA_DIST): Added riece-cache.el. + + * riece-commands.el (riece-command-part-channel): Signal an error + if TARGET server has not opened. + + * riece-channel.el: Require 'riece-cache. + (riece-find-channel): Increase priority of given channel name in + riece-channel-cache. + (riece-forget-channel): Remove given channel name from + riece-channel-cache. + (riece-get-channel): Register given channel name in + riece-channel-cache (if it is being added to riece-channel-obarray.) + * riece-server.el (riece-reset-process-buffer): Initialize + riece-channel-cache. + * riece-options.el (riece-channel-cache-max-size): New user + option. + * riece-misc.el (riece-get-channels-on-server): Get channel names + from riece-channel-cache. + * riece-globals.el (riece-channel-cache): New variable. + +2005-11-18 Daiki Ueno <ueno(a)unixuser.org> + + * riece-cache.el: Renamed from riece-lru.el. + +2005-11-18 Daiki Ueno <ueno(a)unixuser.org> + + * riece-user.el: Require 'riece-lru. + (riece-find-user): Increase priority of given username in + riece-user-lru. + (riece-forget-user): Remove given username from riece-user-lru. + (riece-rename-user): Rename given username in riece-user-lru. + (riece-get-user): Register given username in riece-user-lru (if + it is being added to riece-user-obarray.) + * riece-server.el: Require 'riece-lru. + (riece-reset-process-buffer): Initialize riece-user-lru. + * riece-options.el (riece-user-lru-max-size): New user option. + * riece-misc.el: Require 'riece-lru. + (riece-get-users-on-server): Get usernames from riece-user-lru. + * riece-globals.el (riece-user-lru): New variable. + * COMPILE (riece-modules): Added riece-lru. + * riece-lru.el: New file. + + * riece-develop.el: New file. + +2005-10-27 Masatake YAMATO <jet(a)gyve.org> + + * url-riece.el (url-irc-riece): Use `server-name' + to create an argument for `riece-parse-identity'. + `server' was used. + +2005-09-29 Daiki Ueno <ueno(a)unixuser.org> + + * Riece: Version 2.0.1 released. + * configure.ac: Bump up version to 2.0.1. + +2005-09-11 Daiki Ueno <ueno(a)unixuser.org> + + * riece-addon.el (riece-command-list-addons): Adjust width of 2nd + column to the length of the longest add-on name. + +2005-09-10 Daiki Ueno <ueno(a)unixuser.org> + + * riece-alias.el (riece-alias-abbrev-identity-string): Compare car + of riece-alias-alist with identities case insensitively. + +2005-09-05 Daiki Ueno <ueno(a)unixuser.org> + + * Makefile.am (EXTRA_DIST): Added riece-xfaceb.el. + * riece-addon-modules.el (riece-addon-modules): Added riece-xfaceb. + +2005-09-03 Steve Youngs <steve(a)sxemacs.org> + + * riece-xfaceb.el: New file. Display X-Face and colour Face + images in IRC buffer, getting the image data from BBDB records. + +2005-08-31 Daiki Ueno <ueno(a)unixuser.org> + + * riece-unread.el (riece-unread-requires): Require 'riece-history. + 2005-08-29 Daiki Ueno <ueno(a)unixuser.org> * Riece: Version 2.0.0 released. ＠＠ -8,7 +100,7 ＠＠ * test/test-riece-log.el (test-riece-log-display-message-function): Enable riece-log addon. - * test/test-riece-ruby.el (lunit-test-case-teardown): Rest + * test/test-riece-ruby.el (lunit-test-case-teardown): Reset riece-ruby-output-handler-alist and riece-ruby-output-queue-alist. * riece-server.el (riece-server-keyword-map): Abolished 1.8 +2 -2 XEmacs/packages/xemacs-packages/riece/lisp/Makefile.am Index: Makefile.am =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/Makefile.am,v retrieving revision 1.7 retrieving revision 1.8 diff -u -p -r1.7 -r1.8 --- Makefile.am 2005/08/30 02:34:42 1.7 +++ Makefile.am 2005/11/20 07:46:32 1.8 ＠＠ -2,7 +2,7 ＠＠ SUBDIRS = test EXTRA_DIST = COMPILE ChangeLog ChangeLog.Liece \ riece-000.el riece-200.el riece-300.el riece-400.el riece-500.el \ - riece-addon-modules.el riece-addon.el riece-channel.el \ + riece-addon-modules.el riece-addon.el riece-cache.el riece-channel.el \ riece-coding.el riece-commands.el riece-compat.el riece-complete.el \ riece-debug.el riece-display.el riece-emacs.el riece-filter.el \ riece-globals.el riece-handle.el riece-highlight.el riece-identity.el \ ＠＠ -17,7 +17,7 ＠＠ EXTRA_DIST = COMPILE ChangeLog ChangeLog riece-ctlseq.el riece-ignore.el riece-hangman.el riece-biff.el \ riece-kakasi.el riece-foolproof.el riece-yank.el riece-toolbar.el \ riece-eval.el riece-google.el riece-keepalive.el riece-eval-ruby.el \ - riece-shrink-buffer.el url-riece.el \ + riece-shrink-buffer.el riece-xfaceb.el url-riece.el \ riece-command-previous-channel.xpm riece-command-next-channel.xpm \ riece-submit-bug-report.xpm \ server.rb aproxy.rb 1.7 +1 -1 XEmacs/packages/xemacs-packages/riece/lisp/riece-300.el Index: riece-300.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-300.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- riece-300.el 2005/08/30 02:34:43 1.6 +++ riece-300.el 2005/11/20 07:46:32 1.7 ＠＠ -267,7 +267,7 ＠＠ (setq parameters (riece-split-parameters (riece-decoded-string-for-identity decoded channel-identity)) - topic (nth 1 parameters)) + topic (nth 2 parameters)) (riece-channel-set-topic (riece-get-channel channel) topic) (riece-insert-info buffer (concat visible " users, topic: " topic "\n")) (riece-insert-info 1.2 +1 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-addon-modules.el Index: riece-addon-modules.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-addon-modules.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- riece-addon-modules.el 2005/08/30 02:34:43 1.1 +++ riece-addon-modules.el 2005/11/20 07:46:32 1.2 ＠＠ -31,6 +31,7 ＠＠ (riece-unread . "Mark channels where new messages arrived.") (riece-url . "Collect URL in IRC buffers.") (riece-xface . "Display X-Face in IRC buffers.") + (riece-xfaceb . "Display X-Face & Colour Face images in IRC buffers $BBDB$.") (riece-yank . "Enter the element of kill-ring."))) (provide 'riece-addon-modules) 1.4 +9 -2 XEmacs/packages/xemacs-packages/riece/lisp/riece-addon.el Index: riece-addon.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-addon.el,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- riece-addon.el 2005/08/30 02:34:43 1.3 +++ riece-addon.el 2005/11/20 07:46:32 1.4 ＠＠ -321,7 +321,7 ＠＠ All normal editing commands are turned o buffer-read-only (pointer riece-addon-dependencies) module-description-alist - description point) + description point longest) (while pointer (setq description (intern-soft (concat (symbol-name (car (car pointer))) "-description")) ＠＠ -342,13 +342,20 ＠＠ All normal editing commands are turned o (setq pointer (cdr pointer))) (erase-buffer) (riece-kill-all-overlays) + (setq pointer module-description-alist + longest "") + (while pointer + (if (> (length (symbol-name (car (car pointer)))) + (length longest)) + (setq longest (symbol-name (car (car pointer))))) + (setq pointer (cdr pointer))) (setq pointer (sort module-description-alist (lambda (entry1 entry2) (string-lessp (symbol-name (car entry1)) (symbol-name (car entry2)))))) (while pointer (setq point (point)) - (insert (format "%c %-15S %s\n" + (insert (format (format "%%c %%-%dS %%s\n" (length longest)) (if (not (featurep (car (car pointer)))) ? (if (not (get (car (car pointer)) 1.6 +3 -3 XEmacs/packages/xemacs-packages/riece/lisp/riece-alias.el Index: riece-alias.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-alias.el,v retrieving revision 1.5 retrieving revision 1.6 diff -u -p -r1.5 -r1.6 --- riece-alias.el 2005/08/30 02:34:43 1.5 +++ riece-alias.el 2005/11/20 07:46:32 1.6 ＠＠ -51,7 +51,7 ＠＠ :type 'boolean :group 'riece-alias) -(defcustom riece-alias-alternate-separator "＠" +(defcustom riece-alias-alternate-separator "%" "A string to separate prefix and server." :type '(choice (const nil) string) :group 'riece-alias) ＠＠ -138,7 +138,7 ＠＠ (setq string (riece-alias-abbrev-alternate-separator string))) (let ((alist riece-alias-alist)) (while alist - (if (equal (car (car alist)) string) + (if (equal (downcase (car (car alist))) (downcase string)) (setq string (cdr (car alist)) alist nil) (setq alist (cdr alist))))) ＠＠ -147,7 +147,7 ＠＠ (defun riece-alias-expand-identity-string (string) (let ((alist riece-alias-alist)) (while alist - (if (equal (cdr (car alist)) string) + (if (equal (downcase (cdr (car alist))) (downcase string)) (setq string (car (car alist)) alist nil) (setq alist (cdr alist))))) 1.5 +1 -1 XEmacs/packages/xemacs-packages/riece/lisp/riece-async.el Index: riece-async.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-async.el,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- riece-async.el 2005/08/30 02:34:43 1.4 +++ riece-async.el 2005/11/20 07:46:32 1.5 ＠＠ -60,7 +60,7 ＠＠ assumed that the file is in the same directory of this file.") (defvar riece-async-server-program-arguments - (list "-s" riece-async-buffer-size + (list "-s" (number-to-string riece-async-buffer-size) "-b" riece-async-backup-file) "Command line arguments passed to `riece-async-server-program'.") 1.5 +7 -1 XEmacs/packages/xemacs-packages/riece/lisp/riece-channel.el Index: riece-channel.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-channel.el,v retrieving revision 1.4 retrieving revision 1.5 diff -u -p -r1.4 -r1.5 --- riece-channel.el 2005/03/20 09:11:20 1.4 +++ riece-channel.el 2005/11/20 07:46:32 1.5 ＠＠ -28,16 +28,19 ＠＠ (require 'riece-globals) (require 'riece-identity) (require 'riece-mode) +(require 'riece-cache) ;;; Channel object: (defun riece-find-channel (name) "Get a channel object named NAME from the server buffer." + (riece-cache-get riece-channel-cache name) (let ((symbol (intern-soft (riece-identity-canonicalize-prefix name) riece-channel-obarray))) (if symbol (symbol-value symbol)))) (defun riece-forget-channel (name) + (riece-cache-delete riece-channel-cache name) (let ((symbol (intern-soft (riece-identity-canonicalize-prefix name) riece-channel-obarray))) (when symbol ＠＠ -55,7 +58,10 ＠＠ respectively." (let ((symbol (intern-soft (riece-identity-canonicalize-prefix name) riece-channel-obarray))) (if symbol - (symbol-value symbol) + (progn + (riece-cache-get riece-channel-cache name) + (symbol-value symbol)) + (riece-cache-set riece-channel-cache name name) (set (intern (riece-identity-canonicalize-prefix name) riece-channel-obarray) (riece-make-channel nil nil nil nil nil nil nil))))) 1.7 +3 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-commands.el Index: riece-commands.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-commands.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- riece-commands.el 2005/08/30 02:34:44 1.6 +++ riece-commands.el 2005/11/20 07:46:32 1.7 ＠＠ -485,6 +485,9 ＠＠ the layout to the selected layout-name." (defun riece-command-part-channel (target message) (let ((process (riece-server-process (riece-identity-server target)))) + (unless process + (error "%s" (substitute-command-keys + "Type \\[riece-command-open-server] to open server."))) (riece-send-string (if message (format "PART %s :%s\r\n" (riece-identity-prefix target) 1.8 +6 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-globals.el Index: riece-globals.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-globals.el,v retrieving revision 1.7 retrieving revision 1.8 diff -u -p -r1.7 -r1.8 --- riece-globals.el 2005/08/30 02:34:46 1.7 +++ riece-globals.el 2005/11/20 07:46:33 1.8 ＠＠ -131,6 +131,12 ＠＠ Local to the server buffers.") (defvar riece-coding-system nil "Coding system for process I/O. Local to the server buffers.") +(defvar riece-channel-cache nil + "Cache of channel names. +Local to the server buffers.") +(defvar riece-user-cache nil + "Cache of usernames. +Local to the server buffers.") ;;; Variables local to the channel buffers: (defvar riece-freeze nil 1.4 +1 -1 XEmacs/packages/xemacs-packages/riece/lisp/riece-irc.el Index: riece-irc.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-irc.el,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- riece-irc.el 2005/08/30 02:34:47 1.3 +++ riece-irc.el 2005/11/20 07:46:33 1.4 ＠＠ -69,7 +69,7 ＠＠ (quit (if (equal server-name "") (message "Password: Quit") - (message "Password for %s: " server-name)) + (message "Password for %s: Quit" server-name)) 'quit))) (setq riece-reconnect-with-password nil))) (if (eq password 'quit) 1.7 +3 -2 XEmacs/packages/xemacs-packages/riece/lisp/riece-misc.el Index: riece-misc.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-misc.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- riece-misc.el 2005/08/30 02:34:48 1.6 +++ riece-misc.el 2005/11/20 07:46:33 1.7 ＠＠ -32,6 +32,7 ＠＠ (require 'riece-server) (require 'riece-user) (require 'riece-mode) +(require 'riece-cache) (defun riece-get-buffer-create (name &optional init-major-mode) (let ((buffer (get-buffer name))) ＠＠ -221,7 +222,7 ＠＠ (setq identities (cons (riece-make-identity (symbol-name user) server-name) identities))) - riece-user-obarray) + (riece-cache-hash-obarray riece-user-cache)) identities))) (defun riece-get-channels-on-server (server-name) ＠＠ -232,7 +233,7 ＠＠ (setq identities (cons (riece-make-identity (symbol-name channel) server-name) identities))) - riece-channel-obarray) + (riece-cache-hash-obarray riece-channel-cache)) identities))) (defun riece-get-identities-on-server (server-name) 1.7 +10 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-options.el Index: riece-options.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-options.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- riece-options.el 2005/08/30 02:34:48 1.6 +++ riece-options.el 2005/11/20 07:46:33 1.7 ＠＠ -248,6 +248,16 ＠＠ way is to put Riece variables on .emacs :type 'function :group 'riece-server) +(defcustom riece-user-cache-max-size 512 + "Maximum size of cache of usernames." +:type 'integer +:group 'riece-server) + +(defcustom riece-channel-cache-max-size 512 + "Maximum size of cache of channel names." +:type 'integer +:group 'riece-server) + (defcustom riece-channel-buffer-mode t "When non-nil, Riece will display a channel buffer." :type 'boolean 1.8 +6 -2 XEmacs/packages/xemacs-packages/riece/lisp/riece-server.el Index: riece-server.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-server.el,v retrieving revision 1.7 retrieving revision 1.8 diff -u -p -r1.7 -r1.8 --- riece-server.el 2005/08/30 02:34:49 1.7 +++ riece-server.el 2005/11/20 07:46:33 1.8 ＠＠ -29,6 +29,7 ＠＠ (require 'riece-coding) ;riece-default-coding-system (require 'riece-identity) (require 'riece-compat) +(require 'riece-cache) (eval-and-compile (defvar riece-server-keyword-map ＠＠ -196,8 +197,7 ＠＠ the `riece-server-keyword-map' variable. (let* ((server-name (if identity (riece-identity-server identity) (riece-current-server-name))) - (process (riece-server-process server-name)) - coding-system) + (process (riece-server-process server-name))) (unless process (error "%s" (substitute-command-keys "Type \\[riece-command-open-server] to open server."))) ＠＠ -271,6 +271,10 ＠＠ the `riece-server-keyword-map' variable. (make-local-variable 'riece-channel-obarray) (setq riece-channel-obarray (make-vector riece-channel-obarray-size 0)) (make-local-variable 'riece-coding-system) + (make-local-variable 'riece-channel-cache) + (setq riece-channel-cache (riece-make-cache riece-channel-cache-max-size)) + (make-local-variable 'riece-user-cache) + (setq riece-user-cache (riece-make-cache riece-user-cache-max-size)) (buffer-disable-undo) (erase-buffer))) 1.7 +3 -0 XEmacs/packages/xemacs-packages/riece/lisp/riece-unread.el Index: riece-unread.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-unread.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- riece-unread.el 2005/08/30 02:34:49 1.6 +++ riece-unread.el 2005/11/20 07:46:33 1.7 ＠＠ -128,6 +128,9 ＠＠ (let (requires) (if (memq 'riece-highlight riece-addons) (setq requires (cons 'riece-highlight requires))) + ;; To override riece-history's channel mark in the channel list buffer. + (if (memq 'riece-history riece-addons) + (setq requires (cons 'riece-history requires))) ;;; (if (memq 'riece-guess riece-addons) ;;; (setq requires (cons 'riece-guess requires))) requires)) 1.4 +11 -3 XEmacs/packages/xemacs-packages/riece/lisp/riece-user.el Index: riece-user.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-user.el,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- riece-user.el 2005/03/20 09:11:24 1.3 +++ riece-user.el 2005/11/20 07:46:33 1.4 ＠＠ -25,22 +25,27 ＠＠ (require 'riece-identity) (require 'riece-mode) +(require 'riece-cache) ;;; User object: (defun riece-find-user (name) "Get a user object named NAME from the server buffer." + (riece-cache-get riece-user-cache name) (let ((symbol (intern-soft (riece-identity-canonicalize-prefix name) riece-user-obarray))) - (if symbol - (symbol-value symbol)))) + (if symbol + (symbol-value symbol)))) (defun riece-forget-user (name) + (riece-cache-delete riece-user-cache name) (let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)))) (when symbol (makunbound symbol) (unintern (symbol-name symbol) riece-user-obarray)))) (defun riece-rename-user (old-name new-name) + (riece-cache-delete riece-user-cache old-name) + (riece-cache-set riece-user-cache new-name new-name) (unless (equal (riece-identity-canonicalize-prefix old-name) (riece-identity-canonicalize-prefix new-name)) (let ((symbol (intern-soft (riece-identity-canonicalize-prefix old-name) ＠＠ -62,7 +67,10 ＠＠ away status, respectively." (let ((symbol (intern-soft (riece-identity-canonicalize-prefix name) riece-user-obarray))) (if symbol - (symbol-value symbol) + (progn + (riece-cache-get riece-user-cache name) + (symbol-value symbol)) + (riece-cache-set riece-user-cache name name) (set (intern (riece-identity-canonicalize-prefix name) riece-user-obarray) (riece-make-user nil nil nil nil nil))))) 1.8 +1 -1 XEmacs/packages/xemacs-packages/riece/lisp/riece-version.el Index: riece-version.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/riece-version.el,v retrieving revision 1.7 retrieving revision 1.8 diff -u -p -r1.7 -r1.8 --- riece-version.el 2005/08/30 02:34:50 1.7 +++ riece-version.el 2005/11/20 07:46:33 1.8 ＠＠ -48,7 +48,7 ＠＠ string, be sure to use a valid format, s (defconst riece-product-name "Riece") -(defconst riece-version-number "2.0.0" +(defconst riece-version-number "2.0.2" "Version number for this version of Riece.") (defconst riece-version (format "Riece v%s" riece-version-number) 1.2 +2 -2 XEmacs/packages/xemacs-packages/riece/lisp/url-riece.el Index: url-riece.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/url-riece.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- url-riece.el 2004/12/05 04:13:02 1.1 +++ url-riece.el 2005/11/20 07:46:33 1.2 ＠＠ -1,4 +1,4 ＠＠ -;;; url-riece --- Adapting `riece' to `url-irc' +;;; url-riece.el --- Adapting `riece' to `url-irc' ;; Copyright (C) 2004 Masatake YAMATO ;; Author: Masatake YAMATO <jet(a)gyve.org> ＠＠ -91,7 +91,7 ＠＠ and PASSWORD. Just give nil to it." (riece-command-join (riece-parse-identity (if (string= server-name "") channel - (format "%s %s" channel server))))) + (format "%s %s" channel server-name))))) ;; Show the windows (riece))))) ; (url-irc-riece "localhost" nil "#mandara" "jetgx" nil) 1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-cache.el Index: riece-cache.el =================================================================== ;;; riece-cache.el --- LRU cache ;; Copyright (C) 1998-2005 Daiki Ueno ;; Author: Daiki Ueno <ueno(a)unixuser.org> ;; Created: 1998-09-28 ;; Keywords: IRC, riece ;; This file is part of Riece. ;; This program 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. ;; This program 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Code: (defun riece-cache-make-node (key value &optional previous next) "Make riece-cache-node object." (vector key value previous next)) (defun riece-cache-node-key (node) "Return key of NODE." (aref node 0)) (defun riece-cache-node-value (node) "Return value of NODE." (aref node 1)) (defun riece-cache-node-set-value (node value) "Set value of NODE to VALUE." (aset node 1 value)) (defun riece-cache-node-next (node) "Return next of NODE." (aref node 3)) (defun riece-cache-node-set-next (node next) "Set next of NODE to NEXT." (aset node 3 next)) (defun riece-cache-node-previous (node) "Return previous of NODE." (aref node 2)) (defun riece-cache-node-set-previous (node previous) "Set previous of NODE to PREVIOUS." (aset node 2 previous)) (defun riece-make-cache (max-length) "Make riece-cache object." (vector max-length (make-vector (* max-length 2) 0) 0 nil nil)) (defun riece-cache-max-length (cache) "Return max-length of CACHE." (aref cache 0)) (defun riece-cache-hash-obarray (cache) "Return hash-obarray of CACHE." (aref cache 1)) (defun riece-cache-hash-length (cache) "Return hash-length of CACHE." (aref cache 2)) (defun riece-cache-set-hash-length (cache hash-length) "Set hash-length of CACHE to HASH-LENGTH." (aset cache 2 hash-length)) (defun riece-cache-first (cache) "Return first of CACHE." (aref cache 3)) (defun riece-cache-set-first (cache first) "Set first of CACHE to FIRST." (aset cache 3 first)) (defun riece-cache-last (cache) "Return last of CACHE." (aref cache 4)) (defun riece-cache-set-last (cache last) "Set last of CACHE to LAST." (aset cache 4 last)) (defun riece-cache-contains (cache key) "Return t if CACHE contains an entry whose key is KEY." (intern-soft key (riece-cache-hash-obarray cache))) (defun riece-cache-get (cache key) "Return the value associated with KEY in CACHE. If KEY is not associated in CACHE, it returns nil." (let ((node (riece-cache-get-node cache key))) (if node (riece-cache-node-value node)))) (defun riece-cache-get-node (cache key) "Return a node object associcated with KEY in CACHE. If KEY is not associated in CACHE, it returns nil." (let ((symbol (intern-soft key (riece-cache-hash-obarray cache))) previous next last node) (when symbol (setq node (symbol-value symbol) previous (riece-cache-node-previous node) next (riece-cache-node-next node) last (riece-cache-last cache)) (if previous (riece-cache-node-set-next previous next)) (if next (riece-cache-node-set-previous next previous)) (riece-cache-node-set-next node nil) (riece-cache-node-set-previous node last) (riece-cache-node-set-next last node) (riece-cache-set-last cache node) (if (and (eq node (riece-cache-first cache)) next) (riece-cache-set-first cache next)) node))) (defun riece-cache-delete (cache key) "Remove an entry from CACHE whose key is KEY." (let ((symbol (intern-soft key (riece-cache-hash-obarray cache))) previous next node) (when symbol (setq node (symbol-value symbol) previous (riece-cache-node-previous node) next (riece-cache-node-next node)) (if previous (riece-cache-node-set-next previous next)) (if next (riece-cache-node-set-previous next previous)) (if (eq (riece-cache-last cache) node) (riece-cache-set-last cache previous)) (if (eq (riece-cache-first cache) node) (riece-cache-set-first cache next)) (unintern symbol (riece-cache-hash-obarray cache)) (riece-cache-set-hash-length cache (1- (riece-cache-hash-length cache))) (riece-cache-node-value node)))) (defun riece-cache-set (cache key value) "Associate KEY with VALUE in CACHE." (let ((node (riece-cache-get-node cache key))) (if node (riece-cache-node-set-value node value) (if (>= (riece-cache-hash-length cache) (riece-cache-max-length cache)) (riece-cache-delete cache (riece-cache-node-key (riece-cache-first cache)))) (setq node (riece-cache-make-node key value (riece-cache-last cache))) (set (intern key (riece-cache-hash-obarray cache)) node) (riece-cache-set-hash-length cache (1+ (riece-cache-hash-length cache))) (unless (riece-cache-first cache) (riece-cache-set-first cache node)) (when (riece-cache-last cache) (riece-cache-node-set-next (riece-cache-last cache) node) (riece-cache-node-set-previous node (riece-cache-last cache))) (riece-cache-set-last cache node)))) (provide 'riece-cache) ;;; riece-cache.el ends here 1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-develop.el Index: riece-develop.el =================================================================== (defun riece-insert-struct-template (prefix struct) (interactive "sPrefix: sStruct: ") (let (attributes optional-attributes name pointer arglist strings (index 0)) (if (and prefix (not (string-match "-\\'" prefix))) (setq prefix (concat prefix "-"))) (catch 'finish (while t (setq name (read-from-minibuffer "Attribute: ")) (if (equal name "") (throw 'finish nil)) (setq attributes (cons (vector name (y-or-n-p "Optional? ") (y-or-n-p "Readable? ") (y-or-n-p "Writable? ")) attributes)))) (setq attributes (nreverse attributes) pointer (cons (vector "" nil nil nil) attributes)) (while (cdr pointer) (if (aref (car (cdr pointer)) 1) (progn (setq optional-attributes (cons (car (cdr pointer)) optional-attributes)) (setcdr pointer (nthcdr 2 pointer))) (setq pointer (cdr pointer)))) (setq optional-attributes (nreverse optional-attributes) arglist (mapconcat (lambda (attribute) (aref attribute 0)) attributes " ")) (if optional-attributes (setq arglist (concat arglist " &optional " (mapconcat (lambda (attribute) (aref attribute 0)) optional-attributes " ")))) (setq strings (list (format "\ \(defun %smake-%s (%s) \"Make %s%s object.\" (vector %s))" prefix struct arglist prefix struct (mapconcat (lambda (attribute) (aref attribute 0)) (append attributes optional-attributes) " ")))) (setq pointer (append attributes optional-attributes)) (while pointer (if (aref (car pointer) 2) (setq strings (cons (format "\ \(defun %s%s-%s (%s) \"Return %s of %s.\" (aref %s %d))" prefix struct (aref (car pointer) 0) struct (aref (car pointer) 0) (upcase struct) struct index) strings))) (if (aref (car pointer) 3) (setq strings (cons (format "\ \(defun %s%s-set-%s (%s %s) \"Set %s of %s to %s.\" (aset %s %d %s))" prefix struct (aref (car pointer) 0) struct (aref (car pointer) 0) (aref (car pointer) 0) (upcase struct) (upcase (aref (car pointer) 0)) struct index (aref (car pointer) 0)) strings))) (setq pointer (cdr pointer) index (1+ index))) (insert (mapconcat #'identity (nreverse strings) "\n\n")))) 1.1 XEmacs/packages/xemacs-packages/riece/lisp/riece-xfaceb.el Index: riece-xfaceb.el =================================================================== ;;; riece-xfaceb.el --- display X-Face/Colour Face in IRC buffers ;; Copyright (C) 2005 Daiki Ueno ;; Author: Steve Youngs <steve(a)sxemacs.org> ;; Created: 2005-09-03 ;; Keywords: IRC, riece ;; This file is part of Riece. ;; This program 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. ;; This program 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 GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; NOTE: This is an add-on module for Riece. It is adapted from ;; `riece-xface' but gets the image data from BBDB instead of LSDB. ;; This add-on displays either X-Face or colour Face images in the ;; Riece "Users" buffers. The image data comes from entries in a BBDB ;; db. Consequently it does require a little setting up in BBDB... ;; BBDB Setup: ;; You need a new field called "ircnick" for each IRC contact that is ;; in your BBDB. Its value is the IRC nickname of the contact (what ;; is listed in the Riece "Users" buffer). ;; M-x bbdb-insert-new-field RET ircnick RET ;; answer `yes' to the prompt about the field not being defined ;; then give it a value which will be that record's IRC nickname ;; Then you'll need to collect X-Face: and Face: headers from your mail. ;; To do that see: <http://www.emacswiki.org/cgi-bin/wiki/BbdbFaces> ;;; Code: (require 'riece-identity) (require 'riece-globals) (require 'riece-display) (ignore-errors (autoload 'bbdb-records "bbdb") (autoload 'bbdb-record-getprop "bbdb")) (defconst riece-xfaceb-description "Display X-Face & Colour Face images in IRC buffers $BBDB$.") (defcustom riece-xfaceb-prefer-cface-to-xface (featurep 'png) "*When non-nil, display colour face images instead of X-Face." :type 'boolean :group 'riece-looks) (defun riece-xfaceb-face-to-png (face) "Base64 decode a Face header into a PNG. Returns a string." (with-temp-buffer (insert face) (base64-decode-region (point-min) (point-max)) (buffer-string))) (defun riece-xfaceb-update-user-list-buffer () "Add X-Face or Colour Face images to channel users' buffer." (when (get 'riece-xfaceb 'riece-addon-enabled) (let ((users (ignore-errors (riece-with-server-buffer (riece-identity-server riece-current-channel) (riece-channel-get-users (riece-identity-prefix riece-current-channel))))) all-records cface xface nick name record) (while users (setq name (caar users)) (setq all-records (bbdb-records)) (while all-records (setq record (car all-records) nick (bbdb-record-getprop record 'ircnick) xface (bbdb-record-getprop record 'face) cface (bbdb-record-getprop record 'cface)) (when (and (equal nick name) (or xface cface)) (with-current-buffer riece-user-list-buffer (goto-char (point-min)) (re-search-forward (regexp-quote name) nil t) (beginning-of-line) (when (and xface (or (not riece-xfaceb-prefer-cface-to-xface) (not cface))) (set-extent-begin-glyph (extent-at (point)) (make-glyph (list (vector 'xface :data (concat "X-Face: " xface) :foreground "black" :background "white"))))) (when (and (featurep 'png) riece-xfaceb-prefer-cface-to-xface cface) (set-extent-begin-glyph (extent-at (point)) (make-glyph (list (vector 'png :data (riece-xfaceb-face-to-png cface))))))) ;; We have a match, get out of the inner loop (setq all-records nil)) (setq all-records (cdr all-records))) (setq users (cdr users)))))) (defun riece-xfaceb-requires () ) (defun riece-xfaceb-user-list-mode-hook () (add-hook 'riece-update-buffer-functions 'riece-xfaceb-update-user-list-buffer t t)) (defun riece-xfaceb-insinuate () (if riece-user-list-buffer (with-current-buffer riece-user-list-buffer (riece-xfaceb-user-list-mode-hook))) (add-hook 'riece-user-list-mode-hook 'riece-xfaceb-user-list-mode-hook)) (defun riece-xfaceb-uninstall () (if riece-user-list-buffer (with-current-buffer riece-user-list-buffer (remove-hook 'riece-update-buffer-functions 'riece-xfaceb-update-user-list-buffer t))) (remove-hook 'riece-user-list-mode-hook 'riece-xfaceb-user-list-mode-hook)) (defun riece-xfaceb-enable () (if riece-current-channel (riece-emit-signal 'user-list-changed riece-current-channel))) (defun riece-xfaceb-disable () (if riece-current-channel (riece-emit-signal 'user-list-changed riece-current-channel))) (provide 'riece-xfaceb) ;;; riece-xfaceb.el ends here 1.4 +1 -1 XEmacs/packages/xemacs-packages/riece/lisp/test/Makefile.am Index: Makefile.am =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/riece/lisp/test/Makefile.am,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- Makefile.am 2005/08/30 02:34:59 1.3 +++ Makefile.am 2005/11/20 07:46:42 1.4 ＠＠ -1,4 +1,4 ＠＠ EXTRA_DIST = luna.el lunit.el lunit-report.el \ - test-riece-addon.el test-riece-alias.el \ + test-riece-addon.el test-riece-alias.el test-riece-cache.el \ test-riece-eval.el test-riece-log.el test-riece-shrink-buffer.el \ test-riece-url.el test-riece-yank.el

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

xemacs-cvs November 2005