Function: newsticker--image-save

newsticker--image-save is a byte-compiled function defined in newst-backend.el.gz.

Signature

(newsticker--image-save BUFFER DIRECTORY FILE-NAME)

Documentation

Save contents of BUFFER in DIRECTORY as FILE-NAME.

Finally kill buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/net/newst-backend.el.gz
(defun newsticker--image-save (buffer directory file-name)
  "Save contents of BUFFER in DIRECTORY as FILE-NAME.
Finally kill buffer."
  (with-current-buffer buffer
    (let ((image-name (concat directory file-name)))
      (set-buffer-file-coding-system 'no-conversion)
      ;; make sure the cache dir exists
      (unless (file-directory-p directory)
        (make-directory directory))
      ;; write and close buffer
      (let ((require-final-newline nil)
            (backup-inhibited t)
            (coding-system-for-write 'no-conversion))
        (write-region nil nil image-name nil 'quiet))
      (set-buffer-modified-p nil)
      (kill-buffer buffer))))