Mercurial > emacs

comparison lisp/emacs-lisp/tq.el @ 98251:c1d1eb0b924a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tq.el: Disable undo in buffer.
author Michael Olson <mwolson@gnu.org>
date Sat, 20 Sep 2008 04:39:32 +0000
parents 90a2847062be
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
98250:3082614cf25e 98251:c1d1eb0b924a
83 to a tcp server on another machine." 83 to a tcp server on another machine."
84 (let ((tq (cons nil (cons process 84 (let ((tq (cons nil (cons process
85 (generate-new-buffer 85 (generate-new-buffer
86 (concat " tq-temp-" 86 (concat " tq-temp-"
87 (process-name process))))))) 87 (process-name process)))))))
88 (buffer-disable-undo (tq-buffer tq))
88 (set-process-filter process 89 (set-process-filter process
89 `(lambda (proc string) 90 `(lambda (proc string)
90 (tq-filter ',tq string))) 91 (tq-filter ',tq string)))
91 tq)) 92 tq))
92 93