[bongo-patches] Require `cus-edit' and start using `custom-quote' in Emacs 21 again (thanks to Daniel Jensen)

[Daniel Brockman]

Thu Jan  4 07:01:20 CET 2007  Daniel Brockman <address@hidden>

 * Require `cus-edit' and start using `custom-quote' in
   Emacs 21 again (thanks to Daniel Jensen).

diff -rN -u old-bongo/bongo-emacs21.el new-bongo/bongo-emacs21.el
--- old-bongo/bongo-emacs21.el  2007-01-04 07:02:21.000000000 +0100
+++ new-bongo/bongo-emacs21.el  2007-01-04 07:02:21.000000000 +0100
@@ -6,7 +6,7 @@
 ;; Author: Daniel Brockman <address@hidden>
 ;; URL: http://www.brockman.se/software/bongo/
 ;; Created: December 27, 2006
-;; Updated: January 3, 2006
+;; Updated: January 4, 2007
 
 ;; This file is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
@@ -138,6 +138,7 @@
 ;;; Not available in Emacs 21.
 ;;;   (custom-load-symbol symbol)
 
+  (require 'cus-edit)
   (let* ((get (or (get symbol 'custom-get) 'default-value))
          (value (funcall get symbol))
          (customized (get symbol 'customized-value))
@@ -147,12 +148,7 @@
                   (equal value (condition-case nil
                                    (eval (car old))
                                  (error nil)))))
-        (progn (put symbol 'customized-value (list
-
-;;; Not available in Emacs 21.
-;;;                                               (custom-quote value)
-
-                                              (list 'quote value)))
+        (progn (put symbol 'customized-value (list (custom-quote value)))
 
 ;;; Not available in Emacs 21.
 ;;;                (custom-push-theme 'theme-value symbol 'user 'set

-- 
Daniel Brockman <address@hidden>