Mercurial > emacs
comparison lisp/erc/erc-fill.el @ 76856:2fae574a2382
Release ERC 5.2.
I have updated the version of ERC to 5.2, since it fixes a bug with C-c
C-SPC being bound globally by default. For the full list of changes in
this version, see etc/ERC-NEWS.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-687
Creator: Michael Olson <mwolson@gnu.org>
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 01 Apr 2007 13:36:38 +0000 |
parents | 7a3f13e2dd57 |
children | 85d67fae9a94 |
comparison
equal
deleted
inserted
replaced
76855:e6686c0a3d45 | 76856:2fae574a2382 |
---|---|
1 ;;; erc-fill.el --- Filling IRC messages in various ways | 1 ;;; erc-fill.el --- Filling IRC messages in various ways |
2 | 2 |
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2006, 2007 Free Software Foundation, Inc. | 3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2006, |
4 ;; 2007 Free Software Foundation, Inc. | |
4 | 5 |
5 ;; Author: Andreas Fuchs <asf@void.at> | 6 ;; Author: Andreas Fuchs <asf@void.at> |
6 ;; Mario Lang <mlang@delysid.org> | 7 ;; Mario Lang <mlang@delysid.org> |
7 ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcFilling | 8 ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcFilling |
8 | 9 |
185 (eq erc-insert-timestamp-function 'erc-insert-timestamp-left) | 186 (eq erc-insert-timestamp-function 'erc-insert-timestamp-left) |
186 (not erc-hide-timestamps)) | 187 (not erc-hide-timestamps)) |
187 (length (format-time-string erc-timestamp-format)) | 188 (length (format-time-string erc-timestamp-format)) |
188 0)) | 189 0)) |
189 | 190 |
190 (defun erc-restore-text-properties () | |
191 "Restore the property 'erc-parsed for the region." | |
192 (let* ((parsed-posn (text-property-not-all (point-min) (point-max) | |
193 'erc-parsed nil)) | |
194 (parsed-prop (when parsed-posn | |
195 (get-text-property parsed-posn 'erc-parsed)))) | |
196 (put-text-property (point-min) (point-max) 'erc-parsed parsed-prop))) | |
197 | |
198 (provide 'erc-fill) | 191 (provide 'erc-fill) |
199 | 192 |
200 ;;; erc-fill.el ends here | 193 ;;; erc-fill.el ends here |
201 ;; Local Variables: | 194 ;; Local Variables: |
202 ;; indent-tabs-mode: nil | 195 ;; indent-tabs-mode: nil |