[emacs-wiki-discuss] Error "Symbol's function definition is void: custom-quote"

[Alec Clews]

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 address@hidden@307^H310Q2025^@   
311=203'address@hidden@address@hidden@
address@hidden@307^H321Q^Z322
address@hidden@address@hidden@address@hidden@address@hidden
address@hidden"address@hidden@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, <address@hidden> 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