Revision: emacs@sv.gnu.org/emacs--devo--0--patch-46
authorMiles Bader <miles@gnu.org>
Sun, 5 Feb 2006 12:42:51 +0000 (12:42 +0000)
committerMiles Bader <miles@gnu.org>
Sun, 5 Feb 2006 12:42:51 +0000 (12:42 +0000)
Creator:  Michael Olson <mwolson@gnu.org>

Merge from erc--emacs--0

etc/ChangeLog
etc/ERC-NEWS
lisp/erc/ChangeLog
lisp/erc/erc-autojoin.el
lisp/erc/erc-complete.el
lisp/erc/erc-goodies.el
lisp/erc/erc-spelling.el
lisp/erc/erc-stamp.el
lisp/erc/erc.el
man/ChangeLog
man/erc.texi

index 5411a0c..87e5fd0 100644 (file)
@@ -1,3 +1,8 @@
+2006-02-04  Michael Olson  <mwolson@gnu.org>
+
+       * NEWS: Update for ERC 5.1.1.  Use the same wording for headings
+       that Emacs does in its NEWS file.
+
 2006-02-03  Bill Wohler  <wohler@newt.com>
 
        Release MH-E version 7.91.
index fea5497..eee5589 100644 (file)
@@ -1,6 +1,39 @@
 ERC NEWS                                                       -*- outline -*-
 
-* Changes since ERC 5.0.4
+* Changes in ERC 5.1.1
+
+** Fix a requirement on cl.el.
+
+** Use tls.el for SSL connections, rather than ssl.el.
+
+** Changes and additions to modules
+
+*** ibuffer integration (erc-ibuffer.el)
+
+**** Update this to work with the version of ibuffer.el that comes with
+recent Emacs variants.
+
+*** Old completion (erc-complete.el)
+
+**** Fix a few errors.
+
+*** Speedbar (erc-speedbar.el)
+
+**** Make this work with the version of speedbar.el that comes with
+recent Emacs variants.
+
+*** Timestamps (erc-stamp.el)
+
+**** By default, use a more failsafe method of displaying right timestamps.
+To get right timestamps to align perfectly in Emacs22 using X, set the
+new `erc-timestamp-right-align-by-pixel' option to non-nil.
+
+*** Viper compatibility (erc-viper.el)
+
+**** Since most of these changes are now merged into Emacs22, detect
+whether we need these changes and install them only if necessary.
+
+* Changes in ERC 5.1
 
 ** Improve XEmacs compatibility.
 
@@ -206,11 +239,11 @@ the right margin.
 
 **** Helps ERC work correctly in viper-mode.
 
-* Fixes since ERC 5.0.3
+* Changes in ERC 5.0.4
 
 ** Fix a problem with undo in channels.
 
-* Fixes since ERC 5.0.2
+* Changes in ERC 5.0.3
 
 ** Fix typo in the `ctcp-request-to' entry of the English catalog.
 
@@ -251,7 +284,7 @@ indicator.  Previously, there was an additional unnecessary space.
 **** Fix an error that occurred when unchecked buffers existed when
 invoking /QUIT.
 
-* Fixes since ERC 5.0.1
+* Changes in ERC 5.0.2
 
 ** If a channel key is required for a certain channel, ERC will prompt
 for one if `erc-prompt-for-channel-key' is non-nil.
@@ -284,7 +317,7 @@ choice anymore.
 
 **** You can now save logs and truncate buffers from the menu-bar.
 
-* Fixes since ERC 5.0
+* Changes in ERC 5.0.1
 
 ** Narrowing in ERC buffers no longer causes formatting errors.
 
@@ -298,7 +331,7 @@ choice anymore.
 This means that `erc-track-priority-faces-only', `erc-track-exclude',
 and `erc-track-exclude-types' now work with server buffers.
 
-* Changes since ERC 4.0
+* Changes in ERC 5.0
 
 ** Channel members are now stored as a hash-table.
 `erc-server-users' and `erc-channel-users' are now hash-tables, rather
@@ -542,7 +575,7 @@ in XEmacs.
     mode-line where modified channels are shown (only works in GNU
     Emacs versions above 21.3).
 
-* Changes since ERC 3.0.cvs.20030119
+* Changes in ERC 4.0
 
 ** The module system has again changed a lot.  You can now customize
   the variable `erc-modules' and define once and for all which
@@ -565,7 +598,7 @@ in XEmacs.
   openprojects to freenode.  You may need to update your configuration
   for a successful automatic nickserv identification.
 
-* Changes since ERC 2.93.cvs.20020819
+* Changes in ERC 3.0.cvs.20030119
 
 ** New module erc-dcc:
 
index c77b091..9646318 100644 (file)
@@ -1,8 +1,38 @@
+2006-02-05  Michael Olson  <mwolson@gnu.org>
+
+       * erc-spelling.el (erc-spelling-init): If
+       `erc-spelling-dictionaries' is nil, do not set
+       ispell-local-dictionary.  Before, it was being set to nil, which
+       was causing a long delay while the ispell process restarted.
+       (erc-spelling-unhighlight-word): New function that removes
+       flyspell properties from a spell-checked word.
+       (erc-spelling-flyspell-verify): Don't spell-check nicks or words
+       that have '/' before them.
+
+2006-02-04  Michael Olson  <mwolson@gnu.org>
+
+       * erc-autojoin.el: Use (eval-when-compile (require 'cl)).
+
+       * erc-complete.el (erc-nick-completion-exclude-myself)
+       (erc-try-complete-nick): Use better function for getting list of
+       channel users.
+
+       * erc-goodies.el: Docfix.
+
+       * erc-stamp.el: Use new arch tagline, since the other one wasn't
+       being treated properly.
+
+       * erc.el (erc-version-string): Release ERC 5.1.1
+
 2006-02-03  Zhang Wei  <id.brep@gmail.com>  (tiny change)
 
        * erc.el (erc-version-string): Don't hard-code Emacs version.
        (erc-version): Use emacs-version.
 
+2006-01-31  Michael Olson  <mwolson@gnu.org>
+
+       * erc-stamp.el: Update copyright years.
+
 2006-01-30  Simon Josefsson  <jas@extundo.com>
 
        * erc.el (erc-open-ssl-stream): Use tls.el.
index 38a149d..06b1547 100644 (file)
@@ -34,7 +34,7 @@
 ;;; Code:
 
 (require 'erc)
-;;; Minor Mode
+(eval-when-compile (require 'cl))
 
 (defgroup erc-autojoin nil
   "Enable autojoining."
index 3b124f5..dd01301 100644 (file)
@@ -84,9 +84,9 @@ This function returns a list of all the members in the channel, except
 your own nick.  This way if you're named foo and someone is called foobar,
 typing \"f o TAB\" will directly give you foobar.  Use this with
 `erc-nick-completion'."
-  (delete
+  (remove
    (erc-current-nick)
-   (mapcar (function car) (erc-get-channel-user-list))))
+   (erc-get-channel-nickname-list)))
 
 (defcustom erc-nick-completion-postfix ": "
   "*When `erc-complete' is used in the first word after the prompt,
@@ -110,8 +110,7 @@ The type of completion depends on `erc-nick-completion'."
         (try-complete-erc-nick old erc-pals))
        ((eq erc-nick-completion 'all)
         (try-complete-erc-nick old (append
-                                    (mapcar (function car)
-                                            (erc-get-channel-user-list))
+                                    (erc-get-channel-nickname-list)
                                     (erc-command-list))))
        ((functionp erc-nick-completion)
         (try-complete-erc-nick old (funcall erc-nick-completion)))
index dbbdaac..c844af5 100644 (file)
@@ -110,7 +110,7 @@ Put this function on `erc-insert-post-hook' and/or `erc-send-post-hook'."
   (put-text-property (point-min) (point-max) 'front-sticky t)
   (put-text-property (point-min) (point-max) 'rear-nonsticky t))
 
-;; Distingush non-commands
+;; Distinguish non-commands
 (defvar erc-noncommands-list '(erc-cmd-ME
                                erc-cmd-COUNTRY
                                erc-cmd-SV
index dd9aad6..41e342c 100644 (file)
@@ -64,28 +64,51 @@ name here."
   "Enable flyspell mode in an ERC buffer."
   (let ((name (downcase (buffer-name)))
         (dicts erc-spelling-dictionaries))
-    (while (and dicts
-                (not (string= name (downcase (caar dicts)))))
-      (setq dicts (cdr dicts)))
-    (setq ispell-local-dictionary
-          (if dicts
-              (cadr (car dicts))
-            (let ((server (erc-server-buffer)))
-              (if server
-                  (with-current-buffer server
-                    ispell-local-dictionary)
-                nil)))))
+    (when dicts
+      (while (and dicts
+                  (not (string= name (downcase (caar dicts)))))
+        (setq dicts (cdr dicts)))
+      (setq ispell-local-dictionary
+            (if dicts
+                (cadr (car dicts))
+              (let ((server (erc-server-buffer)))
+                (if server
+                    (with-current-buffer server
+                      ispell-local-dictionary)
+                  nil))))))
   (setq flyspell-generic-check-word-p 'erc-spelling-flyspell-verify)
   (flyspell-mode 1))
 
-(put 'erc-mode
-     'flyspell-mode-predicate
-     'erc-spelling-flyspell-verify)
+(defun erc-spelling-unhighlight-word (word)
+  "Unhighlight the given WORD.
+The cadr is the beginning and the caddr is the end."
+  (let ((beg (nth 1 word))
+        (end (nth 2 word)))
+    (flyspell-unhighlight-at beg)
+    (when (> end beg)
+      (flyspell-unhighlight-at (1- end)))))
 
 (defun erc-spelling-flyspell-verify ()
   "Flyspell only the input line, nothing else."
-  (> (point)
-     erc-input-marker))
+  (let ((word-data (and (boundp 'flyspell-word)
+                        flyspell-word)))
+    (when word-data
+      (cond ((< (point) erc-input-marker)
+             nil)
+            ;; don't spell-check names of users
+            ((and erc-channel-users
+                  (erc-get-channel-user (car word-data)))
+             (erc-spelling-unhighlight-word word-data)
+             nil)
+            ;; if '/' occurs before the word, don't spell-check it
+            ((eq (char-before (nth 1 word-data)) ?/)
+             (erc-spelling-unhighlight-word word-data)
+             nil)
+            (t t)))))
+
+(put 'erc-mode
+     'flyspell-mode-predicate
+     'erc-spelling-flyspell-verify)
 
 (provide 'erc-spelling)
 
index afd070e..6b34a25 100644 (file)
@@ -1,6 +1,6 @@
 ;;; erc-stamp.el --- Timestamping for Emacs IRC CLient
 
-;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2004, 2006 Free Software Foundation, Inc.
 
 ;; Author: Mario Lang <mlang@delysid.org>
 ;; Keywords: comm, processes, timestamp
@@ -338,4 +338,4 @@ NOW is position of point currently."
 ;; tab-width: 8
 ;; End:
 
-;; arch-tag: 9f6d31bf-61ba-45c5-bdbf-56331486ea27
+;; arch-tag: 57aefab4-63e0-4c48-91d5-6efa145487e0
index cc9dc8b..8d38084 100644 (file)
@@ -66,7 +66,7 @@
 
 ;;; Code:
 
-(defconst erc-version-string "Version 5.1"
+(defconst erc-version-string "Version 5.1.1"
   "ERC version.  This is used by function `erc-version'.")
 
 (eval-when-compile (require 'cl))
index d492343..e3f7f97 100644 (file)
@@ -1,3 +1,7 @@
+2006-02-04  Michael Olson  <mwolson@gnu.org>
+
+       * erc.texi (History): Note that ERC is now included with Emacs.
+
 2006-02-03  Eli Zaretskii  <eliz@gnu.org>
 
        * custom.texi (Init File, Find Init): Add cross-references to
index d4053e5..fb9c60d 100644 (file)
@@ -12,7 +12,7 @@
 @syncodeindex fn cp
 
 @copying
-This manual is for ERC version 5.1.
+This manual is for ERC version 5.1.1.
 
 Copyright @copyright{} 2005, 2006 Free Software Foundation, Inc.
 
@@ -607,7 +607,7 @@ decided to include ERC in Emacs.
 
 @item 2006
 
-ERC 5.1 is released.
+ERC 5.1 is released.  It is subsequently included in Emacs 22.
 
 @end itemize