Re: Adding rassq-delete-all to lisp/subr.el.

[Lute Kamstra <Lute.Kamstra.lists@xs4all.nl>]

Richard Stallman <rms@gnu.org> writes:

>     I could use it for removing things from auto-mode-alist:
>
> That is one plausible use.  Are there others?

I did a quick grep on Emacs' sources and found a couple of places
where rassq-delete-all could be used:

,----[ files.el ]
| 	     (delq (rassq 'ange-ftp-completion-hook-function tem) tem)))))
`----

,----[ image-file.el ]
|   ;; Remove existing handler
|   (let ((existing-entry
| 	 (rassq 'image-file-handler file-name-handler-alist)))
|     (when existing-entry
|       (setq file-name-handler-alist
| 	    (delq existing-entry file-name-handler-alist))))
`----

,----[ net/tramp-ftp.el ]
|   (let ((a1 (rassq 'ange-ftp-hook-function file-name-handler-alist))
| 	(a2 (rassq 'ange-ftp-completion-hook-function file-name-handler-alist)))
|     (setq file-name-handler-alist
| 	  (delete a1 (delete a2 file-name-handler-alist)))))
`----

,----[ url/url-handlers.el ]
|     ;; Remove old entry, if any.
|     (setq file-name-handler-alist
| 	  (delq (rassq 'url-file-handler file-name-handler-alist)
| 		file-name-handler-alist))
`----

Lute.