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

[Lute Kamstra]

Richard Stallman <address@hidden> 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.