Mercurial > hg > xemacs-beta

comparison lisp/packages/file-part.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
183 (insert-buffer-substring buf) 183 (insert-buffer-substring buf)
184 (delete-region (+ len b) (+ len e)) 184 (delete-region (+ len b) (+ len e))
185 (set-extent-property x 'read-only t) 185 (set-extent-property x 'read-only t)
186 (set-buffer buf) 186 (set-buffer buf)
187 (set-buffer-modified-p nil) 187 (set-buffer-modified-p nil)
188 (message (format "Wrote file part %s on %s" 188 (message "Wrote file part %s on %s"
189 (buffer-name buf) 189 (buffer-name buf)
190 (buffer-name (extent-buffer x)))) 190 (buffer-name (extent-buffer x)))
191 t))) 191 t)))
192 retval)) 192 retval))
193 193
194 (defun write-master-buffer-hook () 194 (defun write-master-buffer-hook ()
195 "Hook to be called when a master buffer is saved. 195 "Hook to be called when a master buffer is saved.