Function: ps-del

ps-del is a byte-compiled function defined in ps-print.el.gz.

This function is obsolete since 25.1; use (setf (alist-get k alist nil t) nil) instead

Signature

(ps-del ALIST-SYM KEY)

Documentation

Delete by side effect element KEY from association list ALIST-SYM.

Probably introduced at or before Emacs version 20.1.

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defun ps-del (alist-sym key)
  "Delete by side effect element KEY from association list ALIST-SYM."
  (declare (obsolete "use (setf (alist-get k alist nil t) nil) instead" "25.1"))
  (let ((a:list: (symbol-value alist-sym)) ; to avoid name conflict
	old)
    (while a:list:
      (if (eq key (car (car a:list:)))
	  (progn
	    (if old
		(setcdr old (cdr a:list:))
	      (set alist-sym (cdr a:list:)))
	    (setq a:list: nil))
	(setq old     a:list:
	      a:list: (cdr a:list:)))))
  (symbol-value alist-sym))