projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
221c921
)
Undo last commit.
author
kaoru
<kaoru>
Wed, 6 Jan 2010 08:20:22 +0000
(08:20 +0000)
committer
kaoru
<kaoru>
Wed, 6 Jan 2010 08:20:22 +0000
(08:20 +0000)
elmo/ChangeLog
patch
|
blob
|
history
elmo/elmo-util.el
patch
|
blob
|
history
diff --git
a/elmo/ChangeLog
b/elmo/ChangeLog
index
85bc084
..
2023b9d
100644
(file)
--- a/
elmo/ChangeLog
+++ b/
elmo/ChangeLog
@@
-1,8
+1,3
@@
-2010-01-06 TAKAHASHI Kaoru <kaoru@kaisei.org>
-
- * elmo-util.el (elmo-set-work-buf): Revert `save-excursion' for
- robustness.
-
2010-01-05 TAKAHASHI Kaoru <kaoru@kaisei.org>
* acap.el (acap-parse-response): Fix comment-out style. Use three
2010-01-05 TAKAHASHI Kaoru <kaoru@kaisei.org>
* acap.el (acap-parse-response): Fix comment-out style. Use three
diff --git
a/elmo/elmo-util.el
b/elmo/elmo-util.el
index
5147fa8
..
af9664f
100644
(file)
--- a/
elmo/elmo-util.el
+++ b/
elmo/elmo-util.el
@@
-71,11
+71,10
@@
(defmacro elmo-set-work-buf (&rest body)
"Execute BODY on work buffer. Work buffer remains."
(defmacro elmo-set-work-buf (&rest body)
"Execute BODY on work buffer. Work buffer remains."
- `(save-excursion
- (with-current-buffer (get-buffer-create elmo-work-buf-name)
- (set-buffer-multibyte default-enable-multibyte-characters)
- (erase-buffer)
- ,@body)))
+ `(with-current-buffer (get-buffer-create elmo-work-buf-name)
+ (set-buffer-multibyte default-enable-multibyte-characters)
+ (erase-buffer)
+ ,@body))
(put 'elmo-set-work-buf 'lisp-indent-function 0)
(def-edebug-spec elmo-set-work-buf t)
(put 'elmo-set-work-buf 'lisp-indent-function 0)
(def-edebug-spec elmo-set-work-buf t)