search

jkitchin / ov-highlight

A persistent highlighter for Emacs
60 stars 6 forks source link

ov-highlight-color wrong arguments numbers #5

Closed bruce-bai22 closed 5 years ago

bruce-bai22 commented 5 years ago

When I use ov-highlight-color, it reports Wrong number of arguments: #<subr max>, 0.

My system is MacOS Mojave 10.14.1 and emacs is 26.1.

jkitchin commented 5 years ago

that is odd. I cannot reproduce it on my system. I am anot sure what # is. It suggests a function named max in subr.el, but I don't see one in my subr.el, and it is not obvious a max function is used in ov-highlight

Do other ov-highlight functions work?

bruce-bai22 commented 5 years ago

Other functions work well, only this one has some problems. Here is the 'Backtrace' after I toggle the debugger:

Debugger entered--Lisp error: (wrong-number-of-arguments #<subr max> 0)
  max()
  apply(max nil)
  list-colors-print((("LightGreen") ("DarkRed") ("DarkMagenta") ("DarkCyan") ("DarkBlue") ("DarkGray" "DarkGrey") ("grey100") ("grey99") ("grey98") ("grey97") ("grey96") ("grey95") ("grey94") ("grey93") ("grey92") ("grey91") ("grey90") ("grey89") ("grey88") ("grey87") ("grey86") ("grey85") ("grey84") ("grey83") ("grey82") ("grey81") ("grey80") ("grey79") ("grey78") ("grey77") ("grey76") ("grey75") ("grey74") ("grey73") ("grey72") ("grey71") ("grey70") ("grey69") ("grey68") ("grey67") ("grey66") ("grey65") ("grey64") ("grey63") ("grey62") ("grey61") ("grey60") ("grey59") ("grey58") ("grey57") ("grey56") ("grey55") ("grey54") ("grey53") ("grey52") ("grey51") ("grey50") ("grey49") ("grey48") ("grey47") ("grey46") ("grey45") ("grey44") ("grey43") ("grey42") ("grey41") ("grey40") ("grey39") ("grey38") ("grey37") ("grey36") ("grey35") ("grey34") ("grey33") ("grey32") ("grey31") ("grey30") ("grey29") ("grey28") ("grey27") ("grey26") ("grey25") ("grey24") ("grey23") ("grey22") ("grey21") ("grey20") ("grey19") ("grey18") ("grey17") ("grey16") ("grey15") ("grey14") ("grey13") ("grey12") ("grey11") ("grey10") ("grey9") ("grey8") ("grey7") ("grey6") ("grey5") ("grey4") ("grey3") ("grey2") ("grey1") ("grey0") ("thistle4") ("thistle3") ("thistle2") ("thistle1") ("MediumPurple4") ("MediumPurple3") ("MediumPurple2") ("MediumPurple1") ("purple4") ("purple3") ("purple2") ("purple1") ("DarkOrchid4") ("DarkOrchid3") ("DarkOrchid2") ("DarkOrchid1") ("MediumOrchid4") ("MediumOrchid3") ("MediumOrchid2") ("MediumOrchid1") ("plum4") ("plum3") ("plum2") ("plum1") ("orchid4") ("orchid3") ("orchid2") ("orchid1") ("magenta4") ("magenta3") ("magenta2") ("magenta1") ("VioletRed4") ("VioletRed3") ("VioletRed2") ("VioletRed1") ("maroon4") ("maroon3") ("maroon2") ("maroon1") ("PaleVioletRed4") ("PaleVioletRed3") ("PaleVioletRed2") ("PaleVioletRed1") ("LightPink4") ("LightPink3") ("LightPink2") ("LightPink1") ("pink4") ("pink3") ("pink2") ("pink1") ("HotPink4") ("HotPink3") ("HotPink2") ("HotPink1") ("DeepPink4") ("DeepPink3") ("DeepPink2") ("DeepPink1") ("red4") ("red3") ("red2") ("red1") ("OrangeRed4") ("OrangeRed3") ("OrangeRed2") ("OrangeRed1") ("tomato4") ("tomato3") ("tomato2") ("tomato1") ("coral4") ("coral3") ("coral2") ("coral1") ("DarkOrange4") ("DarkOrange3") ("DarkOrange2") ("DarkOrange1") ("orange4") ("orange3") ("orange2") ("orange1") ("LightSalmon4") ("LightSalmon3") ("LightSalmon2") ("LightSalmon1") ("salmon4") ("salmon3") ("salmon2") ("salmon1") ("brown4") ("brown3") ("brown2") ("brown1") ("firebrick4") ("firebrick3") ("firebrick2") ("firebrick1") ("chocolate4") ("chocolate3") ("chocolate2") ("chocolate1") ("tan4") ("tan3") ("tan2") ("tan1") ("wheat4") ("wheat3") ("wheat2") ("wheat1") ("burlywood4") ("burlywood3") ("burlywood2") ("burlywood1") ("sienna4") ("sienna3") ("sienna2") ("sienna1") ("IndianRed4") ("IndianRed3") ("IndianRed2") ("IndianRed1") ("RosyBrown4") ("RosyBrown3") ("RosyBrown2") ("RosyBrown1") ("DarkGoldenrod4") ("DarkGoldenrod3") ("DarkGoldenrod2") ("DarkGoldenrod1") ("goldenrod4") ("goldenrod3") ("goldenrod2") ("goldenrod1") ("gold4") ("gold3") ("gold2") ("gold1") ("yellow4") ("yellow3") ("yellow2") ("yellow1") ("LightYellow4") ("LightYellow3") ("LightYellow2") ("LightYellow1") ("LightGoldenrod4") ("LightGoldenrod3") ("LightGoldenrod2") ("LightGoldenrod1") ("khaki4") ("khaki3") ("khaki2") ("khaki1") ("DarkOliveGreen4") ("DarkOliveGreen3") ("DarkOliveGreen2") ("DarkOliveGreen1") ("OliveDrab4") ("OliveDrab3") ("OliveDrab2") ("OliveDrab1") ("chartreuse4") ("chartreuse3") ("chartreuse2") ("chartreuse1") ("green4") ("green3") ("green2") ("green1") ("SpringGreen4") ("SpringGreen3") ("SpringGreen2") ("SpringGreen1") ("PaleGreen4") ("PaleGreen3") ("PaleGreen2") ("PaleGreen1") ("SeaGreen4") ("SeaGreen3") ("SeaGreen2") ("SeaGreen1") ("DarkSeaGreen4") ("DarkSeaGreen3") ("DarkSeaGreen2") ("DarkSeaGreen1") ("aquamarine4") ("aquamarine3") ("aquamarine2") ("aquamarine1") ("DarkSlateGray4") ("DarkSlateGray3") ("DarkSlateGray2") ("DarkSlateGray1") ("cyan4") ("cyan3") ("cyan2") ("cyan1") ("turquoise4") ("turquoise3") ("turquoise2") ("turquoise1") ("CadetBlue4") ("CadetBlue3") ("CadetBlue2") ("CadetBlue1") ("PaleTurquoise4") ("PaleTurquoise3") ("PaleTurquoise2") ("PaleTurquoise1") ("LightCyan4") ("LightCyan3") ("LightCyan2") ("LightCyan1") ("LightBlue4") ("LightBlue3") ("LightBlue2") ("LightBlue1") ("LightSteelBlue4") ("LightSteelBlue3") ("LightSteelBlue2") ("LightSteelBlue1") ("SlateGray4") ("SlateGray3") ("SlateGray2") ("SlateGray1") ("LightSkyBlue4") ("LightSkyBlue3") ("LightSkyBlue2") ("LightSkyBlue1") ("SkyBlue4") ("SkyBlue3") ("SkyBlue2") ("SkyBlue1") ("DeepSkyBlue4") ("DeepSkyBlue3") ("DeepSkyBlue2") ("DeepSkyBlue1") ("SteelBlue4") ("SteelBlue3") ("SteelBlue2") ("SteelBlue1") ("DodgerBlue4") ("DodgerBlue3") ("DodgerBlue2") ("DodgerBlue1") ("blue4") ("blue3") ("blue2") ("blue1") ("RoyalBlue4") ("RoyalBlue3") ("RoyalBlue2") ("RoyalBlue1") ("SlateBlue4") ("SlateBlue3") ("SlateBlue2") ("SlateBlue1") ("azure4") ("azure3") ("azure2") ("azure1") ("MistyRose4") ("MistyRose3") ("MistyRose2") ("MistyRose1") ("LavenderBlush4") ("LavenderBlush3") ("LavenderBlush2") ("LavenderBlush1") ("honeydew4") ("honeydew3") ("honeydew2") ("honeydew1") ("ivory4") ("ivory3") ("ivory2") ("ivory1") ("cornsilk4") ("cornsilk3") ("cornsilk2") ("cornsilk1") ("LemonChiffon4") ("LemonChiffon3") ("LemonChiffon2") ("LemonChiffon1") ("NavajoWhite4") ("NavajoWhite3") ("NavajoWhite2") ("NavajoWhite1") ("PeachPuff4") ("PeachPuff3") ("PeachPuff2") ("PeachPuff1") ("bisque4") ("bisque3") ("bisque2") ("bisque1") ("AntiqueWhite4") ("AntiqueWhite3") ("AntiqueWhite2") ("AntiqueWhite1") ("seashell4") ("seashell3") ("seashell2") ("seashell1") ("snow4") ("snow3") ("snow2") ("snow1") ("thistle") ("MediumPurple") ("purple") ("BlueViolet") ("DarkViolet") ("DarkOrchid") ("MediumOrchid") ("orchid") ("plum") ("violet") ("magenta") ("VioletRed") ("MediumVioletRed") ("maroon") ("PaleVioletRed") ("LightPink") ("pink") ("DeepPink") ("HotPink") ("red") ("OrangeRed") ("tomato") ("LightCoral") ("coral") ("DarkOrange") ("orange") ("LightSalmon") ("salmon") ("DarkSalmon") ("brown") ("firebrick") ("chocolate") ("tan") ("SandyBrown") ("wheat") ("beige") ("burlywood") ("peru") ("sienna") ("SaddleBrown") ("IndianRed") ("RosyBrown") ("DarkGoldenrod") ("goldenrod") ("LightGoldenrod") ("gold") ("yellow") ("LightYellow") ("LightGoldenrodYellow") ("PaleGoldenrod") ("khaki") ("DarkKhaki") ("OliveDrab") ("ForestGreen") ("YellowGreen") ("LimeGreen") ("GreenYellow") ("MediumSpringGreen") ("chartreuse") ("green") ("LawnGreen") ("SpringGreen") ("PaleGreen") ("LightSeaGreen") ("MediumSeaGreen") ("SeaGreen") ("DarkSeaGreen") ("DarkOliveGreen") ("DarkGreen") ("aquamarine") ("MediumAquamarine") ("CadetBlue") ("LightCyan") ("cyan") ("turquoise") ("MediumTurquoise") ("DarkTurquoise") ("PaleTurquoise") ("PowderBlue") ("LightBlue") ("LightSteelBlue") ("SteelBlue") ("LightSkyBlue") ("SkyBlue") ("DeepSkyBlue") ("DodgerBlue") ("blue") ("RoyalBlue") ("MediumBlue") ("LightSlateBlue") ("MediumSlateBlue") ("SlateBlue") ("DarkSlateBlue") ("CornflowerBlue") ("NavyBlue") ("MidnightBlue") ("LightGray" "LightGrey") ("grey") ("LightSlateGrey") ("SlateGrey") ("DimGrey") ("DarkSlateGrey") ("black") ("white") ("MistyRose") ("LavenderBlush") ("lavender") ("AliceBlue") ("azure") ("MintCream") ("honeydew") ("seashell") ("LemonChiffon") ("ivory") ("cornsilk") ("moccasin") ("NavajoWhite") ("PeachPuff") ("bisque") ("BlanchedAlmond") ("PapayaWhip") ("AntiqueWhite") ("linen") ("OldLace") ("FloralWhite") ("gainsboro") ("WhiteSmoke") ("GhostWhite") ("snow") ("alternateSelectedControlColor") ("alternateSelectedControlTextColor" "controlColor" "controlBackgroundColor") ("controlDarkShadowColor" "controlShadowColor" "controlLightHighlightColor" "controlHighlightColor") ("controlTextColor" "disabledControlTextColor") ("gridColor") ("headerColor") ("headerTextColor") ("highlightColor") ("keyboardFocusIndicatorColor") ("knobColor") ("labelColor" "quaternaryLabelColor") ("scrollBarColor") ("secondaryLabelColor") ("secondarySelectedControlColor") ("selectedControlColor") ("selectedControlTextColor") ("selectedKnobColor" "selectedMenuItemColor") ("selectedMenuItemTextColor") ("selectedTextBackgroundColor") ("selectedTextColor") ("shadowColor") ("tertiaryLabelColor") ("textBackgroundColor") ("textColor") ("windowBackgroundColor") ("windowFrameColor") ("windowFrameTextColor" "Black") ("Blue") ("Brown") ("Cyan") ("Green") ("Magenta") ("Orange") ("Purple") ("Red") ("Yellow") ("White")) nil)
  list-colors-display()
  (progn (list-colors-display))
  (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state))
  (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))
  (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state))))
  (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))
  (let* ((candidates (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))) (choice (completing-read "Color: " candidates))) (list :background (plist-get (get-text-property 0 'face (car (cdr (assoc choice candidates)))) :background)))
  (closure ((end . 22) (beg . 1) t) nil (let* ((candidates (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))) (choice (completing-read "Color: " candidates))) (list :background (plist-get (get-text-property 0 'face (car (cdr (assoc choice candidates)))) :background))))()
  funcall((closure ((end . 22) (beg . 1) t) nil (let* ((candidates (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))) (choice (completing-read "Color: " candidates))) (list :background (plist-get (get-text-property 0 'face (car (cdr (assoc choice candidates)))) :background)))))
  (if (functionp face) (funcall face) face)
  (overlay-put ov 'face (if (functionp face) (funcall face) face))
  (let* ((beg (if (region-active-p) (region-beginning) (car bounds))) (end (if (region-active-p) (region-end) (cdr bounds))) (ov (make-overlay beg end))) (overlay-put ov 'face (if (functionp face) (funcall face) face)) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put ov prop (if (functionp val) (funcall val) val))) (overlay-put ov 'ov-highlighter t) (overlay-put ov 'ov-type "color") (set-buffer-modified-p t) (let ((p (point))) (if (mark) (progn (deactivate-mark))) (goto-char p)) (let ((buf (get-buffer "*ov-highlights*"))) (if (and ov-highlight-source (buffer-live-p ov-highlight-source) buf) (progn (save-current-buffer (set-buffer buf) (ov-highlight-refresh-list))))) ov)
  (if (and (ov-at) (overlay-get (ov-at) 'ov-highlighter)) (let* ((cf (overlay-get (ov-at) 'face)) (fp (if (facep cf) (let* ((--cl-var-- (face-all-attributes cf)) (v nil) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq v (car --cl-var--) p (car-safe (prog1 v (setq v (cdr v))))) (if v (progn (setq --cl-var-- (nconc (reverse (list p v)) --cl-var--)))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) cf))) (while face (setq prop (car-safe (prog1 face (setq face (cdr face)))) val (car-safe (prog1 face (setq face (cdr face))))) (plist-put fp prop val)) (overlay-put (ov-at) 'face fp) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put (ov-at) prop val))) (let* ((beg (if (region-active-p) (region-beginning) (car bounds))) (end (if (region-active-p) (region-end) (cdr bounds))) (ov (make-overlay beg end))) (overlay-put ov 'face (if (functionp face) (funcall face) face)) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put ov prop (if (functionp val) (funcall val) val))) (overlay-put ov 'ov-highlighter t) (overlay-put ov 'ov-type "color") (set-buffer-modified-p t) (let ((p (point))) (if (mark) (progn (deactivate-mark))) (goto-char p)) (let ((buf (get-buffer "*ov-highlights*"))) (if (and ov-highlight-source (buffer-live-p ov-highlight-source) buf) (progn (save-current-buffer (set-buffer buf) (ov-highlight-refresh-list))))) ov))
  (let ((face (function (lambda nil (let* ((candidates (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))) (choice (completing-read "Color: " candidates))) (list :background (plist-get (get-text-property 0 'face (car (cdr (assoc choice candidates)))) :background)))))) (properties 'nil) (bounds (bounds-of-thing-at-point 'word)) prop val) (if (and (ov-at) (overlay-get (ov-at) 'ov-highlighter)) (let* ((cf (overlay-get (ov-at) 'face)) (fp (if (facep cf) (let* ((--cl-var-- (face-all-attributes cf)) (v nil) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq v (car --cl-var--) p (car-safe (prog1 v (setq v (cdr v))))) (if v (progn (setq --cl-var-- (nconc (reverse (list p v)) --cl-var--)))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) cf))) (while face (setq prop (car-safe (prog1 face (setq face (cdr face)))) val (car-safe (prog1 face (setq face (cdr face))))) (plist-put fp prop val)) (overlay-put (ov-at) 'face fp) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put (ov-at) prop val))) (let* ((beg (if (region-active-p) (region-beginning) (car bounds))) (end (if (region-active-p) (region-end) (cdr bounds))) (ov (make-overlay beg end))) (overlay-put ov 'face (if (functionp face) (funcall face) face)) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put ov prop (if (functionp val) (funcall val) val))) (overlay-put ov 'ov-highlighter t) (overlay-put ov 'ov-type "color") (set-buffer-modified-p t) (let ((p (point))) (if (mark) (progn (deactivate-mark))) (goto-char p)) (let ((buf (get-buffer "*ov-highlights*"))) (if (and ov-highlight-source (buffer-live-p ov-highlight-source) buf) (progn (save-current-buffer (set-buffer buf) (ov-highlight-refresh-list))))) ov)))
  ov-highlight-color(1 22)
  funcall-interactively(ov-highlight-color 1 22)
  call-interactively(ov-highlight-color)
  hydra--call-interactively-remap-maybe(ov-highlight-color)
  (progn (setq this-command 'ov-highlight-color) (hydra--call-interactively-remap-maybe (function ov-highlight-color)))
  ov-highlight/ov-highlight-color-and-exit()
  funcall-interactively(ov-highlight/ov-highlight-color-and-exit)
  call-interactively(ov-highlight/ov-highlight-color-and-exit nil nil)
  command-execute(ov-highlight/ov-highlight-color-and-exit)
jkitchin commented 5 years ago

It looks like this is an error in list-colors-print, which is called in list-colors-display. If you run

M-x list-colors-display do you get the same error?

bruce-bai22 commented 5 years ago

Yes, also wrong argument numbers.

I checked the code in facemenu.el.gz, the list-colors-print function has the following codes:

(light-p (>= (apply 'max color-values)
              (* (car (color-values "white")) .5)))

According to the error backtrace info, the color-values must be nil. On the other hand, the functionmax` needs at least one argument, so the error happened.

Maybe I can trace debugging why the color-values is nil this Sunday.

And, any ideas?

jkitchin commented 5 years ago

It sounds like a bug in emacs to me. It suggests that color-values is not getting set correctly, which maybe means there is a color that doesn't have a definition maybe. Check the output of this and see if any colors don't have three values maybe.

#+BEGIN_SRC emacs-lisp
(let ((list (list-colors-duplicates (defined-colors))))
  (mapcar (lambda (el)
        (list (car el) (color-values (car el))))
      list))
#+END_SRC
jkitchin commented 5 years ago

I guess the problem is from the nil at the end of list-colors-print. I don't know why that is there, but it is probably the problem.

Other functions work well, only this one has some problems. Here is the 'Backtrace' after I toggle the debugger:

Debugger entered--Lisp error: (wrong-number-of-arguments #<subr max> 0)
  max()
  apply(max nil)
  list-colors-print((("LightGreen") ("DarkRed") ("DarkMagenta") ("DarkCyan") ("DarkBlue") ("DarkGray" "DarkGrey") ("grey100") ("grey99") ("grey98") ("grey97") ("grey96") ("grey95") ("grey94") ("grey93") ("grey92") ("grey91") ("grey90") ("grey89") ("grey88") ("grey87") ("grey86") ("grey85") ("grey84") ("grey83") ("grey82") ("grey81") ("grey80") ("grey79") ("grey78") ("grey77") ("grey76") ("grey75") ("grey74") ("grey73") ("grey72") ("grey71") ("grey70") ("grey69") ("grey68") ("grey67") ("grey66") ("grey65") ("grey64") ("grey63") ("grey62") ("grey61") ("grey60") ("grey59") ("grey58") ("grey57") ("grey56") ("grey55") ("grey54") ("grey53") ("grey52") ("grey51") ("grey50") ("grey49") ("grey48") ("grey47") ("grey46") ("grey45") ("grey44") ("grey43") ("grey42") ("grey41") ("grey40") ("grey39") ("grey38") ("grey37") ("grey36") ("grey35") ("grey34") ("grey33") ("grey32") ("grey31") ("grey30") ("grey29") ("grey28") ("grey27") ("grey26") ("grey25") ("grey24") ("grey23") ("grey22") ("grey21") ("grey20") ("grey19") ("grey18") ("grey17") ("grey16") ("grey15") ("grey14") ("grey13") ("grey12") ("grey11") ("grey10") ("grey9") ("grey8") ("grey7") ("grey6") ("grey5") ("grey4") ("grey3") ("grey2") ("grey1") ("grey0") ("thistle4") ("thistle3") ("thistle2") ("thistle1") ("MediumPurple4") ("MediumPurple3") ("MediumPurple2") ("MediumPurple1") ("purple4") ("purple3") ("purple2") ("purple1") ("DarkOrchid4") ("DarkOrchid3") ("DarkOrchid2") ("DarkOrchid1") ("MediumOrchid4") ("MediumOrchid3") ("MediumOrchid2") ("MediumOrchid1") ("plum4") ("plum3") ("plum2") ("plum1") ("orchid4") ("orchid3") ("orchid2") ("orchid1") ("magenta4") ("magenta3") ("magenta2") ("magenta1") ("VioletRed4") ("VioletRed3") ("VioletRed2") ("VioletRed1") ("maroon4") ("maroon3") ("maroon2") ("maroon1") ("PaleVioletRed4") ("PaleVioletRed3") ("PaleVioletRed2") ("PaleVioletRed1") ("LightPink4") ("LightPink3") ("LightPink2") ("LightPink1") ("pink4") ("pink3") ("pink2") ("pink1") ("HotPink4") ("HotPink3") ("HotPink2") ("HotPink1") ("DeepPink4") ("DeepPink3") ("DeepPink2") ("DeepPink1") ("red4") ("red3") ("red2") ("red1") ("OrangeRed4") ("OrangeRed3") ("OrangeRed2") ("OrangeRed1") ("tomato4") ("tomato3") ("tomato2") ("tomato1") ("coral4") ("coral3") ("coral2") ("coral1") ("DarkOrange4") ("DarkOrange3") ("DarkOrange2") ("DarkOrange1") ("orange4") ("orange3") ("orange2") ("orange1") ("LightSalmon4") ("LightSalmon3") ("LightSalmon2") ("LightSalmon1") ("salmon4") ("salmon3") ("salmon2") ("salmon1") ("brown4") ("brown3") ("brown2") ("brown1") ("firebrick4") ("firebrick3") ("firebrick2") ("firebrick1") ("chocolate4") ("chocolate3") ("chocolate2") ("chocolate1") ("tan4") ("tan3") ("tan2") ("tan1") ("wheat4") ("wheat3") ("wheat2") ("wheat1") ("burlywood4") ("burlywood3") ("burlywood2") ("burlywood1") ("sienna4") ("sienna3") ("sienna2") ("sienna1") ("IndianRed4") ("IndianRed3") ("IndianRed2") ("IndianRed1") ("RosyBrown4") ("RosyBrown3") ("RosyBrown2") ("RosyBrown1") ("DarkGoldenrod4") ("DarkGoldenrod3") ("DarkGoldenrod2") ("DarkGoldenrod1") ("goldenrod4") ("goldenrod3") ("goldenrod2") ("goldenrod1") ("gold4") ("gold3") ("gold2") ("gold1") ("yellow4") ("yellow3") ("yellow2") ("yellow1") ("LightYellow4") ("LightYellow3") ("LightYellow2") ("LightYellow1") ("LightGoldenrod4") ("LightGoldenrod3") ("LightGoldenrod2") ("LightGoldenrod1") ("khaki4") ("khaki3") ("khaki2") ("khaki1") ("DarkOliveGreen4") ("DarkOliveGreen3") ("DarkOliveGreen2") ("DarkOliveGreen1") ("OliveDrab4") ("OliveDrab3") ("OliveDrab2") ("OliveDrab1") ("chartreuse4") ("chartreuse3") ("chartreuse2") ("chartreuse1") ("green4") ("green3") ("green2") ("green1") ("SpringGreen4") ("SpringGreen3") ("SpringGreen2") ("SpringGreen1") ("PaleGreen4") ("PaleGreen3") ("PaleGreen2") ("PaleGreen1") ("SeaGreen4") ("SeaGreen3") ("SeaGreen2") ("SeaGreen1") ("DarkSeaGreen4") ("DarkSeaGreen3") ("DarkSeaGreen2") ("DarkSeaGreen1") ("aquamarine4") ("aquamarine3") ("aquamarine2") ("aquamarine1") ("DarkSlateGray4") ("DarkSlateGray3") ("DarkSlateGray2") ("DarkSlateGray1") ("cyan4") ("cyan3") ("cyan2") ("cyan1") ("turquoise4") ("turquoise3") ("turquoise2") ("turquoise1") ("CadetBlue4") ("CadetBlue3") ("CadetBlue2") ("CadetBlue1") ("PaleTurquoise4") ("PaleTurquoise3") ("PaleTurquoise2") ("PaleTurquoise1") ("LightCyan4") ("LightCyan3") ("LightCyan2") ("LightCyan1") ("LightBlue4") ("LightBlue3") ("LightBlue2") ("LightBlue1") ("LightSteelBlue4") ("LightSteelBlue3") ("LightSteelBlue2") ("LightSteelBlue1") ("SlateGray4") ("SlateGray3") ("SlateGray2") ("SlateGray1") ("LightSkyBlue4") ("LightSkyBlue3") ("LightSkyBlue2") ("LightSkyBlue1") ("SkyBlue4") ("SkyBlue3") ("SkyBlue2") ("SkyBlue1") ("DeepSkyBlue4") ("DeepSkyBlue3") ("DeepSkyBlue2") ("DeepSkyBlue1") ("SteelBlue4") ("SteelBlue3") ("SteelBlue2") ("SteelBlue1") ("DodgerBlue4") ("DodgerBlue3") ("DodgerBlue2") ("DodgerBlue1") ("blue4") ("blue3") ("blue2") ("blue1") ("RoyalBlue4") ("RoyalBlue3") ("RoyalBlue2") ("RoyalBlue1") ("SlateBlue4") ("SlateBlue3") ("SlateBlue2") ("SlateBlue1") ("azure4") ("azure3") ("azure2") ("azure1") ("MistyRose4") ("MistyRose3") ("MistyRose2") ("MistyRose1") ("LavenderBlush4") ("LavenderBlush3") ("LavenderBlush2") ("LavenderBlush1") ("honeydew4") ("honeydew3") ("honeydew2") ("honeydew1") ("ivory4") ("ivory3") ("ivory2") ("ivory1") ("cornsilk4") ("cornsilk3") ("cornsilk2") ("cornsilk1") ("LemonChiffon4") ("LemonChiffon3") ("LemonChiffon2") ("LemonChiffon1") ("NavajoWhite4") ("NavajoWhite3") ("NavajoWhite2") ("NavajoWhite1") ("PeachPuff4") ("PeachPuff3") ("PeachPuff2") ("PeachPuff1") ("bisque4") ("bisque3") ("bisque2") ("bisque1") ("AntiqueWhite4") ("AntiqueWhite3") ("AntiqueWhite2") ("AntiqueWhite1") ("seashell4") ("seashell3") ("seashell2") ("seashell1") ("snow4") ("snow3") ("snow2") ("snow1") ("thistle") ("MediumPurple") ("purple") ("BlueViolet") ("DarkViolet") ("DarkOrchid") ("MediumOrchid") ("orchid") ("plum") ("violet") ("magenta") ("VioletRed") ("MediumVioletRed") ("maroon") ("PaleVioletRed") ("LightPink") ("pink") ("DeepPink") ("HotPink") ("red") ("OrangeRed") ("tomato") ("LightCoral") ("coral") ("DarkOrange") ("orange") ("LightSalmon") ("salmon") ("DarkSalmon") ("brown") ("firebrick") ("chocolate") ("tan") ("SandyBrown") ("wheat") ("beige") ("burlywood") ("peru") ("sienna") ("SaddleBrown") ("IndianRed") ("RosyBrown") ("DarkGoldenrod") ("goldenrod") ("LightGoldenrod") ("gold") ("yellow") ("LightYellow") ("LightGoldenrodYellow") ("PaleGoldenrod") ("khaki") ("DarkKhaki") ("OliveDrab") ("ForestGreen") ("YellowGreen") ("LimeGreen") ("GreenYellow") ("MediumSpringGreen") ("chartreuse") ("green") ("LawnGreen") ("SpringGreen") ("PaleGreen") ("LightSeaGreen") ("MediumSeaGreen") ("SeaGreen") ("DarkSeaGreen") ("DarkOliveGreen") ("DarkGreen") ("aquamarine") ("MediumAquamarine") ("CadetBlue") ("LightCyan") ("cyan") ("turquoise") ("MediumTurquoise") ("DarkTurquoise") ("PaleTurquoise") ("PowderBlue") ("LightBlue") ("LightSteelBlue") ("SteelBlue") ("LightSkyBlue") ("SkyBlue") ("DeepSkyBlue") ("DodgerBlue") ("blue") ("RoyalBlue") ("MediumBlue") ("LightSlateBlue") ("MediumSlateBlue") ("SlateBlue") ("DarkSlateBlue") ("CornflowerBlue") ("NavyBlue") ("MidnightBlue") ("LightGray" "LightGrey") ("grey") ("LightSlateGrey") ("SlateGrey") ("DimGrey") ("DarkSlateGrey") ("black") ("white") ("MistyRose") ("LavenderBlush") ("lavender") ("AliceBlue") ("azure") ("MintCream") ("honeydew") ("seashell") ("LemonChiffon") ("ivory") ("cornsilk") ("moccasin") ("NavajoWhite") ("PeachPuff") ("bisque") ("BlanchedAlmond") ("PapayaWhip") ("AntiqueWhite") ("linen") ("OldLace") ("FloralWhite") ("gainsboro") ("WhiteSmoke") ("GhostWhite") ("snow") ("alternateSelectedControlColor") ("alternateSelectedControlTextColor" "controlColor" "controlBackgroundColor") ("controlDarkShadowColor" "controlShadowColor" "controlLightHighlightColor" "controlHighlightColor") ("controlTextColor" "disabledControlTextColor") ("gridColor") ("headerColor") ("headerTextColor") ("highlightColor") ("keyboardFocusIndicatorColor") ("knobColor") ("labelColor" "quaternaryLabelColor") ("scrollBarColor") ("secondaryLabelColor") ("secondarySelectedControlColor") ("selectedControlColor") ("selectedControlTextColor") ("selectedKnobColor" "selectedMenuItemColor") ("selectedMenuItemTextColor") ("selectedTextBackgroundColor") ("selectedTextColor") ("shadowColor") ("tertiaryLabelColor") ("textBackgroundColor") ("textColor") ("windowBackgroundColor") ("windowFrameColor") ("windowFrameTextColor" "Black") ("Blue") ("Brown") ("Cyan") ("Green") ("Magenta") ("Orange") ("Purple") ("Red") ("Yellow") ("White")) nil)
  list-colors-display()
  (progn (list-colors-display))
  (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state))
  (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))
  (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state))))
  (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))
  (let* ((candidates (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))) (choice (completing-read "Color: " candidates))) (list :background (plist-get (get-text-property 0 'face (car (cdr (assoc choice candidates)))) :background)))
  (closure ((end . 22) (beg . 1) t) nil (let* ((candidates (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))) (choice (completing-read "Color: " candidates))) (list :background (plist-get (get-text-property 0 'face (car (cdr (assoc choice candidates)))) :background))))()
  funcall((closure ((end . 22) (beg . 1) t) nil (let* ((candidates (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))) (choice (completing-read "Color: " candidates))) (list :background (plist-get (get-text-property 0 'face (car (cdr (assoc choice candidates)))) :background)))))
  (if (functionp face) (funcall face) face)
  (overlay-put ov 'face (if (functionp face) (funcall face) face))
  (let* ((beg (if (region-active-p) (region-beginning) (car bounds))) (end (if (region-active-p) (region-end) (cdr bounds))) (ov (make-overlay beg end))) (overlay-put ov 'face (if (functionp face) (funcall face) face)) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put ov prop (if (functionp val) (funcall val) val))) (overlay-put ov 'ov-highlighter t) (overlay-put ov 'ov-type "color") (set-buffer-modified-p t) (let ((p (point))) (if (mark) (progn (deactivate-mark))) (goto-char p)) (let ((buf (get-buffer "*ov-highlights*"))) (if (and ov-highlight-source (buffer-live-p ov-highlight-source) buf) (progn (save-current-buffer (set-buffer buf) (ov-highlight-refresh-list))))) ov)
  (if (and (ov-at) (overlay-get (ov-at) 'ov-highlighter)) (let* ((cf (overlay-get (ov-at) 'face)) (fp (if (facep cf) (let* ((--cl-var-- (face-all-attributes cf)) (v nil) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq v (car --cl-var--) p (car-safe (prog1 v (setq v (cdr v))))) (if v (progn (setq --cl-var-- (nconc (reverse (list p v)) --cl-var--)))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) cf))) (while face (setq prop (car-safe (prog1 face (setq face (cdr face)))) val (car-safe (prog1 face (setq face (cdr face))))) (plist-put fp prop val)) (overlay-put (ov-at) 'face fp) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put (ov-at) prop val))) (let* ((beg (if (region-active-p) (region-beginning) (car bounds))) (end (if (region-active-p) (region-end) (cdr bounds))) (ov (make-overlay beg end))) (overlay-put ov 'face (if (functionp face) (funcall face) face)) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put ov prop (if (functionp val) (funcall val) val))) (overlay-put ov 'ov-highlighter t) (overlay-put ov 'ov-type "color") (set-buffer-modified-p t) (let ((p (point))) (if (mark) (progn (deactivate-mark))) (goto-char p)) (let ((buf (get-buffer "*ov-highlights*"))) (if (and ov-highlight-source (buffer-live-p ov-highlight-source) buf) (progn (save-current-buffer (set-buffer buf) (ov-highlight-refresh-list))))) ov))
  (let ((face (function (lambda nil (let* ((candidates (progn (let ((save-selected-window--state (internal--before-save-selected-window))) (save-current-buffer (unwind-protect (progn (list-colors-display)) (internal--after-save-selected-window save-selected-window--state)))) (prog1 (save-current-buffer (set-buffer (get-buffer "*Colors*")) (mapcar (function (lambda (line) (append (list line) (s-split " " line t)))) (s-split "\n" (buffer-string)))) (kill-buffer "*Colors*")))) (choice (completing-read "Color: " candidates))) (list :background (plist-get (get-text-property 0 'face (car (cdr (assoc choice candidates)))) :background)))))) (properties 'nil) (bounds (bounds-of-thing-at-point 'word)) prop val) (if (and (ov-at) (overlay-get (ov-at) 'ov-highlighter)) (let* ((cf (overlay-get (ov-at) 'face)) (fp (if (facep cf) (let* ((--cl-var-- (face-all-attributes cf)) (v nil) (p nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq v (car --cl-var--) p (car-safe (prog1 v (setq v (cdr v))))) (if v (progn (setq --cl-var-- (nconc (reverse (list p v)) --cl-var--)))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) cf))) (while face (setq prop (car-safe (prog1 face (setq face (cdr face)))) val (car-safe (prog1 face (setq face (cdr face))))) (plist-put fp prop val)) (overlay-put (ov-at) 'face fp) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put (ov-at) prop val))) (let* ((beg (if (region-active-p) (region-beginning) (car bounds))) (end (if (region-active-p) (region-end) (cdr bounds))) (ov (make-overlay beg end))) (overlay-put ov 'face (if (functionp face) (funcall face) face)) (while properties (setq prop (car-safe (prog1 properties (setq properties (cdr properties)))) val (car-safe (prog1 properties (setq properties (cdr properties))))) (overlay-put ov prop (if (functionp val) (funcall val) val))) (overlay-put ov 'ov-highlighter t) (overlay-put ov 'ov-type "color") (set-buffer-modified-p t) (let ((p (point))) (if (mark) (progn (deactivate-mark))) (goto-char p)) (let ((buf (get-buffer "*ov-highlights*"))) (if (and ov-highlight-source (buffer-live-p ov-highlight-source) buf) (progn (save-current-buffer (set-buffer buf) (ov-highlight-refresh-list))))) ov)))
  ov-highlight-color(1 22)
  funcall-interactively(ov-highlight-color 1 22)
  call-interactively(ov-highlight-color)
  hydra--call-interactively-remap-maybe(ov-highlight-color)
  (progn (setq this-command 'ov-highlight-color) (hydra--call-interactively-remap-maybe (function ov-highlight-color)))
  ov-highlight/ov-highlight-color-and-exit()
  funcall-interactively(ov-highlight/ov-highlight-color-and-exit)
  call-interactively(ov-highlight/ov-highlight-color-and-exit nil nil)
  command-execute(ov-highlight/ov-highlight-color-and-exit)
bruce-bai22 commented 5 years ago

Thanks for your response, I will check this problem later. If any results meet me，I will paste them here for communication.

jkitchin commented 5 years ago

Sounds fine. There is nothing I can fix here though, the problem seems to be in emacs. I would report it as a bug.

bruce-bai22 commented 5 years ago

I have no idea about this error. It seems like to be a problem about the compatibility between GNU emacs for mac and MacOS, because there is no problem in macport emacs.

jkitchin commented 5 years ago

It is probably just a version of Emacs problem. The problem was reported here https://emacs.stackexchange.com/questions/46484/error-on-list-colors-display/46513#46513, and there is a comment that an update to emacs made it go away. It seems like this isn't an ov-highlight issue, so I am going to close this issue.