Function: view-return-to-alist-update

view-return-to-alist-update is an autoloaded and byte-compiled function defined in view.el.gz.

This function is obsolete since 24.1; this function has no effect.

Signature

(view-return-to-alist-update BUFFER &optional ITEM)

Documentation

Update view-return-to-alist of buffer BUFFER.

Remove from view-return-to-alist all entries referencing dead windows. Optional argument ITEM non-nil means add ITEM to view-return-to-alist after purging. For a description of items that can be added see the RETURN-TO-ALIST argument of the function view-mode-exit. If view-return-to-alist contains an entry for the selected window, purge that entry from view-return-to-alist before adding ITEM.

Source Code

;; Defined in /usr/src/emacs/lisp/view.el.gz
;;;###autoload
(defun view-return-to-alist-update (buffer &optional item)
  "Update `view-return-to-alist' of buffer BUFFER.
Remove from `view-return-to-alist' all entries referencing dead
windows.  Optional argument ITEM non-nil means add ITEM to
`view-return-to-alist' after purging.  For a description of items
that can be added see the RETURN-TO-ALIST argument of the
function `view-mode-exit'.  If `view-return-to-alist' contains an
entry for the selected window, purge that entry from
`view-return-to-alist' before adding ITEM."
  (declare (obsolete "this function has no effect." "24.1"))
  (with-current-buffer buffer
    (when view-return-to-alist
      (let* ((list view-return-to-alist)
	     entry entry-window last)
	(while list
	  (setq entry (car list))
	  (setq entry-window (car entry))
	  (if (and (windowp entry-window)
		   (or (and item (eq entry-window (selected-window)))
		       (not (window-live-p entry-window))))
	      ;; Remove that entry.
	      (if last
		  (setcdr last (cdr list))
		(setq view-return-to-alist
		      (cdr view-return-to-alist)))
	    ;; Leave entry alone.
	    (setq last entry))
	  (setq list (cdr list)))))
    ;; Add ITEM.
    (when item
      (setq view-return-to-alist
	    (cons item view-return-to-alist)))))