# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1264866457 0
# Node ID aa8197436fdb8948d63fbea8cd335fbe1fb84679
# Parent  9a6c3653f58efcb3df0493e44cd02b5b6f1cde81
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).

diff -r 9a6c3653f58e -r aa8197436fdb lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jan 29 20:59:21 2010 -0600
+++ b/lisp/ChangeLog	Sat Jan 30 15:47:37 2010 +0000
@@ -1,3 +1,12 @@
+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).
+
 2010-01-29  Ben Wing  <ben@xemacs.org>
 
 	* mule/cyrillic.el (for):
diff -r 9a6c3653f58e -r aa8197436fdb lisp/loadup.el
--- a/lisp/loadup.el	Fri Jan 29 20:59:21 2010 -0600
+++ b/lisp/loadup.el	Sat Jan 30 15:47:37 2010 +0000
@@ -227,6 +227,12 @@
 ;; Make the path to this file look a little nicer: 
 (setcar (car load-history) (file-truename (caar load-history)))
 
+;; Make #'find-function behave better with dumped files.
+(let ((source-lisp (concat "^" (regexp-quote source-lisp))))
+  (mapc
+   #'(lambda (elt) (setcar elt (replace-in-string (car elt) source-lisp "")))
+   load-history))
+
 (garbage-collect)
 
 ;;; At this point, we're ready to resume undo recording for scratch.