Function: pgg-save-coding-system

pgg-save-coding-system is a macro defined in pgg.el.gz.

Signature

(pgg-save-coding-system START END &rest BODY)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/pgg.el.gz
(defmacro pgg-save-coding-system (start end &rest body)
  (declare (indent 2) (debug t))
  `(if (called-interactively-p 'interactive)
       (let ((buffer (current-buffer)))
	 (with-temp-buffer
	   (let (buffer-undo-list)
	     (insert-buffer-substring buffer ,start ,end)
	     (encode-coding-region (point-min)(point-max)
				   buffer-file-coding-system)
	     (prog1 (save-excursion ,@body)
	       (push nil buffer-undo-list)
	       (ignore-errors (undo))))))
     (save-restriction
       (narrow-to-region ,start ,end)
       ,@body)))