# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1223293799 0
# Node ID acd509f38a6a803c1475305ab945542205f3ab33
# Parent  55ce7d80f7dc64e176419ab7576231b7543fdfc5
* bookmark.el (bookmark-unload-function): New function.

diff -r 55ce7d80f7dc -r acd509f38a6a lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Oct 06 10:03:59 2008 +0000
+++ b/lisp/ChangeLog	Mon Oct 06 11:49:59 2008 +0000
@@ -1,3 +1,7 @@
+2008-10-06  Juanma Barranquero  <lekktu@gmail.com>
+
+	* bookmark.el (bookmark-unload-function): New function.
+
 2008-10-06  Andreas Schwab  <schwab@suse.de>
 
 	* emacs-lisp/syntax.el (syntax-ppss): Doc fix.
@@ -7,9 +11,9 @@
 	* mail/footnote.el: Remove * in defcustom docstrings and tell
 	for most options that customizing them doesn't affect buffers
 	already displaying footnotes.
-	(Footnote-refresh-footnotes, Footnote-renumber-footnotes): Fix
-	handling of text properties and identical start/end tags.  Do
-	not use format when renumbering.
+	(Footnote-refresh-footnotes, Footnote-renumber-footnotes):
+	Fix handling of text properties and identical start/end tags.
+	Do not use format when renumbering.
 	(Footnote-set-style): Make it work.
 	(Footnote-insert-numbered-footnote): Simplify.
 	(Footnote-narrow-to-footnotes, Footnote-insert-footnote)
@@ -214,9 +218,9 @@
 
 	* calc/calc-units.el (math-standard-units): Add entries used to
 	display the the values in the units buffer.
-	(math-build-units-table):  Add entries to the units table to be used
+	(math-build-units-table): Add entries to the units table to be used
 	to display the values in the units buffer.
-	(math-build-units-table-buffer):  Use the display entry of the units
+	(math-build-units-table-buffer): Use the display entry of the units
 	table when non-nil.
 	(calc-define-unit): Add option to enter display value of unit.
 
diff -r 55ce7d80f7dc -r acd509f38a6a lisp/bookmark.el
--- a/lisp/bookmark.el	Mon Oct 06 10:03:59 2008 +0000
+++ b/lisp/bookmark.el	Mon Oct 06 11:49:59 2008 +0000
@@ -2078,6 +2078,12 @@
 
 (add-hook 'kill-emacs-hook 'bookmark-exit-hook-internal)
 
+(defun bookmark-unload-function ()
+  "Unload the Bookmark library."
+  (when bookmark-save-flag (bookmark-save))
+  ;; continue standard unloading
+  nil)
+
 
 (run-hooks 'bookmark-load-hook)