From 528e79838edce25f508cdfad4025e3e07b62ff3c Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 22 Jan 2019 16:46:58 +0100 Subject: [PATCH] Update f. Signed-off-by: Andreas Gerler --- .../f-autoloads.el | 0 .../f-pkg.el | 2 +- elpa/{f-20180106.922 => f-20190109.906}/f.el | 30 +++++++++---------- 3 files changed, 16 insertions(+), 16 deletions(-) rename elpa/{f-20180106.922 => f-20190109.906}/f-autoloads.el (100%) rename elpa/{f-20180106.922 => f-20190109.906}/f-pkg.el (50%) rename elpa/{f-20180106.922 => f-20190109.906}/f.el (97%) diff --git a/elpa/f-20180106.922/f-autoloads.el b/elpa/f-20190109.906/f-autoloads.el similarity index 100% rename from elpa/f-20180106.922/f-autoloads.el rename to elpa/f-20190109.906/f-autoloads.el diff --git a/elpa/f-20180106.922/f-pkg.el b/elpa/f-20190109.906/f-pkg.el similarity index 50% rename from elpa/f-20180106.922/f-pkg.el rename to elpa/f-20190109.906/f-pkg.el index 60f4a6b0..b4c4b6f9 100644 --- a/elpa/f-20180106.922/f-pkg.el +++ b/elpa/f-20190109.906/f-pkg.el @@ -1,2 +1,2 @@ ;;; -*- no-byte-compile: t -*- -(define-package "f" "20180106.922" "Modern API for working with files and directories" '((s "1.7.0") (dash "2.2.0")) :commit "de6d4d40ddc844eee643e92d47b9d6a63fbebb48" :keywords '("files" "directories") :authors '(("Johan Andersson" . "johan.rejeep@gmail.com")) :maintainer '("Johan Andersson" . "johan.rejeep@gmail.com") :url "http://github.com/rejeep/f.el") +(define-package "f" "20190109.906" "Modern API for working with files and directories" '((s "1.7.0") (dash "2.2.0")) :commit "8191672377816a1975414cc1f116fd3b94b30bd0" :keywords '("files" "directories") :authors '(("Johan Andersson" . "johan.rejeep@gmail.com")) :maintainer '("Johan Andersson" . "johan.rejeep@gmail.com") :url "http://github.com/rejeep/f.el") diff --git a/elpa/f-20180106.922/f.el b/elpa/f-20190109.906/f.el similarity index 97% rename from elpa/f-20180106.922/f.el rename to elpa/f-20190109.906/f.el index 7124debf..c6f0ac36 100644 --- a/elpa/f-20180106.922/f.el +++ b/elpa/f-20190109.906/f.el @@ -5,7 +5,7 @@ ;; Author: Johan Andersson ;; Maintainer: Johan Andersson ;; Version: 0.20.0 -;; Package-Version: 20180106.922 +;; Package-Version: 20190109.906 ;; Keywords: files, directories ;; URL: http://github.com/rejeep/f.el ;; Package-Requires: ((s "1.7.0") (dash "2.2.0")) @@ -236,15 +236,7 @@ TEXT with. PATH is a file name to write to." "Write binary DATA to PATH. DATA is a unibyte string. PATH is a file name to write to." - (f--destructive path - (unless (f-unibyte-string-p data) - (signal 'wrong-type-argument (list 'f-unibyte-string-p data))) - (let ((file-coding-system-alist nil) - (coding-system-for-write 'binary)) - (with-temp-file path - (setq buffer-file-coding-system 'binary) - (set-buffer-multibyte nil) - (insert data))))) + (f--write-bytes data path nil)) (defalias 'f-append 'f-append-text) (defun f-append-text (text coding path) @@ -257,11 +249,19 @@ If PATH does not exist, it is created." "Append binary DATA to PATH. If PATH does not exist, it is created." - (let ((content - (if (f-file? path) - (f-read-bytes path) - ""))) - (f-write-bytes (concat content data) path))) + (f--write-bytes data path :append)) + +(defun f--write-bytes (data filename append) + "Write binary DATA to FILENAME. +If APPEND is non-nil, append the DATA to the existing contents." + (f--destructive filename + (unless (f-unibyte-string-p data) + (signal 'wrong-type-argument (list 'f-unibyte-string-p data))) + (let ((coding-system-for-write 'binary) + (write-region-annotate-functions nil) + (write-region-post-annotation-function nil)) + (write-region data nil filename append :silent) + nil))) ;;;; Destructive -- 2.47.3