- (save-mark-and-excursion
- (with-current-buffer "*emus*"
- (let ((inhibit-read-only t))
- (erase-buffer)
- (goto-char (point-min))
- (let ((prev-record nil))
- (dolist (record emus-records)
- (emus-insert-record record prev-record (not prev-record))
- (setq prev-record record)))))))
+ (with-current-buffer "*emus*"
+ (let ((inhibit-read-only t)
+ (old-pos (point)))
+ (erase-buffer)
+ (goto-char (point-min))
+ (let ((prev-record nil))
+ (dolist (record emus-records)
+ (emus-insert-record record prev-record (not prev-record))
+ (setq prev-record record)))
+ (goto-char old-pos))))