[Emacs-diffs] Changes to emacs/lisp/erc/erc.el,v

[Michael W. Olson]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael W. Olson <mwolson>      08/06/19 04:59:15

Index: erc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/erc/erc.el,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- erc.el      7 Jun 2008 02:34:54 -0000       1.50
+++ erc.el      19 Jun 2008 04:59:11 -0000      1.51
@@ -2368,8 +2368,8 @@
          (unless (string-match "\n$" string)
            (setq string (concat string "\n"))
            (when (erc-string-invisible-p string)
-             (erc-put-text-properties 0 (length string) string
-                                      '(invisible intangible))))
+             (erc-put-text-properties 0 (length string)
+                                      '(invisible intangible) string)))
          (erc-log (concat "erc-display-line: " string
                           (format "(%S)" string) " in buffer "
                           (format "%s" buffer)))
@@ -5040,9 +5040,9 @@
     (setq value-list (mapcar (lambda (x)
                               t)
                             properties)))
-  (dotimes (i (min (length properties) (length value-list)))
-    (erc-put-text-property start end (nth i properties)
-                          (nth i value-list) object)))
+  (while (and properties value-list)
+    (erc-put-text-property
+     start end (pop properties) (pop value-list) object)))
 
 ;;; Input area handling:
 
@@ -6312,6 +6312,7 @@
    (s321   . "Channel  Users  Topic")
    (s322   . "%c [%u] %t")
    (s324   . "%c modes: %m")
+   (s328   . "%c URL: %u")
    (s329   . "%c was created on %t")
    (s330   . "%n %a %i")
    (s331   . "No topic is set for %c")