Error "Symbol's function definition is void: custom-quote"

I have installed emacs-planner according to the instructions at
http://www.plannerlove.com/pmwiki/pmwiki.php?n=Main.QuickStart

I am using SUSE Open Linux 10( X86_64), Emacs 21.3 on an HP nx6125
(AMD Turion64 CPU)

Can anyone suggest how I can fix this please? I have located the
apparent offending line in  /muse/lisp/muse-project.el, however as I
have no lisp or Emacs programming experience I'm not sure how to
proceed.

Here are the details

When I run Emacs I get the following error messages
 -------------------------------------------------------------------------------------

(emacs)
Loading tool-bar...done
Loading image...done
Loading tooltip...done
Loading rng-auto.el (source)...done
Loading /usr/lib/emacs/21.3/x86_64-suse-linux/fns-21.3.1.el (source)...done
Loading paren...done
Loading encoded-kb...done
Loading regexp-opt...done


An error has occurred while loading `/home/alec/.emacs':

Symbol's function definition is void: custom-quote

To ensure normal operation, you should investigate the cause
of the error in your initialization file and remove it.  Start
Emacs with the `--debug-init' option to view a complete error
backtrace
Loading mwheel...done
Loading lazy-lock...done
-------------------------------------------------------------------------------------

When I run emacs with the --debug-init option I get the this
-------------------------------------------------------------------------------------
Debugger entered--Lisp error: (void-function custom-quote)
  (custom-quote val)
  (list (custom-quote val))
  (put sym (quote saved-value) (list (custom-quote val)))
  (progn (put sym (quote saved-value) (list ...)) (while val (let ...
... ...) (let ... ...) (setq val ...)))
  (if muse-project-alist-using-customize (progn (put sym ... ...)
(while val ... ... ...)))
  (when muse-project-alist-using-customize (put sym (quote
saved-value) (list ...)) (while val (let ... ... ...) (let ... ..
.) (setq val ...)))
  muse-project-alist-set(muse-project-alist (("WikiPlanner"
("~/elisp/plans" ... ... ...))))
  custom-initialize-reset(muse-project-alist nil)
  custom-declare-variable(muse-project-alist nil "An alist of Muse
projects.\nA project defines a fileset, and a list of cus
tom attributes for use\nwhen publishing files in that project." :type
(choice (const :tag "No projects defined." nil) (repea
t (cons :format "%{%t%}:\n\n%v" :tag "Project" :indent 4 ...
muse-project)) (sexp :tag "Cannot parse expression")) :get muse
-project-alist-get :set muse-project-alist-set :group muse-project)
  (defcustom muse-project-alist nil "An alist of Muse projects.\nA
project defines a fileset, and a list of custom attribute
s for use\nwhen publishing files in that project." :type (quote
(choice ... ... ...)) :get (quote muse-project-alist-get) :s
et (quote muse-project-alist-set) :group (quote muse-project))
  eval-buffer(#<buffer  *load*<3>> nil "muse-project" nil t)
  load-with-code-conversion("/home/alec/elisp/muse/lisp/muse-project.el"
"muse-project" nil t)
  require(muse-project)
  eval-buffer(#<buffer  *load*<2>> nil "muse-mode" nil t)
  load-with-code-conversion("/home/alec/elisp/muse/lisp/muse-mode.el"
"muse-mode" nil t)
  require(muse-mode)
  eval-buffer(#<buffer  *load*> nil "~/.emacs" nil t)
  load-with-code-conversion("/home/alec/.emacs" "~/.emacs" t t)
  load("~/.emacs" t t)
  #[nil 205227^@^I306=203^Q^@307^H310Q2025^@   
311=203'^@312307313314#203#^@3152025^@3162025^@
317=2031^@Ђ5^@307^H321Q^Z322
^S323\n322211#210^K322=203F^@313^S^K203210^@324^K!՚203210^@326^K!211^\327P^]330^M!203d^@^M202o^@330\f!203n^@\f202o^@ˉ^T203
207^@331\f^K\"203205^@332333\f^K#210334335!210\f^S*^N^_206226^@313^^
323336322211#))207" [init-file-user system-type user-in
it-file-1 user-init-file source alt ms-dos "~" "/_emacs" windows-nt
directory-files nil "^\\.emacs\\(\\.elc?\\)?$" "~/.emacs
" "~/_emacs" vax-vms "sys$login:.emacs" "/.emacs" t load
file-name-extension "elc" file-name-sans-extension ".el" file-exist
s-p file-newer-than-file-p message "Warning: %s is newer than %s"
sit-for 1 "default" inhibit-default-init inhibit-startup-m
essage] 5]()
  command-line()
  normal-top-level()
------------------------------------------------------------------------------------------------------------------

my .emacs file looks like this
------------------------------------------------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File name: ` ~/.emacs '
;;; ---------------------
;;;
;;; If you need your own personal ~/.emacs
;;; please make a copy of this file
;;; an placein your changes and/or extension.
;;;
;;; Copyright (c) 1997-2002 SuSE Gmbh Nuernberg, Germany.
;;;
;;; Author: Werner Fink, <[email protected]> 1997,98,99,2002
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Test of Emacs derivates
;;; -----------------------
(if (string-match "XEmacs\\|Lucid" emacs-version)
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; XEmacs
  ;;; ------
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (progn
     (if (file-readable-p "~/.xemacs/init.el")
        (load "~/.xemacs/init.el" nil t))
  )
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; GNU-Emacs
  ;;; ---------
  ;;; load ~/.gnu-emacs or, if not exists /etc/skel/.gnu-emacs
  ;;; For a description and the settings see /etc/skel/.gnu-emacs
  ;;;   ... for your private ~/.gnu-emacs your are on your one.
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (if (file-readable-p "~/.gnu-emacs")
      (load "~/.gnu-emacs" nil t)
    (if (file-readable-p "/etc/skel/.gnu-emacs")
	(load "/etc/skel/.gnu-emacs" nil t)))

  ;; Custum Settings
  ;; ===============
  ;; To avoid any trouble with the customization system of GNU emacs
  ;; we set the default file ~/.gnu-emacs-custom
  (setq custom-file "~/.gnu-emacs-custom")
  (load "~/.gnu-emacs-custom" t t)
;;;
)
;;;

;; Sample configuration file for Muse, Planner and Remember
;; ================================================================

;; CHANGE BASE-DIRECTORY TO POINT TO THE DIRECTORY YOU UNPACKED FILES TO
;; For example, this works if you used
;;   mkdir ~/elisp
;;   tar -zxvfC plannerbundle.tar.gz ~/elisp

(defvar my/base-directory    "~/elisp" "Base directory where I
unpacked the Lisp files.")
(defvar my/planner-directory "~/elisp/plans" "Directory for my Planner
text files.")
(defvar my/planner-newbie-p  t "*Set to nil if you don't want any of
the newbie help stuff.")

(require 'info)

(let ((base-directory "~/elisp"))
  (add-to-list 'load-path (concat base-directory "/muse/lisp"))
  (add-to-list 'load-path (concat base-directory "/planner"))
  (add-to-list 'load-path (concat base-directory "/remember"))
  (add-to-list 'Info-directory-list (concat base-directory "/planner"))
  (add-to-list 'Info-directory-list (concat base-directory "/muse"))
  (add-to-list 'Info-directory-list (concat base-directory "/remember-el")))

;; Muse configuration
(setq muse-project-alist
      `(("WikiPlanner"
         (,my/planner-directory
          :default "index"
          :major-mode planner-mode
	  :visit-link planner-visit-link))))
(setq muse-file-extension "txt")
(setq muse-mode-auto-p t)

;; Load code
(require 'muse-mode)
(require 'muse-project)
(require 'muse-wiki)
(require 'muse-colors)
(require 'planner)
(require 'planner-lisp)
(require 'planner-auto)
(require 'remember)
(require 'remember-planner)

(when my/planner-newbie-p
  ;; Stuff to make newbies' lives easier
  (setq planner-day-page-template
        (concat
         "TAB/SHIFT-TAB: switch between links    "
         "RET/ENTER: follow link\n"
         "[[lisp:planner-goto][Jump to date]] (C-c C-j C-d)             "
         "[[lisp:planner-goto-today][Today]]    (C-c C-j C-j)\n"
         "[[lisp:planner-goto-yesterday][Previous day]] (C-c C-j C-y) 
           "
         "[[lisp:planner-goto-tomorrow][Next day]] (C-c C-j C-t)\n"
         "[[lisp:planner-create-task-from-buffer][New task]]     (C-c
C-t)                 "
         "[[lisp:remember][New note]] (M-x remember)\n\n"
         "* Tasks\n\n\n* Schedule\n\n\n* Notes\n\n\n")))

;; Display today's page
(plan)

(when my/planner-newbie-p
  (planner-find-file "WelcomePage" 'find-file-other-window))

;; Finish setting up remember
(setq remember-annotation-functions planner-annotation-functions)
(setq remember-handler-functions '(remember-planner-append))


------------------------------------------------------------------------------------------------------------------


Many thanks

--
Alec Clews, Melbourne, Australia

_______________________________________________
emacs-wiki-discuss mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss