diff options
| author | Juanma Barranquero | 2005-07-18 11:05:16 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-18 11:05:16 +0000 |
| commit | 3310fdd250eb405af16f5d979180db464381b327 (patch) | |
| tree | 38017bd9e057aab47d6e11d5c9b38e4dab93112b | |
| parent | f38cec78b65a7933dce878e4e748b25ba4d0c2d8 (diff) | |
| download | emacs-3310fdd250eb405af16f5d979180db464381b327.tar.gz emacs-3310fdd250eb405af16f5d979180db464381b327.zip | |
(icalendar--get-unfolded-buffer): Use `insert-buffer-substring' and `goto-char',
not `insert-buffer'.
| -rw-r--r-- | lisp/calendar/icalendar.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index aa33ac598e1..7e9e44210ef 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el | |||
| @@ -189,7 +189,8 @@ buffer." | |||
| 189 | (save-current-buffer | 189 | (save-current-buffer |
| 190 | (set-buffer unfolded-buffer) | 190 | (set-buffer unfolded-buffer) |
| 191 | (erase-buffer) | 191 | (erase-buffer) |
| 192 | (insert-buffer folded-ical-buffer) | 192 | (insert-buffer-substring folded-ical-buffer) |
| 193 | (goto-char (point-min)) | ||
| 193 | (while (re-search-forward "\r?\n[ \t]" nil t) | 194 | (while (re-search-forward "\r?\n[ \t]" nil t) |
| 194 | (replace-match "" nil nil))) | 195 | (replace-match "" nil nil))) |
| 195 | unfolded-buffer)) | 196 | unfolded-buffer)) |