search

larstvei / Focus

Dim the font color of text in surrounding paragraphs
470 stars 14 forks source link

Wrong type argument: listp, "Dim the font color of text in surrounding sections." #1

Closed buster closed 9 years ago

buster commented 9 years ago

When installing on emacs 24.4.1 on Debian and enabling with "M-x focus-mode" i get the following error:

Debugger entered--Lisp error: (wrong-type-argument listp "Dim the font color of text in surrounding sections.")
  custom-declare-group((quote focus) "Dim the font color of text in surrounding sections." :group font-lock)
  byte-code("\300\301!\210\300\302!\210\303\304\305\306\307$\210\310\311\312\313\314DD\315\316\317\306\320&\210\310\321\312\313\322DD\323\316\324\306\320&\207" [require cl-lib thingatpt custom-declare-group (quote focus) "Dim the font color of text in surrounding sections." :group font-lock custom-declare-variable focus-dimness funcall function #[0 "\300\207" [0] 1 "\n\n(fn)"] "Amount of dimness in out of focus sections is determined by this integer.\n\nA positive value increases the dimness of the sections. A\n\nnegative value decreases the dimness.\n\nThe default is 0 which means a 50/50 mixture of the background and foreground\ncolor." :type (integer) focus focus-mode-to-thing #[0 "\300\207" [((prog-mode . defun) (text-mode . sentence))] 1 "\n\n(fn)"] "An associated list between mode and thing.\n\nA thing is defined in thingatpt.el; the thing determines the\nnarrowness of the focused section.\n\nNote that the order of the list matters. The first mode that the\ncurrent mode is derived from is used, so more modes that have\nmany derivatives should be placed by the end of the list.\n\nThings that are defined include `symbol', `list', `sexp',\n`defun', `filename', `url', `email', `word', `sentence',\n`whitespace', `line', and `page'." (repeat symbol)] 8)
  autoload-do-load((autoload "focus" "Dim the font color of text in surrounding sections.\n\n(fn &optional ARG)" t nil) focus-mode)
  command-execute(focus-mode record)
  helm-M-x(nil "focus-mode")
  #<subr call-interactively>(helm-M-x nil nil)
  ad-Advice-call-interactively(#<subr call-interactively> helm-M-x nil nil)
  apply(ad-Advice-call-interactively #<subr call-interactively> (helm-M-x nil nil))
  call-interactively(helm-M-x nil nil)
  command-execute(helm-M-x)
larstvei commented 9 years ago

Hi!

Thanks! I've fixed it (or at least it works for me): 4c8391ea32087279057e90f46791ef91c1d86cf2

Sorry to have pushed faulty code!

BTW: the change have made it into melpa, so you should be able to upgrade it now.