Show
Ignore:
Timestamp:
04/07/07 15:49:28 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/erc/erc-fill.el

    r4190 r4200  
    11;;; erc-fill.el --- Filling IRC messages in various ways 
    22 
    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. 
    45 
    56;; Author: Andreas Fuchs <asf@void.at> 
    …… 
    188189    0)) 
    189190 
    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  
    198191(provide 'erc-fill) 
    199192