- ;; load init in `after-init-hook' so all packages are loaded. However, disabled because
- ;; there seems to be no need.
- ;; todo, learn about the weird evaluation order of this hook that requires the quoting.
- ;; adapted from starter-kit
- ;; (add-hook 'after-init-hook
- ;; `(lambda ()
- ;; (load-file (expand-file-name "myinit.el" init-dir))
- ;; ))
-
-
-;;; Weird package bug workaround
-
-
- ;; without this, when installing a package, this message happens
- ;;
- ;; custom-handle-keyword: Unknown keyword :group
- ;;
- ;; but when i lookup the function, i get the following, and if
- ;; I evaluate it, the error goes away. so I think the real
- ;; definition is happening somewhere else
-
- (defun custom-handle-keyword (symbol keyword value type)
- "For customization option SYMBOL, handle KEYWORD with VALUE.
-Fourth argument TYPE is the custom option type."
- (if purify-flag
- (setq value (purecopy value)))
- (cond ((eq keyword :group)
- (custom-add-to-group value symbol type))
- ((eq keyword :version)
- (custom-add-version symbol value))
- ((eq keyword :package-version)
- (custom-add-package-version symbol value))
- ((eq keyword :link)
- (custom-add-link symbol value))
- ((eq keyword :load)
- (custom-add-load symbol value))
- ((eq keyword :tag)
- (put symbol 'custom-tag value))
- ((eq keyword :set-after)
- (custom-add-dependencies symbol value))
- (t
- (error "Unknown keyword %s" keyword))))
-
-