Skip to content

Instantly share code, notes, and snippets.

@exu
Created October 19, 2011 07:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save exu/1297660 to your computer and use it in GitHub Desktop.
Save exu/1297660 to your computer and use it in GitHub Desktop.
emacs error
Debugger entered--Lisp error: (void-function hexrgb-canonicalize-defined-colors)
(hexrgb-canonicalize-defined-colors (x-defined-colors))
(and window-system (hexrgb-canonicalize-defined-colors (x-defined-colors)))
(progn (and window-system (hexrgb-canonicalize-defined-colors (x-defined-colors))))
(eval-when-compile (and window-system (hexrgb-canonicalize-defined-colors (x-defined-colors))))
(defconst hexrgb-defined-colors-no-dups (eval-when-compile (and window-system (hexrgb-canonicalize-defined-colors (x-defined-colors)))) "List of all supported color names, with no duplicates.\nNames are all lowercase, without any spaces.")
eval-buffer(#<buffer *load*<2>> nil "/home/exu/.emacs.d/elpa/hexrgb-21.0/hexrgb-autoloads.el" nil t) ; Reading at buffer position 1232
load-with-code-conversion("/home/exu/.emacs.d/elpa/hexrgb-21.0/hexrgb-autoloads.el" "/home/exu/.emacs.d/elpa/hexrgb-21.0/hexrgb-autoloads.el" nil t)
load("/home/exu/.emacs.d/elpa/hexrgb-21.0/hexrgb-autoloads" nil t)
(let* ((name (symbol-name package)) (version-str (package-version-join (package-desc-vers pkg-vec))) (pkg-dir (package--dir name version-str))) (unless pkg-dir (error "Internal error: unable to find directory for `%s-%s'" name version-str)) (when (file-exists-p (expand-file-name "dir" pkg-dir)) (require (quote info)) (info-initialize) (push pkg-dir Info-directory-list)) (push pkg-dir load-path) (load (expand-file-name (concat name "-autoloads") pkg-dir) nil t) (push package package-activated-list) t)
package-activate-1(hexrgb [(21 0) nil "Functions to manipulate colors, including RGB hex strings."])
(if fail (warn "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" package (car fail) (package-version-join (cadr fail))) (package-activate-1 package pkg-vec))
(let ((fail (catch (quote dep-failure) (dolist (req (package-desc-reqs pkg-vec)) (unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req)))))) (if fail (warn "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" package (car fail) (package-version-join (cadr fail))) (package-activate-1 package pkg-vec)))
(cond ((null found) (package-built-in-p package version)) ((memq package package-activated-list) t) (t (let ((fail (catch (quote dep-failure) (dolist (req ...) (unless ... ...))))) (if fail (warn "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" package (car fail) (package-version-join (cadr fail))) (package-activate-1 package pkg-vec)))))
(let ((pkg-vec (cdr (assq package package-alist))) available-version found) (when pkg-vec (setq available-version (package-desc-vers pkg-vec) found (version-list-<= version available-version))) (cond ((null found) (package-built-in-p package version)) ((memq package package-activated-list) t) (t (let ((fail (catch (quote dep-failure) (dolist ... ...)))) (if fail (warn "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" package (car fail) (package-version-join (cadr fail))) (package-activate-1 package pkg-vec))))))
package-activate(hexrgb (21 0))
(if (package-activate (car req) (cadr req)) nil (throw (quote dep-failure) req))
(unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req))
(while --cl-dolist-temp-- (setq req (car --cl-dolist-temp--)) (unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- (package-desc-reqs pkg-vec)) req) (while --cl-dolist-temp-- (setq req (car --cl-dolist-temp--)) (unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))
(catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- (package-desc-reqs pkg-vec)) req) (while --cl-dolist-temp-- (setq req (car --cl-dolist-temp--)) (unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- (package-desc-reqs pkg-vec)) req) (while --cl-dolist-temp-- (setq req (car --cl-dolist-temp--)) (unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))))
(block nil (let ((--cl-dolist-temp-- (package-desc-reqs pkg-vec)) req) (while --cl-dolist-temp-- (setq req (car --cl-dolist-temp--)) (unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))
(dolist (req (package-desc-reqs pkg-vec)) (unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req)))
(catch (quote dep-failure) (dolist (req (package-desc-reqs pkg-vec)) (unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req))))
(let ((fail (catch (quote dep-failure) (dolist (req (package-desc-reqs pkg-vec)) (unless (package-activate (car req) (cadr req)) (throw (quote dep-failure) req)))))) (if fail (warn "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" package (car fail) (package-version-join (cadr fail))) (package-activate-1 package pkg-vec)))
(cond ((null found) (package-built-in-p package version)) ((memq package package-activated-list) t) (t (let ((fail (catch (quote dep-failure) (dolist (req ...) (unless ... ...))))) (if fail (warn "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" package (car fail) (package-version-join (cadr fail))) (package-activate-1 package pkg-vec)))))
(let ((pkg-vec (cdr (assq package package-alist))) available-version found) (when pkg-vec (setq available-version (package-desc-vers pkg-vec) found (version-list-<= version available-version))) (cond ((null found) (package-built-in-p package version)) ((memq package package-activated-list) t) (t (let ((fail (catch (quote dep-failure) (dolist ... ...)))) (if fail (warn "Unable to activate package `%s'.\nRequired package `%s-%s' is unavailable" package (car fail) (package-version-join (cadr fail))) (package-activate-1 package pkg-vec))))))
package-activate(icicles (22 0))
(while --cl-dolist-temp-- (setq elt (car --cl-dolist-temp--)) (package-activate (car elt) (package-desc-vers (cdr elt))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- package-alist) elt) (while --cl-dolist-temp-- (setq elt (car --cl-dolist-temp--)) (package-activate (car elt) (package-desc-vers (cdr elt))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))
(catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- package-alist) elt) (while --cl-dolist-temp-- (setq elt (car --cl-dolist-temp--)) (package-activate (car elt) (package-desc-vers (cdr elt))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- package-alist) elt) (while --cl-dolist-temp-- (setq elt (car --cl-dolist-temp--)) (package-activate (car elt) (package-desc-vers (cdr elt))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))))))
(block nil (let ((--cl-dolist-temp-- package-alist) elt) (while --cl-dolist-temp-- (setq elt (car --cl-dolist-temp--)) (package-activate (car elt) (package-desc-vers (cdr elt))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))))
(dolist (elt package-alist) (package-activate (car elt) (package-desc-vers (cdr elt))))
(if no-activate nil (dolist (elt package-alist) (package-activate (car elt) (package-desc-vers (cdr elt)))))
(unless no-activate (dolist (elt package-alist) (package-activate (car elt) (package-desc-vers (cdr elt)))))
package-initialize()
eval-buffer(#<buffer *load*> nil "/home/exu/.emacs.d/init.el" nil t) ; Reading at buffer position 1539
load-with-code-conversion("/home/exu/.emacs.d/init.el" "/home/exu/.emacs.d/init.el" t t)
load("/home/exu/.emacs.d/init" t t)
#[0 "\205\262
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment