bug#7558: 23.2.90; Emacs Segmentation fault

[Leo]

1. Emacs -q

2. eval

(progn (require 'dired)
       (font-lock-add-keywords 'dired-mode
                               `((,dired-re-sym
                                  ((lambda (bound)
                                     (when (search-forward "->" bound t)
                                       (let ((inhibit-read-only t))
                                         (save-match-data (replace-match "x")))
                                       (point)))
                                   nil nil (0 font-lock-warning-face prepend))))
                               t))

3. Enter a directory (C-x d) with some broken symbolic link

Segfault.

Leo