Function: register-swap-out

register-swap-out is a byte-compiled function defined in register.el.gz.

Signature

(register-swap-out)

Documentation

Turn markers into file-query references when a buffer is killed.

Source Code

;; Defined in /usr/src/emacs/lisp/register.el.gz
(defun register-swap-out ()
  "Turn markers into file-query references when a buffer is killed."
  (and buffer-file-name
       (dolist (elem register-alist)
	 (and (markerp (cdr elem))
	      (eq (marker-buffer (cdr elem)) (current-buffer))
	      (setcdr elem
		      (list 'file-query
			    buffer-file-name
			    (marker-position (cdr elem))))))))