   "Save the current paste.
 
 If the current buffer represents a file, then the usual
-save-buffer is performed as well. If the current buffer
+‘save-buffer’ is performed as well.  If the current buffer
 does not represent a paste, a new paste is created for it."
   (interactive)
   (when buffer-file-name

                                   ("rustsrc" . rust-mode)
                                   ("xml" . nxml-mode)
                                   ("xml-dtd" . nxml-mode))
  "A map of plaster paste types to emacs modes."
  :type '(alist :key-type string :value-type symbol))

(defvar plaster-mode-map (make-sparse-keymap)
  "Keymap for plaster-mode.")

(defvar-local plaster-id nil
  "The paste ID associated with this buffer.")

        (switch-to-buffer (current-buffer))
        (message "Now viewing paste from %s" (plaster-paste-url id))))))

(defun plaster-update (id &optional text)
  "Update the specified ID with the given TEXT.

By default the current buffer string is used.

Argument ID The ID of the paste to update."
  (let ((text (or text (buffer-string))))
    (plaster-request (plaster-api "edit")
                     `(("id" . ,id)
                       ("text" . ,text))))
  (message "Paste updated."))

(defun plaster-paste-buffer (&optional type title)
