[Emacs-diffs] trunk r116938: * lisp/erc/erc.el (erc-invite-only-mode, erc-toggle-channel-mode): Simplify.

[Stefan Monnier]

------------------------------------------------------------
revno: 116938
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2014-04-04 13:26:23 -0400
message:
  * lisp/erc/erc.el (erc-invite-only-mode, erc-toggle-channel-mode): Simplify.
  (erc-load-script): Tighten a regexp.
modified:
  lisp/erc/ChangeLog             changelog-20091113204419-o5vbwnq5f7feedwu-4305
  lisp/erc/erc.el                erc.el-20091113204419-o5vbwnq5f7feedwu-4346

=== modified file 'lisp/erc/ChangeLog'
--- a/lisp/erc/ChangeLog        2014-02-25 17:37:25 +0000
+++ b/lisp/erc/ChangeLog        2014-04-04 17:26:23 +0000
@@ -1,3 +1,8 @@
+2014-04-04  Stefan Monnier  <address@hidden>
+
+       * erc.el (erc-invite-only-mode, erc-toggle-channel-mode): Simplify.
+       (erc-load-script): Tighten a regexp.
+
 2014-02-25  Julien Danjou  <address@hidden>
 
        * erc-networks.el (erc-determine-network): Check that NETWORK as a

=== modified file 'lisp/erc/erc.el'
--- a/lisp/erc/erc.el   2014-02-10 01:34:22 +0000
+++ b/lisp/erc/erc.el   2014-04-04 17:26:23 +0000
@@ -5542,12 +5542,11 @@
   (interactive "P")
   (erc-set-active-buffer (current-buffer))
   (let ((tgt (erc-default-target)))
-    (cond ((or (not tgt) (not (erc-channel-p tgt)))
-          (erc-display-message nil 'error (current-buffer) 'no-target))
-         (arg (erc-load-irc-script-lines (list (concat "/mode " tgt " -i"))
-                                         t))
-         (t (erc-load-irc-script-lines (list (concat "/mode " tgt " +i"))
-                                       t)))))
+    (if (or (not tgt) (not (erc-channel-p tgt)))
+       (erc-display-message nil 'error (current-buffer) 'no-target)
+      (erc-load-irc-script-lines
+       (list (concat "/mode " tgt (if arg " -i" " +i")))
+       t))))
 
 (defun erc-get-channel-mode-from-keypress (key)
   "Read a key sequence and call the corresponding channel mode function.
@@ -5579,15 +5578,14 @@
   (interactive "P")
   (erc-set-active-buffer (current-buffer))
   (let ((tgt (or channel (erc-default-target))))
-    (cond ((or (null tgt) (null (erc-channel-p tgt)))
-          (erc-display-message nil 'error 'active 'no-target))
-         ((member mode erc-channel-modes)
-          (erc-log (format "%s: Toggle mode %s OFF" tgt mode))
-          (message "Toggle channel mode %s OFF" mode)
-          (erc-server-send (format "MODE %s -%s" tgt mode)))
-         (t (erc-log (format "%s: Toggle channel mode %s ON" tgt mode))
-            (message "Toggle channel mode %s ON" mode)
-            (erc-server-send (format "MODE %s +%s" tgt mode))))))
+    (if (or (null tgt) (null (erc-channel-p tgt)))
+       (erc-display-message nil 'error 'active 'no-target)
+      (let* ((active (member mode erc-channel-modes))
+            (newstate (if active "OFF" "ON")))
+       (erc-log (format "%s: Toggle mode %s %s" tgt mode newstate))
+       (message "Toggle channel mode %s %s" mode newstate)
+       (erc-server-send (format "MODE %s %s%s"
+                                tgt (if active "-" "+") mode))))))
 
 (defun erc-insert-mode-command ()
   "Insert the line \"/mode <current target> \" at `point'."
@@ -5650,7 +5648,7 @@
 script."
   (erc-log (concat "erc-load-script: " file))
   (cond
-   ((string-match "\\.el$" file)
+   ((string-match "\\.el\\'" file)
     (load file))
    (t
     (erc-load-irc-script file))))