Menu
▾
▴
erc-help — Archive of problems, bugs, features, news
You can subscribe to this list here.
| 2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(10) |
Nov
(46) |
Dec
(2) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2002 |
Jan
(5) |
Feb
|
Mar
(6) |
Apr
(2) |
May
(25) |
Jun
(2) |
Jul
(1) |
Aug
(5) |
Sep
(4) |
Oct
(7) |
Nov
|
Dec
(18) |
| 2003 |
Jan
(8) |
Feb
(1) |
Mar
(2) |
Apr
(4) |
May
(14) |
Jun
(32) |
Jul
(15) |
Aug
(23) |
Sep
(23) |
Oct
(22) |
Nov
(27) |
Dec
(24) |
| 2004 |
Jan
(18) |
Feb
(38) |
Mar
(32) |
Apr
(18) |
May
(70) |
Jun
(1) |
Jul
(21) |
Aug
(19) |
Sep
(32) |
Oct
(11) |
Nov
(11) |
Dec
(19) |
| 2005 |
Jan
(48) |
Feb
(13) |
Mar
(19) |
Apr
(25) |
May
(4) |
Jun
(23) |
Jul
(8) |
Aug
(13) |
Sep
(12) |
Oct
(17) |
Nov
(4) |
Dec
(5) |
| 2006 |
Jan
(31) |
Feb
(30) |
Mar
(28) |
Apr
(11) |
May
(21) |
Jun
(7) |
Jul
(12) |
Aug
(5) |
Sep
(7) |
Oct
(24) |
Nov
(2) |
Dec
|
|
From: Max F. <mf...@w3...> - 2003-04-16 23:04:09
|
[erc.el 1.509] After being frustrated at erc not telling me that the directory I specified in erc-log-channels-directory was wrong, causing it to not log anything and me to lose precious information, I changed erc-directory-writable-p to check more things: (defun erc-directory-writable-p (dir) "Determines whether the DIR is a writable directory. If it doesn't exist, create it." (unless (file-attributes dir) (make-directory dir)) (or (file-accessible-directory-p dir) (error "cannot access %s" dir))) Additionally I think logging code could be simplified by removing erc-log-channels and just use the value of erc-logs-channels-directory to find out whether we're logging or not. Cheers, Max. |
|
From: Francis L. <fr...@wo...> - 2003-03-08 21:41:27
|
Scott Evans wrote: > In erc.el, erc-bol() uses line-end-position, which isn't defined > on XEmacs. However, XEmacs has point-at-eol. I believe Emacs has > this too, and it's just an alias to line-end-position. So this > should be a simple change that will improve XEmacs compatibility. > (erc-ring is kind of broken otherwise.) Scott, Thanks. I've made the change you suggested in the CVS sources. -- Francis Litterio fr...@wo... http://world.std.com/~franl/ GPG and PGP public keys available on keyservers. |
|
From: Scott E. <gs...@an...> - 2003-03-07 21:11:54
|
In erc.el, erc-bol() uses line-end-position, which isn't defined on XEmacs. However, XEmacs has point-at-eol. I believe Emacs has this too, and it's just an alias to line-end-position. So this should be a simple change that will improve XEmacs compatibility. (erc-ring is kind of broken otherwise.) -- scott evans :: www.antisleep.com |
|
From: Max F. <mf...@w3...> - 2003-02-21 13:38:52
|
- character "`" is not allowed in URIs (RFC2396 2.4.3)
- but "'" is, but is not in gnus-button-url-regexp (2.3)
- "(" and ")" are also allowed. (2.3)
Therefore, here is a new version of the regexp:
"\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=!?#$@~'%&*+\\/:;.,()]+[-a-zA-Z0-9_=#$@~'%&*+\\/()]"
Max.
|
|
From: Alex S. <al...@em...> - 2003-01-21 00:18:40
|
I added the code Damien suggested to erc-autojoin.el because I had been using the same thing from the wiki for some time now. It still needs two functions, but then it will do the job. Alex. |
|
From: Alex S. <al...@em...> - 2003-01-20 22:56:05
|
Damien Elmes <re...@re...> writes:
> ;; autojoin particular channels when connecting to certain networks
> (defvar erc-autojoin-channels-alist
> '(("openprojects\\|freenode" . ("#emacs"))))
>
> (defun erc-autojoin-channels (server nick)
> (dolist (l erc-autojoin-channels-alist)
> (when (string-match (car l) server)
> (dolist (chan (cdr l))
> (erc-send-command (concat "join " chan))))))
> (add-hook 'erc-after-connect 'erc-autojoin-channels)
>
> This will obviously connect you to those channels on an initial join
> as well - but if the channels you stay on don't vary with time, this
> should suffice until we improve the autoconnection support.
after every JOIN and PART we could update this alist -- that would
solve the problem, no?
Alex.
|
|
From: Alex S. <al...@em...> - 2003-01-17 15:01:12
|
Max Froumentin <mf...@w3...> writes: > "\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=!?#$@~`%&*+\\/:;.,]+[-a-zA-Z0-9_=#$@~`%&*+\\/]" I will commit this then, so that more people can test it. Thanks for looking into it! This bothered me, too, but I was too lazy. :) Alex. |
|
From: Max F. <mf...@w3...> - 2003-01-17 13:16:57
|
Alex Schroeder <al...@em...> writes: > Bah -- got confused. We use erc-button-url-regexp, which has the > value > > "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)" > > So fixing it will be a bit harder. ;) > > Suggestions? Perhaps removing the lonely \\w at the end will be > enough? Yes, and removing the \\b at the beginning and the other instances of \\w, as well as the 2 '|' in the character sets seems to work fine on various examples I tested. I also removed a pair of brackets that weren't necessary: "\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=!?#$@~`%&*+\\/:;.,]+[-a-zA-Z0-9_=#$@~`%&*+\\/]" Max. |
|
From: Alex S. <al...@em...> - 2003-01-17 12:14:51
|
Alex Schroeder <al...@em...> writes:
> Currently we use ("<URL: *\\([^<> ]+\\) *>" 0 t browse-url 1) for
> URLs. Perhaps we should use goto-address-url-regexp instead. Its
> value is:
> "\\<\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)[^] \n \"'()<>[^`{}]*[^] \n \"'()<>[^`{}.,;]+"
Bah -- got confused. We use erc-button-url-regexp, which has the
value
"\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)"
So fixing it will be a bit harder. ;)
Suggestions? Perhaps removing the lonely \\w at the end will be
enough?
Alex.
|
|
From: Alex S. <al...@em...> - 2003-01-17 03:25:14
|
Max Froumentin <mf...@w3...> writes: > 1. While typing "http://www.w3.org" (without the quotes) in a channel > buffer highlights the full URL correctly and send the full URL to the > browser when clicked on, "http://www.w3.org|" will wrongly send | to > the browser. > > Oddly, removing both instances of "|" in erc-button-url-regexp doesn't > work. I'd found the same bug in gnus and that had worked. Yes, I assume that is because we are using a erc-button-syntax-table while matching buttons -- because when we are looking at nicks, we want to consider all these weird characters as "word" characters -- but when we are looking at punctuation following an URL, they should no longer be "word" constituents. Currently we use ("<URL: *\\([^<> ]+\\) *>" 0 t browse-url 1) for URLs. Perhaps we should use goto-address-url-regexp instead. Its value is: "\\<\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)[^] \n \"'()<>[^`{}]*[^] \n \"'()<>[^`{}.,;]+" Alex. |
|
From: Max F. <mf...@w3...> - 2003-01-16 19:39:26
|
[latest cvs] Hi, There seems to be a couple problems with how erc-handles URLs in channel buffers. 1. While typing "http://www.w3.org" (without the quotes) in a channel buffer highlights the full URL correctly and send the full URL to the browser when clicked on, "http://www.w3.org|" will wrongly send | to the browser. Oddly, removing both instances of "|" in erc-button-url-regexp doesn't work. I'd found the same bug in gnus and that had worked. "http://www.w3.org]" is similar: erc will send ] to browse-url 2. Probably related "|http://foo.w3.org" will not highlight the URL at all, while "|http://www.w3.org" will highlight "www.w3.org" only. This looks like there is a problem with the word character class (\\w,\\b, and \\e), but gnus uses them as well but handles | and ] correctly. I don't know the internals of erc that well, so I'll pass further debugging for now. Cheers, Max. |
|
From: Jorgen S. <fo...@fo...> - 2003-01-01 13:54:47
|
Francis Litterio <fr...@wo...> writes:
> Alex Schroeder wrote:
>
>> Francis Litterio <fr...@wo...> writes:
>>
>>> I'm not aware of any explicit keepalive traffic that ERC sends, but
>>> if you have erc-notify loaded and a non-nil erc-notify-list, then
>>> ERC will attempt to send an ISON command to each server at least
>>> once a minute. This is probably close enough to a real keepalive.
>>
>> What about this ping/pong stuff -- am I confusing things?
>
> I was forgetting about ping/pong. That should be sufficient.
Not really. ERC responds with a PONG when the server sends a PING
- But if the connection is dropped, there is no PING. So ERC
doesn=B4t send a PONG either.
We once talked about doing a PING (to which the server should
respond with a PONG, which we could savely ignore) when we didn=B4t
get any traffic from the server in N minutes (for suitable,
defcustomizeable values of N), which would detect broken
connections. But I think ISON already does that in a nicer way *8)
Hm. Of course the Right Thing would be to fix emacs. Any
volunteers? ;)
Greetings,
-- Jorgen
--=20
((email . "fo...@fo...") (www . "http://www.forcix.cx/")
(gpg . "1024D/028AF63C") (irc . "nick forcer on IRCnet"))
|
|
From: Peter S. <pe...@al...> - 2002-12-31 23:57:01
|
On Sun, 22 Dec 2002, Alex Schroeder wrote:
>>> I have a little fix which will take time-stamp into account when
>>> filling buffer. Patch for erc-fill.el is attached.
>>
>> Thanks, please note that it is slightly broken, the first line can
>> stick out on the right side if fill-column is set like 78 or so.
>>
>>> Let me know it's good or not.
>>
>> Keep up hacking, but please try to make generic soltuions.
>> I am not really liking the way this works currently, i.e.,
>> erc-fill has a hardcoded dependency on how erc-stamp works.
>> This normally leads to a maintainance nightmare.
>
> I don't remember seing Peter Solodov's original mail. I assume that
> his patch covers 10 lines or more. So Peter, are you willing to
> assign the copyright for your patch to the FSF? We are trying to
> get ERC into Emacs, and so this is (unfortunately) a requirement...
> :(
Has the patch been accepted? It needed some more work but I didn't
have a chance to work on it lately. Anyway, if it is accepted, I'm
glad.
> This is what I send people when we include their patches; I hope it
> is not too much of a hassle for you.
Oh no, no problem at all. I'll do that today or tomorrow.
BTW, Happy New Year to everyone!!! Best wishes!
- Peter
--
Peter Solodov | IITS
pe...@al... | Concordia University
http://alcor.concordia.ca/~peter | Montreal, QC, Canada
|
|
From: Francis L. <fr...@wo...> - 2002-12-30 22:59:23
|
Alex Schroeder wrote: > Francis Litterio <fr...@wo...> writes: > >> I'm not aware of any explicit keepalive traffic that ERC sends, but >> if you have erc-notify loaded and a non-nil erc-notify-list, then >> ERC will attempt to send an ISON command to each server at least >> once a minute. This is probably close enough to a real keepalive. > > What about this ping/pong stuff -- am I confusing things? I was forgetting about ping/pong. That should be sufficient. |
|
From: Alex S. <al...@em...> - 2002-12-30 22:53:38
|
Francis Litterio <fr...@wo...> writes: > I'm not aware of any explicit keepalive traffic that ERC sends, but > if you have erc-notify loaded and a non-nil erc-notify-list, then > ERC will attempt to send an ISON command to each server at least > once a minute. This is probably close enough to a real keepalive. What about this ping/pong stuff -- am I confusing things? Alex. |
|
From: Francis L. <fr...@wo...> - 2002-12-30 19:52:21
|
Robert E. Brown wrote: > When the TCP/IP > connection from ERC to the IRC server drops, I get no notification and ERC > does not try to reconnect to the server until I execute another > command. This is because Emacs doesn't notice the lost connection until it attempts to write on the socket (don't know why this is the case). > I am not very familiar with IRC protocols. Does the client or server > usually send keepalive messages to quickly detect network trouble? I'm not aware of any explicit keepalive traffic that ERC sends, but if you have erc-notify loaded and a non-nil erc-notify-list, then ERC will attempt to send an ISON command to each server at least once a minute. This is probably close enough to a real keepalive. -- Francis Litterio <franl> on #emacs on the freenode network fr...@wo... http://world.std.com/~franl/ GPG and PGP public keys available on keyservers. |
|
From: Robert E. B. <br...@te...> - 2002-12-28 00:25:02
|
I am using a recent version of ERC on Emacs 21.2.1 running on Red Hat
Linux 7.3. The erc-version command returns
ERC version Version 3.0 $Revision: 1.328 $
I only use ERC to connect to irc.openprojects.net. When the TCP/IP
connection from ERC to the IRC server drops, I get no notification and ERC
does not try to reconnect to the server until I execute another command. By
dropped I mean that the communication sockets involved no longer appear in
the output of the "netstat" command. Anyway, other IRC clients seem to
sense the disconnection and reconnect automatically. How do I get this
behavior with ERC?
I am not very familiar with IRC protocols. Does the client or server
usually send keepalive messages to quickly detect network trouble?
Thanks very much for writing ERC!
bob
|
|
From: <dm...@dm...> - 2002-12-27 10:02:43
|
When playing with ERC, bitlbee and jabber accounts, I consistently
encounter a condition where 352 responses from the server have a 'nil'
name. The following small diff avoids the resulting error.
--- erc.el.~1.367.~ 2002-12-23 16:13:44.000000000 +0000
+++ erc.el 2002-12-27 09:58:01.000000000 +0000
@@ -4145,7 +4145,7 @@
(server (aref parsed 6))
(nick (aref parsed 7))
(flag (aref parsed 8))
- (name (aref parsed 9)) ; This is not quite right, but ok
+ (name (or (aref parsed 9) "")) ; This is not quite right, but ok
hopcount)
(when (string-match "\\(^[0-9]+ \\)\\(.*\\)$" name)
(setq hopcount (match-string 1 name))
|
|
From: Marcelo D. de T. <rw...@lo...> - 2002-12-26 09:57:19
|
This error has been appearing to me for about 3 months... and it only
happens after a few hours of erc open... this big delay is always
necessary so i can reproduce the error... but once it happend it will
never stop until i restart erc. so here is the debug alright ? Im not
in the mailing so any reply include my email please.
Debugger entered--Lisp error: (args-out-of-range 1 16027)
delete-region(1 16027)
(progn (buffer-disable-undo) (if (and erc-log-channels erc-log-channels-directory ...) (append-to-file 1 ... ...)) (delete-region 1 (- ... size)) (buffer-enable-undo))
(if (and erc-truncate-buffer-on-save (> ... ...)) (progn (buffer-disable-undo) (if ... ...) (delete-region 1 ...) (buffer-enable-undo)))
(when (and erc-truncate-buffer-on-save (> ... ...)) (buffer-disable-undo) (if (and erc-log-channels erc-log-channels-directory ...) (append-to-file 1 ... ...)) (delete-region 1 (- ... size)) (buffer-enable-undo))
(let ((ob ...)) (if (and buffer ...) (set-buffer ...)) (when (and erc-truncate-buffer-on-save ...) (buffer-disable-undo) (if ... ...) (delete-region 1 ...) (buffer-enable-undo)) (set-buffer ob))
erc-truncate-buffer-to-size(30000)
erc-truncate-buffer()
run-hooks(erc-insert-post-hook)
(save-restriction (narrow-to-region insert-position (point)) (run-hooks (quote erc-insert-modify-hook)) (run-hooks (quote erc-insert-post-hook)))
(save-excursion (goto-char insert-position) (insert-before-markers string) (save-restriction (narrow-to-region insert-position ...) (run-hooks ...) (run-hooks ...)))
(progn (save-excursion (goto-char insert-position) (insert-before-markers string) (save-restriction ... ... ...)))
(if erc-insert-this (progn (save-excursion ... ... ...)))
(when erc-insert-this (save-excursion (goto-char insert-position) (insert-before-markers string) (save-restriction ... ... ...)))
(let ((insert-position ...) (string ...) (buffer-undo-list t) (inhibit-read-only t)) (unless (string-match "\n$" string) (setq string ...) (when ... ...)) (erc-log (concat "erc-display-line: " string ... " in buffer " ...)) (setq erc-insert-this t) (run-hook-with-args (quote erc-insert-pre-hook) string) (when erc-insert-this (save-excursion ... ... ...)))
(save-excursion (set-buffer (or buffer ...)) (let (... ... ... ...) (unless ... ... ...) (erc-log ...) (setq erc-insert-this t) (run-hook-with-args ... string) (when erc-insert-this ...)))
(progn (save-excursion (set-buffer ...) (let ... ... ... ... ... ...)))
(if string (progn (save-excursion ... ...)))
(when string (save-excursion (set-buffer ...) (let ... ... ... ... ... ...)))
erc-display-line-1(#("<forcer> erc...@li..." 0 1 (rear-sticky t erc-parsed ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] face erc-default-face) 1 7 (rear-sticky t erc-parsed ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] face erc-nick-default-face) 7 39 (rear-sticky t erc-parsed ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] face erc-default-face)) #<buffer #emacs>)
(progn (erc-display-line-1 string buf) (add-to-list (quote new-bufs) buf))
(if (buffer-live-p buf) (progn (erc-display-line-1 string buf) (add-to-list ... buf)))
(when (buffer-live-p buf) (erc-display-line-1 string buf) (add-to-list (quote new-bufs) buf))
(while --dolist-temp--46428 (setq buf (car --dolist-temp--46428)) (when (buffer-live-p buf) (erc-display-line-1 string buf) (add-to-list ... buf)) (setq --dolist-temp--46428 (cdr --dolist-temp--46428)))
(let ((--dolist-temp--46428 ...) buf) (while --dolist-temp--46428 (setq buf ...) (when ... ... ...) (setq --dolist-temp--46428 ...)) nil)
(catch (quote --cl-block-nil--) (let (... buf) (while --dolist-temp--46428 ... ... ...) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
(block nil (let (... buf) (while --dolist-temp--46428 ... ... ...) nil))
(dolist (buf (cond ... ... ... ... ... ... ...)) (when (buffer-live-p buf) (erc-display-line-1 string buf) (add-to-list ... buf)))
(let ((inhibit-point-motion-hooks t) new-bufs) (dolist (buf ...) (when ... ... ...)) (when (null new-bufs) (if ... ... ...)))
erc-display-line(#("<forcer> erc...@li..." 0 1 (rear-sticky t erc-parsed ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] face erc-default-face) 1 7 (rear-sticky t erc-parsed ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] face erc-nick-default-face) 7 39 (rear-sticky t erc-parsed ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] face erc-default-face)) #<buffer #emacs>)
(let ((string ...)) (setq string (cond ... ...)) (when (vectorp parsed) (erc-put-text-property 0 ... ... parsed string) (erc-put-text-property 0 ... ... t string)) (erc-display-line string buffer))
erc-display-message(["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil #<buffer #emacs> #("<forcer> erc...@li..." 0 1 (rear-sticky t erc-parsed ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] face erc-default-face) 1 7 (rear-sticky t erc-parsed ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] face erc-nick-default-face) 7 39 (rear-sticky t erc-parsed ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil!
nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] face erc-default-face)))
(progn (when (and noticep privp erc-echo-notices-in-minibuffer-flag) (message ...)) (erc-display-message parsed nil buffer s))
(if s (progn (when ... ...) (erc-display-message parsed nil buffer s)))
(when s (when (and noticep privp erc-echo-notices-in-minibuffer-flag) (message ...)) (erc-display-message parsed nil buffer s))
(let* ((sndr ...) (nick ...) (login ...) (host ...) (msgp ...) (noticep ...) (privp ...) s buffer fnick) (setq buffer (erc-get-buffer ... proc)) (when buffer (with-current-buffer buffer ... ...)) (cond (... ...) (t ... ...)) (when s (when ... ...) (erc-display-message parsed nil buffer s)))
(if (or (erc-ignored-user-p sspec) (erc-ignored-reply-p msg tgt proc)) (if erc-minibuffer-ignored (message "ignored %s from %s to %s" cmd sspec tgt)) (let* (... ... ... ... ... ... ... s buffer fnick) (setq buffer ...) (when buffer ...) (cond ... ...) (when s ... ...)))
(let ((sspec ...) (cmd ...) (tgt ...) (msg ...)) (if (or ... ...) (if erc-minibuffer-ignored ...) (let* ... ... ... ... ...)))
erc-server-PRIVMSG-or-NOTICE(#<process erc-irc.openprojects.net-6667> ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil])
run-hook-with-args-until-success(erc-server-PRIVMSG-or-NOTICE #<process erc-irc.openprojects.net-6667> ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil])
(progn (run-hook-with-args-until-success hook proc msg) nil)
(if (and hook (symbol-value hook)) (progn (run-hook-with-args-until-success hook proc msg) nil) (run-hook-with-args-until-success (quote erc-default-server-hook) proc msg) nil)
(let ((hook ...)) (if (and hook ...) (progn ... nil) (run-hook-with-args-until-success ... proc msg) nil) (with-current-buffer (erc-server-buffer) (run-hook-with-args ... ...)))
erc-call-hooks(#<process erc-irc.openprojects.net-6667> ["PRIVMSG" "forcer!~fo...@di..." "#emacs" "erc...@li..." nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil])
(if (member (aref msg 0) erc-prevent-duplicates) (progn (if ... ...) (puthash ... ... erc-duplicates)) (erc-call-hooks proc msg))
(let ((posn ...) (msg ...) (n 2)) (aset msg 1 (if ... erc-session-server ...)) (aset msg 0 (let* ... ... ...)) (while (and posn ...) (aset msg n ...) (setq n ...)) (if posn (aset msg n ...)) (if (member ... erc-prevent-duplicates) (progn ... ...) (erc-call-hooks proc msg)))
(progn (setq string (erc-decode-coding-string string)) (let (... ... ...) (aset msg 1 ...) (aset msg 0 ...) (while ... ... ...) (if posn ...) (if ... ... ...)))
(unwind-protect (progn (setq string ...) (let ... ... ... ... ... ...)) (set-match-data save-match-data-internal))
(let ((save-match-data-internal ...)) (unwind-protect (progn ... ...) (set-match-data save-match-data-internal)))
(save-match-data (setq string (erc-decode-coding-string string)) (let (... ... ...) (aset msg 1 ...) (aset msg 0 ...) (while ... ... ...) (if posn ...) (if ... ... ...)))
erc-parse-line-from-server(#<process erc-irc.openprojects.net-6667> ":forcer!~fo...@di... PRIVMSG #emacs :erc...@li...")
(lambda (line) (erc-parse-line-from-server proc line))(":forcer!~fo...@di... PRIVMSG #emacs :erc...@li...")
mapc((lambda (line) (erc-parse-line-from-server proc line)) (":forcer!~fo...@di... PRIVMSG #emacs :erc...@li..."))
(save-current-buffer (set-buffer (process-buffer proc)) (mapc (lambda ... ...) (erc-split-multiline string)))
(with-current-buffer (process-buffer proc) (mapc (lambda ... ...) (erc-split-multiline string)))
erc-process-filter(#<process erc-irc.openprojects.net-6667> ":forcer!~fo...@di... PRIVMSG #emacs :erc...@li...\n")
execute-extended-command(nil)
call-interactively(execute-extended-command)
--
Marcelo Dias de Toledo
mailto:rw...@lo...
http://rw.locked.org
Mobile: 55 71 9141-7181
|
|
From: Alex S. <al...@em...> - 2002-12-22 13:34:10
|
Ville Skytt=E4 <vil...@xe...> writes: > On Mon, 2002-10-07 at 20:31, Alex Schroeder wrote: > >> > Not *just* replace, but to carefully examine the differences (and most >> > likely consequently do a more thorough sync). The GNU one does a lot >> > more stuff than ours. It would definitely be a Good Thing to get the >> > versions in sync. All help with this task is very much welcome. >>=20 >> I will be glad to help from my side... But I do not usually use >> XEmacs, I just try to write portable code. > > Great! A good way to start would be to grab our easy-mmode.el from [1] > or the latest Sumo and start working out the diff (beware, it's quite a > big one) between it and the desired GNU version. And to keep in mind > that it has to work with XEmacs 21.1, 21.4 and 21.5... but to be able to > get the synced version to work with 21.4 would be a good start. > > [1] > <http://cvs.xemacs.org/viewcvs.cgi/XEmacs/packages/xemacs-packages/xemacs= -base/easy-mmode.el> Well, in the end I was too lazy to get the latest XEmacs to test this, and to set up a working environment... So instead we have a erc-define-module command, that does other things beyond just defining a minor mode... And since we already accumulated even more comparative emacsology cruft, we might as well keep the minor mode compatibility hack... Alex. |
|
From: Alex S. <al...@em...> - 2002-12-22 13:28:51
|
Yes, its ERC assignment day again! :) -- Alex "ERC Scroll Keeper" aka kensanata on #emacs Mario Lang <ml...@de...> writes: > Peter Solodov <pe...@al...> writes: > >> I have a little fix which will take time-stamp into account when >> filling buffer. Patch for erc-fill.el is attached. > Thanks, please note that it is slightly broken, the first line > can stick out on the right side if fill-column is set like 78 or so. > >> Let me know it's good or not. > Keep up hacking, but please try to make generic soltuions. > I am not really liking the way this works currently, i.e., > erc-fill has a hardcoded dependency on how erc-stamp works. > This normally leads to a maintainance nightmare. I don't remember seing Peter Solodov's original mail. I assume that his patch covers 10 lines or more. So Peter, are you willing to assign the copyright for your patch to the FSF? We are trying to get ERC into Emacs, and so this is (unfortunately) a requirement... :( This is what I send people when we include their patches; I hope it is not too much of a hassle for you. Alex. From: Alex Schroeder <al...@em...> Subject: ERC copyright assignment to the FSF If you contributed more than 10 lines of code to ERC, I would like to ask you to assign your copyright to the FSF. Our goal is to add ERC to Emacs. I have appended two files with instructions on how to proceed. The first of them covers all your past changes, the second convers past and future changes to ERC. I assume that most people will use the second form. What happens is this: You will need to fill out the form and mail it to as...@gn.... They will send you a document by snail mail, which you sign and snail mail back to them. After a while your name appears in the coprights.list file on the gnu servers, and from then on we're on the safe side. If you changed more than erc.el, the main file, please add to the list of files you changed or added. This is just something the FSF has in their forms, once you start contributing more, there is no need to somehow update that list. Alex. DOCUMENT #1 FOR PAST CHANGES --cut-- Please email the following information to as...@gn..., and we will send you the assignment form that covers the changes you have already written. That form will cover subsequent corrections to those changes, but it will not cover other unrelated future changes to the same program. Please use your full legal name (in ASCII characters) as the subject line of the message. --------------------------------------------------------------------- REQUEST: SEND FORM FOR CHANGES ALREADY MADE [What is the name of the program or package you're contributing to?] ERC [Did you copy any files or text written by someone else in these changes? Even if that material is free software, we need to know about it.] [Do you have an employer who might have a basis to claim to own your changes? Do you attend a school which might make such a claim?] [For the copyright registration, what country are you a citizen of?] [What year were you born?] [Please write your email address here.] [Please write your postal address here.] [Which files have you changed so far, and which new files have you written so far?] erc.el --cut-- DOCUMENT #2 FOR PAST AND FUTURE CHANGES --cut-- Please email the following information to as...@gn..., and we will send you the assignment form for your past and future changes. Please use your full legal name (in ASCII characters) as the subject line of the message. ---------------------------------------------------------------------- REQUEST: SEND FORM FOR PAST AND FUTURE CHANGES [What is the name of the program or package you're contributing to?] ERC [Did you copy any files or text written by someone else in these changes? Even if that material is free software, we need to know about it.] [Do you have an employer who might have a basis to claim to own your changes? Do you attend a school which might make such a claim?] [For the copyright registration, what country are you a citizen of?] [What year were you born?] [Please write your email address here.] [Please write your postal address here.] [Which files have you changed so far, and which new files have you written so far?] erc.el --cut-- |
|
From: Alex S. <al...@em...> - 2002-12-21 23:45:14
|
Hi Francis, Are you interested in write access to the project? As to you patches -- can I send you some mail for the FSF paperwork? Alex "aka kensanata on #emacs" |
|
From: Francis L. <fr...@wo...> - 2002-12-21 21:01:34
|
ERC Developers, Current ERC behavior is: When a channel buffer is killed, ERC sends "PART #channelname :Killed buffer" to the server. When a server buffer is killed, ERC does not send a QUIT command to the server. This patch enables a user to set the variable erc-kill-channel-part-reason to configure the PART reason message. The default value of erc-kill-channel-part-reason is "Killed buffer". This patch also causes a QUIT command to be sent when a server buffer is killed. The QUIT reason message is computed using (erc-quit-reason nil). Hope this helps. -- Francis Litterio fr...@wo... http://world.std.com/~franl/ GPG and PGP public keys available on keyservers. --- erc.el 21 Dec 2002 20:04:19 -0000 1.365 +++ erc.el 21 Dec 2002 20:59:59 -0000 @@ -6338,20 +6338,27 @@ (setq imenu-create-index-function 'erc-create-imenu-index))) (autoload 'erc-create-imenu-index "erc-imenu" "Imenu index creation function") -(defcustom erc-kill-server-hook nil +(defcustom erc-kill-server-hook '(erc-kill-server) "*Invoked whenever a server-buffer is killed via `kill-buffer'." :group 'erc-hooks :type 'hook) + (defcustom erc-kill-channel-hook '(erc-save-buffer-in-logs erc-kill-channel) "*Invoked whenever a channel-buffer is killed via `kill-buffer'." :group 'erc-hooks :type 'hook) + (defcustom erc-kill-buffer-hook '(erc-save-buffer-in-logs) "*Invoked whenever a buffer other than server or channel buffer is killed via `kill-buffer'." :group 'erc-hooks :type 'hook) +(defcustom erc-kill-channel-part-reason "Killed buffer" + "*The parting message used when a channel buffer is killed." + :group 'erc + :type 'string) + (defun erc-kill-buffer-function () (when (eq major-mode 'erc-mode) (cond @@ -6363,10 +6370,15 @@ (t (run-hooks 'erc-kill-buffer-hook))))) +(defun erc-kill-server () + "Sends a QUIT command to the server when the server buffer is killed. This +function is added to erc-kill-server-hook by default." + (erc-send-command (format "QUIT :%s" (erc-quit-reason nil)))) + (defun erc-kill-channel () (erc-send-command - (format "PART %s :Killed buffer" - (erc-default-target)))) + (format "PART %s :%s" + (erc-default-target) erc-kill-channel-part-reason))) (add-hook 'kill-buffer-hook 'erc-kill-buffer-function) |
|
From: Francis L. <fr...@wo...> - 2002-12-19 20:00:02
|
ERC Developers, I noticed that invoking the command erc-kill-input in an empty input line causes a (ding) and "End of buffer" to appear in the minibuffer. This patch to erc.el fixes that. Hope this helps. -- Francis Litterio fr...@wo... http://world.std.com/~franl/ GPG and PGP public keys available on keyservers. --- erc.el 14 Dec 2002 10:31:46 -0000 1.361 +++ erc.el 19 Dec 2002 19:58:36 -0000 @@ -3250,7 +3250,7 @@ (defun erc-kill-input () "Kill current input line using `erc-bol' followed by `kill-line'." (interactive) - (and (erc-bol) (kill-line))) + (and (erc-bol) (/= (point) (point-max)) (kill-line))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; |
|
From: Francis L. <fr...@wo...> - 2002-12-19 15:55:15
|
ERC Developers, Here's a patch to erc.el that I think makes erc-string-no-properties more efficient, because it no longer creates and destroys a temporary buffer, changes the current buffer twice, or does any inserts. Hope this helps. -- Francis Litterio fr...@wo... http://world.std.com/~franl/ GPG and PGP public keys available on keyservers. --- erc.el 14 Dec 2002 10:31:46 -0000 1.361 +++ erc.el 19 Dec 2002 15:46:19 -0000 @@ -225,9 +225,9 @@ :type '(repeat string)) (defun erc-string-no-properties (string) - (with-temp-buffer - (insert string) - (buffer-substring-no-properties (point-min) (point-max)))) + (let ((newstring (copy-sequence string))) + (set-text-properties 0 (length newstring) nil newstring) + newstring)) (if (not (fboundp 'propertize)) (defun erc-propertize (string &rest props) |
197 messages has been excluded from this view by a project administrator.
