remove non-existent files from the 'open recent' menu (but only when the file is selected)

original commit: 9817820e4ce55d1e8f07653ec14e6c672c3fbb92
2011-08-25 11:42:45 -05:00 · 2011-08-25 11:42:45 -05:00 · a8ce7a4346
commit a8ce7a4346
parent 8471458b26
1 changed files with 3 additions and 0 deletions
--- a/collects/framework/private/handler.rkt
+++ b/collects/framework/private/handler.rkt
@ -231,6 +231,9 @@
             (when (equal? (send ed get-filename) filename)
               (send ed set-position start end)))))]
      [else
+       (preferences:set 'framework:recently-opened-files/pos
+                        (remove recent-list-item
+                                (preferences:get 'framework:recently-opened-files/pos)))
       (message-box (string-constant error)
                    (format (string-constant cannot-open-because-dne)
                            filename))])))