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