Mercurial > hg > xemacs-beta
comparison lisp/loadup.el @ 4899:aa8197436fdb
Make #'find-function behave better with dumped functions, installed XEmacs
2010-01-30 Aidan Kehoe <kehoea@parhasard.net>
* loadup.el:
If any filename in load-history starts with the value of
source-lisp, delete that part of the string, so that
#'find-function works better with dumped functions in an installed
XEmacs (it will look in lisp-directory instead, where it will
probably succeed).
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 30 Jan 2010 15:47:37 +0000 |
| parents | 3465c3161fea |
| children | bedf3747a6d7 |
comparison
equal
deleted
inserted
replaced
| 4898:9a6c3653f58e | 4899:aa8197436fdb |
|---|---|
| 225 ;; entirety of a file, something which never happens for loadup.el. | 225 ;; entirety of a file, something which never happens for loadup.el. |
| 226 current-load-list nil) | 226 current-load-list nil) |
| 227 ;; Make the path to this file look a little nicer: | 227 ;; Make the path to this file look a little nicer: |
| 228 (setcar (car load-history) (file-truename (caar load-history))) | 228 (setcar (car load-history) (file-truename (caar load-history))) |
| 229 | 229 |
| 230 ;; Make #'find-function behave better with dumped files. | |
| 231 (let ((source-lisp (concat "^" (regexp-quote source-lisp)))) | |
| 232 (mapc | |
| 233 #'(lambda (elt) (setcar elt (replace-in-string (car elt) source-lisp ""))) | |
| 234 load-history)) | |
| 235 | |
| 230 (garbage-collect) | 236 (garbage-collect) |
| 231 | 237 |
| 232 ;;; At this point, we're ready to resume undo recording for scratch. | 238 ;;; At this point, we're ready to resume undo recording for scratch. |
| 233 (buffer-enable-undo "*scratch*") | 239 (buffer-enable-undo "*scratch*") |
| 234 | 240 |