[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-patches] Require `cus-edit' and start using `custom-quote' in Ema
From: |
Daniel Brockman |
Subject: |
[bongo-patches] Require `cus-edit' and start using `custom-quote' in Emacs 21 again (thanks to Daniel Jensen) |
Date: |
Thu, 04 Jan 2007 07:04:31 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.92 (gnu/linux) |
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>