Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-496
Creator: Magnus Henoch <mange@freemail.hu> s/insert-file-literally/insert-file-contents-literally/
This commit is contained in:
parent
38552928ab
commit
afcd7ec834
|
@ -11,7 +11,7 @@
|
|||
(progn
|
||||
(jabber-history-log-message "in" "romeo@montague.net/Balcony" nil "hi" our-time)
|
||||
(with-temp-buffer
|
||||
(insert-file-literally jabber-global-history-filename)
|
||||
(insert-file-contents-literally jabber-global-history-filename)
|
||||
(let ((expected "\\[\"\\([^\"]+\\)\" \"in\" \"romeo@montague.net/Balcony\" \"me\" \"hi\"]\n")
|
||||
(actual (buffer-string)))
|
||||
(unless (string-match expected actual)
|
||||
|
|
Loading…
Reference in New Issue