branch: elpa/extmap
commit 09a8b1b97aac94db86a3a547852c5b80efa0c00d
Author: Paul Pogonyshev <pogonys...@gmail.com>
Commit: Paul Pogonyshev <pogonys...@gmail.com>
Remove pointless noise from `extmap--do-create' on Emacs 24.
---
extmap.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/extmap.el b/extmap.el
index 5780454c8a..07bc93b701 100644
--- a/extmap.el
+++ b/extmap.el
@@ -384,7 +384,7 @@ Only available on Emacs 25, as this requires `generator'
package."
(used-keys (make-hash-table :test #'eq)))
;; Will be replaced at the end.
(insert (bindat-pack extmap--header-bindat-spec nil))
- (write-region (point-min) (point-max) filename nil nil nil (if
(plist-get options :overwrite) nil 'excl))
+ (write-region nil nil filename nil 'no-message nil (if (plist-get
options :overwrite) nil 'excl))
(erase-buffer)
(catch 'end-of-data
(while t
@@ -424,20 +424,20 @@ Only available on Emacs 25, as this requires `generator'
package."
(insert (bindat-pack
extmap--item-short-bindat-spec `((type . 4) (length . ,(length encoded))))
encoded))))
(t
- (write-region (point-min) (point-max) filename t)
+ (write-region nil nil filename t 'no-message)
(with-current-buffer buffer
(insert (bindat-pack extmap--item-bindat-spec
`((type . ,(if (extmap--plain-string-p value) 2 3)) (length . ,num-bytes)
(offset . ,offset))))
(setq offset (+ offset num-bytes))
(when shared-values
(puthash value key shared-values)))))))))))
- (write-region (point-min) (point-max) filename t)
+ (write-region nil nil filename t 'no-message)
;; Update the header.
(erase-buffer)
(insert (bindat-pack extmap--header-bindat-spec `((magic . #x91f7)
(version . 1)
(num-items .
,(hash-table-count used-keys))
(offset .
,offset))))
- (write-region (point-min) (point-max) filename 0))))
+ (write-region nil nil filename 0 'no-message))))
(defun extmap--plain-string-p (object)
(and (stringp object)
