* bookmark.el (bookmark-unload-function): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57d4b21bad7db9d62bda6e39586d76a2aed7eca9..62d33cbed5e34019d77bb640298b2254c359a296 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/bookmark.el b/lisp/bookmark.el
index 535b1f2516a4ea15c50d5bd919fb335201ffe989..8ac1226ec763041466cf500f114fa330ee15e79c 100644 (file)
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -2078,6 +2078,12 @@ This also runs `bookmark-exit-hook'."
 
 (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)