diff options
| author | Juanma Barranquero | 2003-02-18 12:53:53 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-02-18 12:53:53 +0000 |
| commit | 13453b12bc280560ba8947b858d9ef5fa1551be6 (patch) | |
| tree | b9749f13efed12fae6e39585f288b031bcd43e81 | |
| parent | 0fe6068fefb6eb1cfe089a0a5094b2ce0ed0eed1 (diff) | |
| download | emacs-13453b12bc280560ba8947b858d9ef5fa1551be6.tar.gz emacs-13453b12bc280560ba8947b858d9ef5fa1551be6.zip | |
(tq-create): Fix quoted lambda.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/emacs-lisp/tq.el | 4 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 58bd80a756c..2611bd86292 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -17,11 +17,18 @@ | |||
| 17 | 17 | ||
| 18 | * mail/rfc822.el (rfc822-nuke-whitespace): Likewise. | 18 | * mail/rfc822.el (rfc822-nuke-whitespace): Likewise. |
| 19 | 19 | ||
| 20 | * progmodes/cc-vars.el (defcustom-c-stylevar): Likewise. | ||
| 21 | |||
| 22 | * progmodes/cperl-mode.el (cperl-electric-keyword) | ||
| 23 | (cperl-electric-pod, cperl-do-auto-fill): Likewise. | ||
| 24 | |||
| 20 | * textmodes/reftex-ref.el (reftex-reference): Likewise. | 25 | * textmodes/reftex-ref.el (reftex-reference): Likewise. |
| 21 | 26 | ||
| 22 | * textmodes/table.el (table-generate-source): Use ?\\ instead of | 27 | * textmodes/table.el (table-generate-source): Use ?\\ instead of |
| 23 | space in "work in progress" message. | 28 | space in "work in progress" message. |
| 24 | 29 | ||
| 30 | * emacs-lisp/tq.el (tq-create): Fix quoted lambda expression. | ||
| 31 | |||
| 25 | 2003-02-17 Dave Love <fx@gnu.org> | 32 | 2003-02-17 Dave Love <fx@gnu.org> |
| 26 | 33 | ||
| 27 | * progmodes/ebrowse.el (ebrowse-output): Don't use gensym. | 34 | * progmodes/ebrowse.el (ebrowse-output): Don't use gensym. |
diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el index 36b1cffbd85..917309e3b98 100644 --- a/lisp/emacs-lisp/tq.el +++ b/lisp/emacs-lisp/tq.el | |||
| @@ -49,8 +49,8 @@ to a tcp server on another machine." | |||
| 49 | (concat " tq-temp-" | 49 | (concat " tq-temp-" |
| 50 | (process-name process))))))) | 50 | (process-name process))))))) |
| 51 | (set-process-filter process | 51 | (set-process-filter process |
| 52 | (`(lambda (proc string) | 52 | `(lambda (proc string) |
| 53 | (tq-filter '(, tq) string)))) | 53 | (tq-filter '(, tq) string))) |
| 54 | tq)) | 54 | tq)) |
| 55 | 55 | ||
| 56 | ;;; accessors | 56 | ;;; accessors |