From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/11811 Path: main.gmane.org!not-for-mail From: Danny Siu Newsgroups: gmane.emacs.gnus.general Subject: Re: A question about smiley.el Date: 30 Jul 1997 10:06:32 -0700 Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: multipart/signed; protocol="application/pgp-signature"; boundary="pgp-sign-Multipart_Wed_Jul_30_10:06:18_1997-1"; micalg=pgp-md5 Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1035151462 32661 80.91.224.250 (20 Oct 2002 22:04:22 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:04:22 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.6/8.8.6) with ESMTP id LAA29172 for ; Wed, 30 Jul 1997 11:22:08 -0700 Original-Received: from ifi.uio.no (0@ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with SMTP id NAA09018 for ; Wed, 30 Jul 1997 13:17:55 -0500 (CDT) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) id for ; Wed, 30 Jul 1997 19:01:28 +0200 Original-Received: (qmail 2878 invoked by uid 504); 30 Jul 1997 17:01:27 -0000 Original-Received: (qmail 2875 invoked from network); 30 Jul 1997 17:01:26 -0000 Original-Received: from smtp-relay-1.Adobe.COM (192.150.11.1) by claymore.vcinet.com with SMTP; 30 Jul 1997 17:01:26 -0000 Original-Received: by smtp-relay-1.Adobe.COM (8.8.5) with ESMTP id JAA05051; Wed, 30 Jul 1997 09:58:43 -0700 (PDT) Original-Received: by inner-relay-2.Adobe.COM (8.8.5) with ESMTP id JAA06758; Wed, 30 Jul 1997 09:58:43 -0700 (PDT) Original-Received: by mail-303.corp.Adobe.COM (8.7.5) with ESMTP id KAA06822; Wed, 30 Jul 1997 10:00:52 -0700 (PDT) Original-Received: by cranky (8.6.9) id KAA15657; Wed, 30 Jul 1997 10:06:32 -0700 Original-To: ding@gnus.org X-Location: San Jose, CA X-Disclaimer: My opinions, not my employer's. X-Url: http://www.csua.berkeley.edu/~dsiu X-Mailer: Gnus v5.4.64 with nnfolder X-Newsreader: Gnus v5.4.64 X-Emacs: 19.15 XEmacs Lucid X-Face: fHBvLrQQW(GRz#RNTAN(,')p8NGv}{6dMh\:?%*D\+8hgkiA_dub1@\,Y"r5'a8C(8e~cGG(WFTU\OlAqI[B?V7m'ZGkquvZ/d k~E"A"@WK;0mLF&\%W1kIC]O"z#/>YNUefE1%5/NUX;ml]@$nW;05Z9uZ/CqTz]A)+`1ROuF~||pG= k>Zi@hE- In-Reply-To: Edvard Majakari's message of "30 Jul 1997 10:22:51 +0300" Original-Lines: 168 Xref: main.gmane.org gmane.emacs.gnus.general:11811 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:11811 --pgp-sign-Multipart_Wed_Jul_30_10:06:18_1997-1 Content-Type: multipart/mixed; boundary="Multipart_Wed_Jul_30_10:06:18_1997-1" Content-Transfer-Encoding: 7bit --Multipart_Wed_Jul_30_10:06:18_1997-1 Content-Type: text/plain; charset=US-ASCII Edvard Majakari writes: Edvard> Can I somehow make smiley.el parse regexps case-sensitively? The Edvard> package is great but it seems like it sees ':-D' as ':-d' - which Edvard> is quite a different thing :-> Edvard> -- Ed GSM: 040 5960810 URL: http://lodge.ton.tut.fi/%7Eed/ Edvard> And so there remain Faith, Hope, Love--these three; and of these Edvard> the greatest is Love. 1st Cor. 13:13 I have created a patch to fix that and now smiley is case-sensitive. With it, you will see that :-D is different from :-d This patch is based on 5.4.64. Lars, can you apply to patch to the next release (5.4.67)? Thanks, -- ^..^ '/..\" ( oo ) )~ m( oo )m ,, ,, /=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\ | Danny Dick-Fung Siu http://www-leland.stanford.edu/~dsiu | | Reference System Group http://www.csua.berkeley.edu/~dsiu | | Adobe Systems Incorporated E-Mail: | | "What do you expect from a | | Cal. Berkeley grad.?" | \=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=/ --Multipart_Wed_Jul_30_10:06:18_1997-1 Content-Type: application/octet-stream; type=patch Content-Disposition: attachment; filename="smiley.patch" Content-Transfer-Encoding: 7bit diff -C5 lisp/ChangeLog lisp-new/ChangeLog *** lisp/ChangeLog Sat Jul 19 14:39:22 1997 --- lisp-new/ChangeLog Wed Jul 30 09:34:44 1997 *************** *** 1,5 **** --- 1,12 ---- + Wed Jul 30 09:37:28 1997 Danny Siu + + * smiley.el (smiley-buffer): make smiley case sensitive + (smiley-deformed-regexp-alist): fixed smiley regexp where case is + insensitive + (smiley-nosey-regexp-alist): same as above + Sat Jul 19 23:32:28 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.64 is released. Sat Jul 19 23:22:03 1997 Lars Magne Ingebrigtsen Only in lisp-new: ChangeLog~ diff -C5 lisp/smiley.el lisp-new/smiley.el *** lisp/smiley.el Wed Jun 18 08:31:43 1997 --- lisp-new/smiley.el Wed Jul 30 09:31:19 1997 *************** *** 67,81 **** ("\\([8|]-*[|Oo%]\\)\\W" 1 "FaceKOed.xpm") ("\\([:|]-*#+\\)\\W" 1 "FaceNyah.xpm") ("\\(:-*[({]+\\)\\W" 1 "FaceSad.xpm") ("\\(:-*[Oo\*]\\)\\W" 1 "FaceStartled.xpm") ("\\(:-*|\\)\\W" 1 "FaceStraight.xpm") ! ("\\(:-*p\\)\\W" 1 "FaceTalking.xpm") ("\\(:-*d\\)\\W" 1 "FaceTasty.xpm") ("\\(;-*[>)}»]+\\)\\W" 1 "FaceWinking.xpm") ("\\(:-*[Vvµ]\\)\\W" 1 "FaceWry.xpm") ! ("\\([:|]-*P\\)\\W" 1 "FaceYukky.xpm")) "Normal and deformed faces for smilies." :type '(repeat (list regexp (integer :tag "Match") (string :tag "Image"))) :group 'smiley) --- 67,81 ---- ("\\([8|]-*[|Oo%]\\)\\W" 1 "FaceKOed.xpm") ("\\([:|]-*#+\\)\\W" 1 "FaceNyah.xpm") ("\\(:-*[({]+\\)\\W" 1 "FaceSad.xpm") ("\\(:-*[Oo\*]\\)\\W" 1 "FaceStartled.xpm") ("\\(:-*|\\)\\W" 1 "FaceStraight.xpm") ! ("\\(:-*[Pp]\\)\\W" 1 "FaceTalking.xpm") ("\\(:-*d\\)\\W" 1 "FaceTasty.xpm") ("\\(;-*[>)}»]+\\)\\W" 1 "FaceWinking.xpm") ("\\(:-*[Vvµ]\\)\\W" 1 "FaceWry.xpm") ! ("\\([:|]-*[Pp]\\)\\W" 1 "FaceYukky.xpm")) "Normal and deformed faces for smilies." :type '(repeat (list regexp (integer :tag "Match") (string :tag "Image"))) :group 'smiley) *************** *** 90,105 **** ("\\([8|]-+[|Oo%]\\)\\W" 1 "FaceKOed.xpm") ("\\([:|]-+#+\\)\\W" 1 "FaceNyah.xpm") ("\\(:-+[({]+\\)\\W" 1 "FaceSad.xpm") ("\\(:-+[Oo\*]\\)\\W" 1 "FaceStartled.xpm") ("\\(:-+|\\)\\W" 1 "FaceStraight.xpm") ! ("\\(:-+p\\)\\W" 1 "FaceTalking.xpm") ("\\(:-+d\\)\\W" 1 "FaceTasty.xpm") ("\\(;-+[>)}»]+\\)\\W" 1 "FaceWinking.xpm") ("\\(:-+[Vvµ]\\)\\W" 1 "FaceWry.xpm") ("\\(][:8B]-[)>]\\)\\W" 1 "FaceDevilish.xpm") ! ("\\([:|]-+P\\)\\W" 1 "FaceYukky.xpm")) "Smileys with noses. These get less false matches." :type '(repeat (list regexp (integer :tag "Match") (string :tag "Image"))) :group 'smiley) --- 90,105 ---- ("\\([8|]-+[|Oo%]\\)\\W" 1 "FaceKOed.xpm") ("\\([:|]-+#+\\)\\W" 1 "FaceNyah.xpm") ("\\(:-+[({]+\\)\\W" 1 "FaceSad.xpm") ("\\(:-+[Oo\*]\\)\\W" 1 "FaceStartled.xpm") ("\\(:-+|\\)\\W" 1 "FaceStraight.xpm") ! ("\\(:-+[Pp]\\)\\W" 1 "FaceTalking.xpm") ("\\(:-+d\\)\\W" 1 "FaceTasty.xpm") ("\\(;-+[>)}»]+\\)\\W" 1 "FaceWinking.xpm") ("\\(:-+[Vvµ]\\)\\W" 1 "FaceWry.xpm") ("\\(][:8B]-[)>]\\)\\W" 1 "FaceDevilish.xpm") ! ("\\([:|]-+[Pp]\\)\\W" 1 "FaceYukky.xpm")) "Smileys with noses. These get less false matches." :type '(repeat (list regexp (integer :tag "Match") (string :tag "Image"))) :group 'smiley) *************** *** 206,215 **** --- 206,216 ---- (set-buffer buffer)) (let ((buffer-read-only nil) (alist (if (symbolp smiley-regexp-alist) (symbol-value smiley-regexp-alist) smiley-regexp-alist)) + (case-fold-search nil) entry regexp beg group file) (goto-char (or st (point-min))) (setq beg (point)) ;; loop through alist (while (setq entry (pop alist)) --Multipart_Wed_Jul_30_10:06:18_1997-1-- --pgp-sign-Multipart_Wed_Jul_30_10:06:18_1997-1 Content-Type: application/pgp-signature Content-Transfer-Encoding: 7bit -----BEGIN PGP MESSAGE----- Version: 2.6.2 Comment: Processed by Mailcrypt 3.4, an Emacs/PGP interface iQCVAwUBM990lgj/eW/FQjKVAQEK2wP5ASHsrOqDI1K+T/nmf8h2PAKQI+ZzzfY4 wIdSh6Sq7tlDAWcXOByHq6J+uQvnTV5C4acgiXWSSAn/FZBdQjZowhumWvTfgVZz 954dG3tvy2W3zajsNezgsyL3L5TYcIBvhQ0MXs0Ujw92GRDmH00KlPSkuBhgoIMs QYL1qQBXfRE= =j5kI -----END PGP MESSAGE----- --pgp-sign-Multipart_Wed_Jul_30_10:06:18_1997-1--