* Invalid face reference: quote
@ 2016-06-19 0:19 Davin Pearson
2016-06-19 14:10 ` Emanuel Berg
` (4 more replies)
0 siblings, 5 replies; 26+ messages in thread
From: Davin Pearson @ 2016-06-19 0:19 UTC (permalink / raw)
To: help-gnu-emacs
I posted this message on June 7 but got no useful response, so I am posting it again in the hope that one of you braniacs could help me with my code...
Here is the output of my *Messages* buffer:
Here it is in the header file
Invalid face reference: quote [27 times]
Mark set
Invalid face reference: quote [24 times]
Mark set
Invalid face reference: quote [12 times]
Mark set
Invalid face reference: quote [12 times]
Mark set
Invalid face reference: quote [167 times]
<<< Type SPC or RET to bury the buffer list >>>
Invalid face reference: quote [8 times]
What is the reason for all of the "Invalid face reference: quote" error messages? I have added the following setq's to my font lock file. Is this anything to do with the error message?
(progn
(setq fg:lightred 'fg:lightred)
(setq d-face-cc-illegal-type 'd-face-cc-illegal-type)
(setq d-face-super-comment 'd-face-super-comment)
(setq d-face-cc-allegro 'd-face-cc-allegro)
(setq fg:white 'fg:white)
(setq bg:lightmagenta 'bg:lightmagenta)
(setq d-face-cc-debugging 'd-face-cc-debugging)
(setq bg:lightgreen 'bg:lightgreen)
(setq d-face-property-inverse 'd-face-property-inverse)
(setq d-face-cc-debugging 'd-face-cc-debugging)
(setq fg:lightmagenta 'fg:lightmagenta)
(setq fg:lightgreen 'fg:lightgreen)
(setq d-face-m4 'd-face-m4)
(setq d-face-m4-dnl 'd-face-m4-dnl)
(setq d-face-cc-digits 'd-face-cc-digits)
(setq d-debug-face 'd-debug-face)
(setq d-checkpoint-face 'd-checkpoint-face)
(setq d-face-el-quote 'd-face-el-quote)
(setq d-face-cc-debugging 'd-face-cc-debugging)
(setq d-face-cc-allegro 'd-face-cc-allegro)
(setq d-face-cc-illegal-type 'd-face-cc-illegal-type)
(setq bg:yellow 'bg:yellow)
(setq d-face-cc-libd 'd-face-cc-libd)
(setq d-face-cc-ctor-dtor 'd-face-cc-ctor-dtor)
(setq d-face-cc-clib 'd-face-cc-clib)
(setq fg:lightmagenta 'fg:lightmagenta)
(setq d-face-cc-global 'd-face-cc-global)
(setq d-face-cc-illegal-type 'd-face-cc-illegal-type)
(setq d-face-red-and-white 'd-face-red-and-white)
(setq d-face-green-and-black 'd-face-green-and-black)
(setq d-face-el-d-stuff 'd-face-el-d-stuff)
(setq d-face-el-quote 'd-face-el-quote)
(setq d-face-cc-opengl 'd-face-cc-opengl)
(setq d-face-makefile-dollar-dollar-highlight 'd-face-makefile-dollar-dollar-highlight)
(setq d-face-makefile-dollar-dollar 'd-face-makefile-dollar-dollar)
(setq fg:white 'fg:white)
(setq bg:lightmagenta 'bg:lightmagenta)
(setq d-face-cc-debugging 'd-face-cc-debugging)
(setq d-face-cc-private 'd-face-cc-private)
(setq bg:lightgreen 'bg:lightgreen)
(setq d-face-property 'd-face-property)
(setq d-face-property-inverse 'd-face-property-inverse)
(setq fg:lightmagenta 'fg:lightmagenta)
(setq fg:lightgreen 'fg:lightgreen)
(setq fg:lightmagenta 'fg:lightmagenta)
(setq fg:lightmagenta 'fg:lightmagenta)
(setq fg:lightgreen 'fg:lightgreen)
(setq fg:red 'fg:red)
(setq fg:lightred 'fg:lightred)
(setq bg:lightred 'bg:lightred)
(setq bg:yellow 'bg:yellow)
(setq d-face-path 'd-face-path)
(setq d-face-red-and-yellow 'd-face-red-and-yellow)
(setq dc-face-dired-web 'dc-face-dired-web)
(setq dc-face-dired-text 'dc-face-dired-text)
(setq dc-face-dired-executable 'dc-face-dired-executable)
(setq dc-face-dired-sounds 'dc-face-dired-sounds)
(setq dc-face-dired-sources 'dc-face-dired-sources)
(setq dc-face-dired-archives 'dc-face-dired-archives)
(setq dc-face-dired-graphics 'dc-face-dired-graphics)
(setq dc-face-dired-movies 'dc-face-dired-movies)
(setq dc-face-dired-unimportant 'dc-face-dired-unimportant)
(setq d-face-m4 'd-face-m4)
(setq d-face-m5 'd-face-m5)
(setq d-face-m6 'd-face-m6)
(setq d-face-makefile-space 'd-face-makefile-space)
(setq d-face-el-d-stuff2 'd-face-el-d-stuff2)
(setq d-face-green-and-yellow 'd-face-green-and-yellow)
(setq default 'default)
(setq bold 'bold)
(setq fg:lightblue 'fg:lightblue)
(setq underline 'underline)
)
I have also removed all of the quote characters from my font lock file like so:
(defun d-font-lock-mode-hook ()
;; removes FONT from modeline:
;;(if (assq 'font-lock-mode minor-mode-alist)
;; (setcar (cdr (assq 'font-lock-mode minor-mode-alist)) " F"))
(d-flock-checkpoint "1")
;;; COOL: font-lock-string-face
(if (eq major-mode 'fundamental-mode)
(setq font-lock-string-face nil)
(set (make-local-variable 'font-lock-string-face) 'font-lock-string-face))
(setq font-lock-keywords-case-fold-search nil)
(d-flock-checkpoint "2")
(d-flock-checkpoint "3")
(when (and prefs-font-lisp++-p
(or (eq major-mode 'emacs-lisp-mode)
(eq major-mode 'text-mode)
(and (buffer-file-name)
(or (string-match "eraseme" (buffer-file-name))
(string-match "\\.\\(method\\|lisp[+][+]\\|temp\\)$" (buffer-file-name))
)
)))
(d-font-lock-add-begin
'(
("std::" 0 fg:lightred t)
("\\<jit-lock-stealth-fontify\\>" 0 d-face-cc-illegal-type nil)
("\\<jit-lock-refontify\\>" 0 d-face-cc-illegal-type nil)
("\\<font-lock-fontify-buffer\\>" 0 fg:lightred nil)
)))
)
instead of 'd-face-cc-illegal-type
and 'fg:lightred.
Could this be the reason for the bug?
I have added the following helper function to the above code:
(defun d-font-lock-add-begin (keywords)
(if (fboundp 'font-lock-add-keywords)
(font-lock-add-keywords nil keywords nil)
(setq font-lock-keywords
(append
keywords
font-lock-keywords))))
^ permalink raw reply [flat|nested] 26+ messages in thread* Re: Invalid face reference: quote 2016-06-19 0:19 Invalid face reference: quote Davin Pearson @ 2016-06-19 14:10 ` Emanuel Berg 2016-06-19 17:11 ` Pascal J. Bourguignon ` (3 subsequent siblings) 4 siblings, 0 replies; 26+ messages in thread From: Emanuel Berg @ 2016-06-19 14:10 UTC (permalink / raw) To: help-gnu-emacs Davin Pearson <davin.pearson@gmail.com> writes: > I posted this message on June 7 but got no > useful response, so I am posting it again in > the hope that one of you braniacs could help > me with my code... Well, what is it that you wish for that isn't happening? The code seems awfully complicated to just deal with faces... "Now I've seen places and faces and things you ain't never thought about thinkin'..." (Coolio 1997) -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 52 Blogomatic articles - ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-19 0:19 Invalid face reference: quote Davin Pearson 2016-06-19 14:10 ` Emanuel Berg @ 2016-06-19 17:11 ` Pascal J. Bourguignon 2016-06-20 4:20 ` Davin Pearson 2016-06-20 3:27 ` Stefan Monnier ` (2 subsequent siblings) 4 siblings, 1 reply; 26+ messages in thread From: Pascal J. Bourguignon @ 2016-06-19 17:11 UTC (permalink / raw) To: help-gnu-emacs I get different errors; perhaps you should correct them first? (byte-compile-file "/tmp/faces.el") t \f Compiling file /tmp/faces.el at Sun Jun 19 19:09:59 2016 Entering directory `/tmp/' faces.el:2:50:Warning: assignment to free variable `fg:lightred' faces.el:3:50:Warning: assignment to free variable `d-face-cc-illegal-type' faces.el:4:50:Warning: assignment to free variable `d-face-super-comment' faces.el:5:50:Warning: assignment to free variable `d-face-cc-allegro' faces.el:6:50:Warning: assignment to free variable `fg:white' faces.el:7:50:Warning: assignment to free variable `bg:lightmagenta' faces.el:8:50:Warning: assignment to free variable `d-face-cc-debugging' faces.el:9:50:Warning: assignment to free variable `bg:lightgreen' faces.el:10:50:Warning: assignment to free variable `d-face-property-inverse' faces.el:12:50:Warning: assignment to free variable `fg:lightmagenta' faces.el:13:50:Warning: assignment to free variable `fg:lightgreen' faces.el:14:50:Warning: assignment to free variable `d-face-m4' faces.el:15:50:Warning: assignment to free variable `d-face-m4-dnl' faces.el:16:50:Warning: assignment to free variable `d-face-cc-digits' faces.el:17:50:Warning: assignment to free variable `d-debug-face' faces.el:18:50:Warning: assignment to free variable `d-checkpoint-face' faces.el:19:50:Warning: assignment to free variable `d-face-el-quote' faces.el:23:50:Warning: assignment to free variable `bg:yellow' faces.el:24:50:Warning: assignment to free variable `d-face-cc-libd' faces.el:25:50:Warning: assignment to free variable `d-face-cc-ctor-dtor' faces.el:26:50:Warning: assignment to free variable `d-face-cc-clib' faces.el:28:50:Warning: assignment to free variable `d-face-cc-global' faces.el:30:50:Warning: assignment to free variable `d-face-red-and-white' faces.el:31:50:Warning: assignment to free variable `d-face-green-and-black' faces.el:32:50:Warning: assignment to free variable `d-face-el-d-stuff' faces.el:34:50:Warning: assignment to free variable `d-face-cc-opengl' faces.el:35:50:Warning: assignment to free variable `d-face-makefile-dollar-dollar-highlight' faces.el:36:50:Warning: assignment to free variable `d-face-makefile-dollar-dollar' faces.el:40:50:Warning: assignment to free variable `d-face-cc-private' faces.el:42:50:Warning: assignment to free variable `d-face-property' faces.el:49:50:Warning: assignment to free variable `fg:red' faces.el:51:50:Warning: assignment to free variable `bg:lightred' faces.el:53:50:Warning: assignment to free variable `d-face-path' faces.el:54:50:Warning: assignment to free variable `d-face-red-and-yellow' faces.el:55:50:Warning: assignment to free variable `dc-face-dired-web' faces.el:56:50:Warning: assignment to free variable `dc-face-dired-text' faces.el:57:50:Warning: assignment to free variable `dc-face-dired-executable' faces.el:58:50:Warning: assignment to free variable `dc-face-dired-sounds' faces.el:59:50:Warning: assignment to free variable `dc-face-dired-sources' faces.el:60:50:Warning: assignment to free variable `dc-face-dired-archives' faces.el:61:50:Warning: assignment to free variable `dc-face-dired-graphics' faces.el:62:50:Warning: assignment to free variable `dc-face-dired-movies' faces.el:63:50:Warning: assignment to free variable `dc-face-dired-unimportant' faces.el:65:50:Warning: assignment to free variable `d-face-m5' faces.el:66:50:Warning: assignment to free variable `d-face-m6' faces.el:67:50:Warning: assignment to free variable `d-face-makefile-space' faces.el:68:50:Warning: assignment to free variable `d-face-el-d-stuff2' faces.el:69:50:Warning: assignment to free variable `d-face-green-and-yellow' faces.el:70:50:Warning: assignment to free variable `default' faces.el:71:50:Warning: assignment to free variable `bold' faces.el:72:50:Warning: assignment to free variable `fg:lightblue' faces.el:73:50:Warning: assignment to free variable `underline' In d-font-lock-mode-hook: faces.el:97:14:Warning: reference to free variable `prefs-font-lisp++-p' In end of data: faces.el:114:1:Warning: the following functions are not known to be defined: d-flock-checkpoint, d-font-lock-add-begin -- __Pascal Bourguignon__ http://www.informatimago.com/ “The factory of the future will have only two employees, a man and a dog. The man will be there to feed the dog. The dog will be there to keep the man from touching the equipment.” -- Carl Bass CEO Autodesk ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-19 17:11 ` Pascal J. Bourguignon @ 2016-06-20 4:20 ` Davin Pearson 2016-06-20 4:41 ` Davin Pearson 0 siblings, 1 reply; 26+ messages in thread From: Davin Pearson @ 2016-06-20 4:20 UTC (permalink / raw) To: help-gnu-emacs On Monday, June 20, 2016 at 5:11:57 AM UTC+12, Pascal J. Bourguignon wrote: > I get different errors; perhaps you should correct them first? > > (byte-compile-file "/tmp/faces.el") When I try byte-compile-file "~/dlisp/d-flock.el") I get no compiler errors. ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 4:20 ` Davin Pearson @ 2016-06-20 4:41 ` Davin Pearson 0 siblings, 0 replies; 26+ messages in thread From: Davin Pearson @ 2016-06-20 4:41 UTC (permalink / raw) To: help-gnu-emacs On Monday, June 20, 2016 at 4:20:14 PM UTC+12, Davin Pearson wrote: > On Monday, June 20, 2016 at 5:11:57 AM UTC+12, Pascal J. Bourguignon wrote: > > I get different errors; perhaps you should correct them first? > > > > (byte-compile-file "/tmp/faces.el") > > When I try byte-compile-file "~/dlisp/d-flock.el") I get no compiler errors. Okay, here is my *Compile-Log* when I start Emacs with emacs -q I get the following compiler errors... Leaving directory `C:\' \f Compiling file c:/home/dlisp/d-flock.el at Mon Jun 20 04:36:47 2016 Entering directory `c:/home/dlisp/' d-flock.el:39:50:Warning: assignment to free variable `fg:lightred' d-flock.el:40:50:Warning: assignment to free variable `d-face-cc-illegal-type' d-flock.el:41:50:Warning: assignment to free variable `d-face-super-comment' d-flock.el:42:50:Warning: assignment to free variable `d-face-cc-allegro' d-flock.el:43:50:Warning: assignment to free variable `fg:white' d-flock.el:44:50:Warning: assignment to free variable `bg:lightmagenta' d-flock.el:45:50:Warning: assignment to free variable `d-face-cc-debugging' d-flock.el:46:50:Warning: assignment to free variable `bg:lightgreen' d-flock.el:47:50:Warning: assignment to free variable `d-face-property-inverse' d-flock.el:49:50:Warning: assignment to free variable `fg:lightmagenta' d-flock.el:50:50:Warning: assignment to free variable `fg:lightgreen' d-flock.el:51:50:Warning: assignment to free variable `d-face-m4' d-flock.el:52:50:Warning: assignment to free variable `d-face-m4-dnl' d-flock.el:53:50:Warning: assignment to free variable `d-face-cc-digits' d-flock.el:54:50:Warning: assignment to free variable `d-debug-face' d-flock.el:55:50:Warning: assignment to free variable `d-checkpoint-face' d-flock.el:56:50:Warning: assignment to free variable `d-face-el-quote' d-flock.el:60:50:Warning: assignment to free variable `bg:yellow' d-flock.el:61:50:Warning: assignment to free variable `d-face-cc-libd' d-flock.el:62:50:Warning: assignment to free variable `d-face-cc-ctor-dtor' d-flock.el:63:50:Warning: assignment to free variable `d-face-cc-clib' d-flock.el:65:50:Warning: assignment to free variable `d-face-cc-global' d-flock.el:67:50:Warning: assignment to free variable `d-face-red-and-white' d-flock.el:68:50:Warning: assignment to free variable `d-face-green-and-black' d-flock.el:69:50:Warning: assignment to free variable `d-face-el-d-stuff' d-flock.el:71:50:Warning: assignment to free variable `d-face-cc-opengl' d-flock.el:72:50:Warning: assignment to free variable `d-face-makefile-dollar-dollar-highlight' d-flock.el:73:50:Warning: assignment to free variable `d-face-makefile-dollar-dollar' d-flock.el:77:50:Warning: assignment to free variable `d-face-cc-private' d-flock.el:79:50:Warning: assignment to free variable `d-face-property' d-flock.el:86:50:Warning: assignment to free variable `fg:red' d-flock.el:88:50:Warning: assignment to free variable `bg:lightred' d-flock.el:90:50:Warning: assignment to free variable `d-face-path' d-flock.el:91:50:Warning: assignment to free variable `d-face-red-and-yellow' d-flock.el:92:50:Warning: assignment to free variable `dc-face-dired-web' d-flock.el:93:50:Warning: assignment to free variable `dc-face-dired-text' d-flock.el:94:50:Warning: assignment to free variable `dc-face-dired-executable' d-flock.el:95:50:Warning: assignment to free variable `dc-face-dired-sounds' d-flock.el:96:50:Warning: assignment to free variable `dc-face-dired-sources' d-flock.el:97:50:Warning: assignment to free variable `dc-face-dired-archives' d-flock.el:98:50:Warning: assignment to free variable `dc-face-dired-graphics' d-flock.el:99:50:Warning: assignment to free variable `dc-face-dired-movies' d-flock.el:100:50:Warning: assignment to free variable `dc-face-dired-unimportant' d-flock.el:102:50:Warning: assignment to free variable `d-face-m5' d-flock.el:103:50:Warning: assignment to free variable `d-face-m6' d-flock.el:104:50:Warning: assignment to free variable `d-face-makefile-space' d-flock.el:105:50:Warning: assignment to free variable `d-face-el-d-stuff2' d-flock.el:106:50:Warning: assignment to free variable `d-face-green-and-yellow' d-flock.el:107:50:Warning: assignment to free variable `default' d-flock.el:108:50:Warning: assignment to free variable `bold' d-flock.el:109:50:Warning: assignment to free variable `fg:lightblue' d-flock.el:110:50:Warning: assignment to free variable `underline' d-flock.el:113:1:Error: Cannot open load file: no such file or directory, d-flock-coding-preferences ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-19 0:19 Invalid face reference: quote Davin Pearson 2016-06-19 14:10 ` Emanuel Berg 2016-06-19 17:11 ` Pascal J. Bourguignon @ 2016-06-20 3:27 ` Stefan Monnier [not found] ` <mailman.1844.1466393286.1216.help-gnu-emacs@gnu.org> [not found] ` <mailman.1799.1466345449.1216.help-gnu-emacs@gnu.org> 4 siblings, 0 replies; 26+ messages in thread From: Stefan Monnier @ 2016-06-20 3:27 UTC (permalink / raw) To: help-gnu-emacs > What is the reason for all of the "Invalid face reference: quote" > error messages? This means that somewhere in a buffer (more specifically in one of the visible parts of one of your buffers), there is a `face' property whose value is either `quote' or a list that contains `quote'. Most likely you're in the second case and the better way to try and track down the source of the problem might be to try and see what else is in that list. > I have added the following setq's to my font lock file. I don't what what is a "font lock file". Stefan ^ permalink raw reply [flat|nested] 26+ messages in thread
[parent not found: <mailman.1844.1466393286.1216.help-gnu-emacs@gnu.org>]
* Re: Invalid face reference: quote [not found] ` <mailman.1844.1466393286.1216.help-gnu-emacs@gnu.org> @ 2016-06-20 4:17 ` Davin Pearson 2016-06-20 4:41 ` Emanuel Berg 0 siblings, 1 reply; 26+ messages in thread From: Davin Pearson @ 2016-06-20 4:17 UTC (permalink / raw) To: help-gnu-emacs On Monday, June 20, 2016 at 3:28:08 PM UTC+12, Stefan Monnier wrote: > > What is the reason for all of the "Invalid face reference: quote" > > error messages? > > This means that somewhere in a buffer (more specifically in one of the > visible parts of one of your buffers), there is a `face' property whose > value is either `quote' or a list that contains `quote'. What is a property? Is it related to plists? I am unfamiliar with manipulating plists. > Most likely you're in the second case and the better way to try and > track down the source of the problem might be to try and see what else > is in that list. > > > I have added the following setq's to my font lock file. > > I don't what what is a "font lock file". > > > Stefan My font lock file is an offshoot from .emacs which one day grew so unimaginably large that I had to split it into several files. My font lock file just deals with font lock matters. I have uploaded my file to my website so that one of you braniacs could help me to debug it. Here it is in all of its glory: http://davinpearson.com/binaries/d-flock.el ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 4:17 ` Davin Pearson @ 2016-06-20 4:41 ` Emanuel Berg 2016-06-20 21:51 ` Davin Pearson 0 siblings, 1 reply; 26+ messages in thread From: Emanuel Berg @ 2016-06-20 4:41 UTC (permalink / raw) To: help-gnu-emacs Davin Pearson <davin.pearson@gmail.com> writes: > What is a property? You can put point at a word which has a color other than the default. Then eval (thing-at-point 'word) Bingo. You see the face turns up as one of the properties of that piece of text. > http://davinpearson.com/binaries/d-flock.el That file is 1803 lines, so when I read ;;; d-flock.el ends here I almost didn't believe it! So the brainiac advice is - do more like the brainiac - here is my Elisp with the number of lines to the left. 292 navigate-fs-keys.el 212 ide/find-command.el 161 global-keys.el 153 gnus/group.el 137 isbn.el 133 gnus/article.el 125 gnus/message-my.el 114 dired-my.el 110 faces.el 109 wrap-search.el 109 buc.el 107 help-new.el 104 gnus/moggle.el 101 w3m/w3m-unisearch.el 98 xsel.el 92 scroll.el 92 caps-back.el 85 search-regexp-in-files.el 85 erc-my.el 85 buffer-menu.el 84 edit.el 74 gnus/summary.el 73 gnus/mail.el 71 my-bibtex.el 70 gnus/gnus-my.el 68 w3m/w3m-my.el 64 ide/compile-my.el 64 files-my.el 62 iterate-files.el 61 list-quoted-functions.el 60 times.el 58 w3m/w3m-keys.el 58 mode-line.el 55 w3m/bookmarks.el 54 error.el 52 kill-path.el 52 ide/ide.el 50 spell-new.el 50 sort-my.el 49 align-new.el 47 translate.el 42 get-search-string.el 42 fill-new.el 41 w3m/dl.el 41 time-my.el 41 shell-cli.el 40 todo-did.el 39 ide/elisp.el 37 window-new.el 36 man-my.el 35 latex.el 33 w3m/autologin.el 33 console-keys.el 32 help-font-lock.el 29 kill.el 29 ide/lisp-new.el 27 quit.el 27 gnus/server.el 26 misc.el 26 gnus/browse.el 24 ide/c-and-cpp.el 24 elpa.el 22 w3m/w3m-tabs.el 22 emacs-shell.el 20 print.el 19 gnus/send-spell.el 18 show-command.el 18 scale.el 18 mode-by-filename.el 17 match-data-format.el 16 super.el 16 revert-buffer-my.el 14 yank-my.el 14 close.el 13 vt.el 13 minor-modes.el 13 linux-shell.el 12 batch.el 11 tabs.el 11 gnus/mail-to-many.el 10 sudo-user-path.el 9 signal.el 8 keys.el 7 w3m/history.el 7 file-write-to.el 6 my-string.el Dig? -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 52 Blogomatic articles - ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 4:41 ` Emanuel Berg @ 2016-06-20 21:51 ` Davin Pearson 2016-06-20 22:14 ` Emanuel Berg 0 siblings, 1 reply; 26+ messages in thread From: Davin Pearson @ 2016-06-20 21:51 UTC (permalink / raw) To: help-gnu-emacs On Monday, June 20, 2016 at 4:41:54 PM UTC+12, Emanuel Berg wrote: > Davin Pearson writes: > > > What is a property? > > You can put point at a word which has a color > other than the default. Then eval > > (thing-at-point 'word) > > Bingo. You see the face turns up as one of the > properties of that piece of text. Thank you for your help with debugging my code. I tried executing (thing-at-point 'word) many times until I found the bug. It turns out that the bug was not in d-flock.el at all, but rather in another file called d-speedbar, which is my improvement over the built in speedbar feature. See http://davin.50webs.com/emacs-screen-shot.png for a picture of my d-speedbar in action. It uses windows rather than frames because windows are easier to manipulate using the keyboard than than frames. The offending line was this: (put-text-property (point-at-bol) (point-at-eol) 'face' 'default) which should read as this: (put-text-property (point-at-bol) (point-at-eol) 'face 'default) ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 21:51 ` Davin Pearson @ 2016-06-20 22:14 ` Emanuel Berg 2016-06-20 23:50 ` Barry Margolin 0 siblings, 1 reply; 26+ messages in thread From: Emanuel Berg @ 2016-06-20 22:14 UTC (permalink / raw) To: help-gnu-emacs Davin Pearson <davin.pearson@gmail.com> writes: >> Bingo. You see the face turns up as one of >> the properties of that piece of text. > > Thank you for your help with debugging my > code. I tried executing (thing-at-point > 'word) many times until I found the bug. Cool, no problem :) > (put-text-property (point-at-bol) > (point-at-eol) 'face' 'default) > > which should read as this: > > (put-text-property (point-at-bol) > (point-at-eol) 'face 'default) Wow, that bug was sure difficult to spot! I had to stare at the code for some 30 seconds before I saw it! -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 55 Blogomatic articles - ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 22:14 ` Emanuel Berg @ 2016-06-20 23:50 ` Barry Margolin 0 siblings, 0 replies; 26+ messages in thread From: Barry Margolin @ 2016-06-20 23:50 UTC (permalink / raw) To: help-gnu-emacs In article <86ziqftsmz.fsf@student.uu.se>, Emanuel Berg <embe8573@student.uu.se> wrote: > Davin Pearson <davin.pearson@gmail.com> writes: > > >> Bingo. You see the face turns up as one of > >> the properties of that piece of text. > > > > Thank you for your help with debugging my > > code. I tried executing (thing-at-point > > 'word) many times until I found the bug. > > Cool, no problem :) > > > (put-text-property (point-at-bol) > > (point-at-eol) 'face' 'default) > > > > which should read as this: > > > > (put-text-property (point-at-bol) > > (point-at-eol) 'face 'default) > > Wow, that bug was sure difficult to spot! I had > to stare at the code for some 30 seconds before > I saw it! If you frequently switch between Lisp and other languages, you probably have to strain to get out of the mode of seeing single quotes as surrounding delimiters rather than just a prefix. The Lisp parser sees that as (put-text-property (point-at-bol) (point-at-eol) 'face ''default) which explains the original error. ''default is short for '(quote default). -- Barry Margolin, barmar@alum.mit.edu Arlington, MA *** PLEASE post questions in newsgroups, not directly to me *** ^ permalink raw reply [flat|nested] 26+ messages in thread
[parent not found: <mailman.1799.1466345449.1216.help-gnu-emacs@gnu.org>]
* Re: Invalid face reference: quote [not found] ` <mailman.1799.1466345449.1216.help-gnu-emacs@gnu.org> @ 2016-06-20 4:30 ` Davin Pearson 2016-06-20 4:47 ` Emanuel Berg 0 siblings, 1 reply; 26+ messages in thread From: Davin Pearson @ 2016-06-20 4:30 UTC (permalink / raw) To: help-gnu-emacs On Monday, June 20, 2016 at 2:10:52 AM UTC+12, Emanuel Berg wrote: > Davin Pearson writes: > > > I posted this message on June 7 but got no > > useful response, so I am posting it again in > > the hope that one of you braniacs could help > > me with my code... > > Well, what is it that you wish for that > isn't happening? Help with finding the bug in my code... > The code seems awfully complicated to just deal > with faces... Adding to my font lock file (an offshoot of .emacs) has become something of an addictive thing for me. I have added various weird an wonderful customizations to my font lock file. My code looks like Las Vegas but I don't care! It's pretty to look at, and it is far superior to just plain text. ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 4:30 ` Davin Pearson @ 2016-06-20 4:47 ` Emanuel Berg 2016-06-20 4:58 ` Davin Pearson 0 siblings, 1 reply; 26+ messages in thread From: Emanuel Berg @ 2016-06-20 4:47 UTC (permalink / raw) To: help-gnu-emacs Davin Pearson <davin.pearson@gmail.com> writes: >> Well, what is it that you wish for that >> isn't happening? > > Help with finding the bug in my code... What do you want to happen *with Emacs*? > I have added various weird an wonderful > customizations to my font lock file. My code > looks like Las Vegas but I don't care! > It's pretty to look at, and it is far > superior to just plain text. You don't have to write code like that to get it to look like Las Vegas: http://user.it.uu.se/~embe8573/figures/gnus/message-mode-colors.png -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 52 Blogomatic articles - ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 4:47 ` Emanuel Berg @ 2016-06-20 4:58 ` Davin Pearson 2016-06-20 5:07 ` Davin Pearson 2016-06-20 10:10 ` Emanuel Berg 0 siblings, 2 replies; 26+ messages in thread From: Davin Pearson @ 2016-06-20 4:58 UTC (permalink / raw) To: help-gnu-emacs On Monday, June 20, 2016 at 4:47:07 PM UTC+12, Emanuel Berg wrote: > Davin Pearson writes: > > I have added various weird an wonderful > > customizations to my font lock file. My code > > looks like Las Vegas but I don't care! > > It's pretty to look at, and it is far > > superior to just plain text. > > You don't have to write code like that to get > it to look like Las Vegas: > > http://user.it.uu.se/~embe8573/figures/gnus/message-mode-colors.png I like the look of it yes, but I prefer a white (or better still, semi white) background as that is easier to read than with a black screen. In my early days of using Emacs I had a black screen like yours. My Emacs customizations total 45,000 lines of code. That puts me in second place behind Jamie Zawinski who has 50,000 lines of Elisp code. ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 4:58 ` Davin Pearson @ 2016-06-20 5:07 ` Davin Pearson 2016-06-20 9:51 ` Emanuel Berg 2016-06-20 14:01 ` Invalid face reference: quote Dan Espen 2016-06-20 10:10 ` Emanuel Berg 1 sibling, 2 replies; 26+ messages in thread From: Davin Pearson @ 2016-06-20 5:07 UTC (permalink / raw) To: help-gnu-emacs On Monday, June 20, 2016 at 4:58:27 PM UTC+12, Davin Pearson wrote: > On Monday, June 20, 2016 at 4:47:07 PM UTC+12, Emanuel Berg wrote: > > Davin Pearson writes: > > > I have added various weird an wonderful > > > customizations to my font lock file. My code > > > looks like Las Vegas but I don't care! > > > It's pretty to look at, and it is far > > > superior to just plain text. > > > > You don't have to write code like that to get > > it to look like Las Vegas: > > > > http://user.it.uu.se/~embe8573/figures/gnus/message-mode-colors.png > > I like the look of it yes, but I prefer a white (or better still, semi white) background as that is easier to read than with a black screen. In my early days of using Emacs I had a black screen like yours. > > My Emacs customizations total 45,000 lines of code. That puts me in second place behind Jamie Zawinski who has 50,000 lines of Elisp code. Check out my emacs screen-shot: http://davin.50webs.com/emacs-screen-shot.png and you will see why a semi white #f0f0f0 background colour is easier on the eyes for reading text. ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 5:07 ` Davin Pearson @ 2016-06-20 9:51 ` Emanuel Berg 2016-06-20 13:28 ` Loris Bennett 2016-06-20 14:01 ` Invalid face reference: quote Dan Espen 1 sibling, 1 reply; 26+ messages in thread From: Emanuel Berg @ 2016-06-20 9:51 UTC (permalink / raw) To: help-gnu-emacs Davin Pearson <davin.pearson@gmail.com> writes: > Check out my emacs screen-shot: > > http://davin.50webs.com/emacs-screen-shot.png > > and you will see why a semi white #f0f0f0 > background colour is easier on the eyes for > reading text. With a white-on-black theme less light enters the eye so a smaller volume has to be decoded into what is information before the decoding of the actual information takes place. That is why a white-on-black theme implies much less eye stress. I see you are also a mouse user. The mouse is even more than an "arm killer" an "eye killer" as hands have to be moved from typing position and the eye has to follow when they are reset; also, with a GUI, the eye has to "aim" every so slightly to hit icons and such. Not using the mouse implies a fragment of eye focusing, in absolute terms but also considering the changes in level. -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 52 Blogomatic articles - ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 9:51 ` Emanuel Berg @ 2016-06-20 13:28 ` Loris Bennett 2016-06-20 14:24 ` Emanuel Berg 0 siblings, 1 reply; 26+ messages in thread From: Loris Bennett @ 2016-06-20 13:28 UTC (permalink / raw) To: help-gnu-emacs Emanuel Berg <embe8573@student.uu.se> writes: > With a white-on-black theme less light enters > the eye so a smaller volume has to be decoded > into what is information before the decoding > of the actual information takes place. That is > why a white-on-black theme implies much less > eye stress. You can reduce the amount of light entering your eye even more by using a very-dark-grey-on-black theme and wearing sunglasses. That should really minimise your levels of eye stress. Cheers, Loris -- This signature is currently under construction. ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 13:28 ` Loris Bennett @ 2016-06-20 14:24 ` Emanuel Berg 2016-06-20 14:53 ` Loris Bennett 0 siblings, 1 reply; 26+ messages in thread From: Emanuel Berg @ 2016-06-20 14:24 UTC (permalink / raw) To: help-gnu-emacs "Loris Bennett" <loris.bennett@fu-berlin.de> writes: > You can reduce the amount of light entering > your eye even more by using > a very-dark-grey-on-black theme and wearing > sunglasses. That should really minimise your > levels of eye stress. If you suffer from severe eye problems you can wear sunglasses and use a projector with a big text size. If you wear normal glasses, you can use the 3D-glasses from the cinemas on top. However if you do all this you should have very *bright* text colors to contrast as sharply as possible from both the background and the other colors. It is not only about minimizing the light, it is also about maximizing "seeing" as opposed to reading. It is clear that only the most dedicated people can suffer from such a condition and still keep up programming every day for several years... nothing for cowards who hide behind irony and their monitors. -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 52 Blogomatic articles - ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 14:24 ` Emanuel Berg @ 2016-06-20 14:53 ` Loris Bennett 2016-06-20 21:24 ` my experience with eye problems (was: Re: Invalid face reference: quote) Emanuel Berg 0 siblings, 1 reply; 26+ messages in thread From: Loris Bennett @ 2016-06-20 14:53 UTC (permalink / raw) To: help-gnu-emacs Emanuel Berg <embe8573@student.uu.se> writes: > "Loris Bennett" <loris.bennett@fu-berlin.de> > writes: > >> You can reduce the amount of light entering >> your eye even more by using >> a very-dark-grey-on-black theme and wearing >> sunglasses. That should really minimise your >> levels of eye stress. > > If you suffer from severe eye problems you can > wear sunglasses and use a projector with a big > text size. If you wear normal glasses, you can > use the 3D-glasses from the cinemas on top. > However if you do all this you should have very > *bright* text colors to contrast as sharply as > possible from both the background and the other > colors. It is not only about minimizing the > light, it is also about maximizing "seeing" as > opposed to reading. It is clear that only the > most dedicated people can suffer from such > a condition and still keep up programming every > day for several years... nothing for cowards > who hide behind irony and their monitors. I sorry I seem to have offended you. I was merely trying to point out in a light-hearted manner that minimising the amount of light entering the eye, if really does reduce eye stress, cannot be the whole solution, with which you seem to agree. I have also had issues with eye strain and, from the information I was able to find, decided that the evidence seems to favour dark-on-light as being less stressful and that the brightness of the display should be similar to the ambient brightness. If you have any information to the benefits of light-on-dark (which I have always felt looks way cooler - your dark version of angry fruit salad being no exception) and brightness minimisation, I would be interested to read it. Cheers, Loris -- This signature is currently under construction. ^ permalink raw reply [flat|nested] 26+ messages in thread
* my experience with eye problems (was: Re: Invalid face reference: quote) 2016-06-20 14:53 ` Loris Bennett @ 2016-06-20 21:24 ` Emanuel Berg 2016-06-20 21:39 ` Emanuel Berg 0 siblings, 1 reply; 26+ messages in thread From: Emanuel Berg @ 2016-06-20 21:24 UTC (permalink / raw) To: help-gnu-emacs "Loris Bennett" <loris.bennett@fu-berlin.de> writes: > If you have any information to the benefits > of light-on-dark (which I have always felt > looks way cooler - your dark version of angry > fruit salad being no exception) and > brightness minimisation, I would be > interested to read it. OK, I'll tell this story one more time and then put it on my home page and never tell it again. I thought about doing that anyway for years so this seems like a good time finally doing it. You know how people say, "if it can help even a single person, it is worth it" - that always sounds pathetic, but... yeah, I suppose it is true! For the impatient, before I tell the story, to sum it up: 1. Bright on dark theme. 2. Big text size. 3. Bright (high contrast) text colors: "see, don't read". 4. Heavy use of font lock/syntax highlight: "see, don't read". 5. No visual noise (e.g., blinking cursor, popups) - reduce visual information to the essentials - civilized scrolling, one line at a time is another example. 6. No mouse as it implies resetting eyes and arms and "aiming" at GUI elements. 7. No reading huge parts of text. When writing, keep eyes very relaxed. (I don't really read what I write. The typing provides small vibrations which are pleasant. The eyes are just there for the ride. It is like a walk in the park.) For reading, printers and books are useful. 8. Use of a projector. (This also gives good posture.) 9. Master the software so it is all typing and being active and no "looking" and searching - thru endless menus only to set some option, browsing documentation not finding what you need - away with all that. Speed kills! And in a pleasant way... To reduce eye pain when it happens: 1. Everything that brings physical relaxation - sports, yoga - but not the sauna as it dehydrates you (as does alcohol, coffee, etc.) - "sports" doesn't have to be advanced, try twelve push-ups or the plank for one minute! 2. Tiger balm around the nostrils to produce a tear reaction - pulling nose hairs or riding a bike without blinking can do this, too. The story: God willing, my eye problems are a thing of the past. Back then, I thought I'd give up computing altogether. Then I started to configure everything from the software to the physical setup to myself, mentally and physically. The shell, Emacs, and Gnus made configuration possible, pleasant, and not extreamly difficult, so there was hope. As for the physical setup I found huge, available rooms at my university with projectors. So I stopped having a computer at home but instead went there every night, say 00.00-00.05. This isn't a lot of computer hours compared to the typical programmer or computer kid/bum. But do it with 100% discipline for 365 days a year half a decade, it it enough. So in the days I read all the books and thought about cool ideas which never happened because at school in the nights I had hundreds of other things to do! This reduced the problem by say 75%, but it was still so much pain only the iron will of youthful enthusiasm would have any normal person doing it for any stretch of time. But several years later (!) I discovered the reason for the eye pain was me being allergic to shampoo! Since I did a lot of sports every day I reproduced the problem not knowing it. Ironically, the showering actually helped the problem in the short run, because of the relaxation. Not being i hippie, I didn't even use a lot of shampoo! It was just insane. None of the countless physicians I saw ever thought about it until I myself found out by intuition - it wasn't even an experiment, rather one day I stopped using it not thinking about it and in time the problems went away to some 95% at least. Now, when I suddenly didn't have it, I was surprised and impressed I didn't jump off a cliff or something when it was at its worse! To do CS at such a state is just mind-boggling to me today. But from all the configuration and problem solving I learned a lot. So it was a blessing in disguise, tho it certainly didn't feel like that for many years. "HTH" :) -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 52 Blogomatic articles - ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: my experience with eye problems (was: Re: Invalid face reference: quote) 2016-06-20 21:24 ` my experience with eye problems (was: Re: Invalid face reference: quote) Emanuel Berg @ 2016-06-20 21:39 ` Emanuel Berg 0 siblings, 0 replies; 26+ messages in thread From: Emanuel Berg @ 2016-06-20 21:39 UTC (permalink / raw) To: help-gnu-emacs Emanuel Berg <embe8573@student.uu.se> writes: >> If you have any information to the benefits >> of light-on-dark (which I have always felt >> looks way cooler - your dark version of >> angry fruit salad being no exception) and >> brightness minimisation, I would be >> interested to read it. > > OK, I'll tell this story one more time and > then put it on my home page OK, I put the article here. If you are altruistic and have no problem bragging about it, put this URL in your bookmarks and when you here someone complain about eye problems and computers, simply pass them the URL. Getting the girls to stop using shampoo tho might be unrealistic :) http://user.it.uu.se/~embe8573/blogomatic/me/eye-problems-and-computers-and-what-to-do.html -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 55 Blogomatic articles - ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 5:07 ` Davin Pearson 2016-06-20 9:51 ` Emanuel Berg @ 2016-06-20 14:01 ` Dan Espen 1 sibling, 0 replies; 26+ messages in thread From: Dan Espen @ 2016-06-20 14:01 UTC (permalink / raw) To: help-gnu-emacs Davin Pearson <davin.pearson@gmail.com> writes: > On Monday, June 20, 2016 at 4:58:27 PM UTC+12, Davin Pearson wrote: >> On Monday, June 20, 2016 at 4:47:07 PM UTC+12, Emanuel Berg wrote: >> > Davin Pearson writes: >> > > I have added various weird an wonderful customizations to my font >> > > lock file. My code looks like Las Vegas but I don't care! It's >> > > pretty to look at, and it is far superior to just plain text. >> > >> > You don't have to write code like that to get it to look like Las >> > Vegas: >> > >> > http://user.it.uu.se/~embe8573/figures/gnus/message-mode-colors.png >> >> I like the look of it yes, but I prefer a white (or better still, >> semi white) background as that is easier to read than with a black >> screen. In my early days of using Emacs I had a black screen like >> yours. >> >> My Emacs customizations total 45,000 lines of code. That puts me in >> second place behind Jamie Zawinski who has 50,000 lines of Elisp >> code. > > Check out my emacs screen-shot: > > http://davin.50webs.com/emacs-screen-shot.png > > and you will see why a semi white #f0f0f0 background colour is easier > on the eyes for reading text. You may find this hard to believe, but NOPE. Isn't it odd, people have different preferences. As for your huge file, divide it in half, repeat... -- Dan Espen ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-20 4:58 ` Davin Pearson 2016-06-20 5:07 ` Davin Pearson @ 2016-06-20 10:10 ` Emanuel Berg 1 sibling, 0 replies; 26+ messages in thread From: Emanuel Berg @ 2016-06-20 10:10 UTC (permalink / raw) To: help-gnu-emacs Davin Pearson <davin.pearson@gmail.com> writes: > My Emacs customizations total 45,000 lines of > code. That puts me in second place behind > Jamie Zawinski who has 50,000 lines of > Elisp code. Keep up writing code like that and you'll soon beat every record :) Now, I have 4 818 lines of Elisp. Here is all my code stats - but it is from 2015 which is why the Lisp digit is much smaller. You know: the world makes one revolution in one year - except for South America, where the figure is much higher (Viva Zapata!) http://user.it.uu.se/~embe8573/code.txt Actually it is not a lot of code. But I like the distribution. I also did Erlang, SML, gnuplot, groff, and LaTeX/Biblatex which aren't in the stats. I also did C#, JavaScript, Python, VB, VBA, TI-Basic, the Basic for the PS2, and Java, but that is sort of like a well kept secret :) I have ~half that much zsh (2676 lines) tho I am impassionate about that, at least compared to Lisp. I guess it just happened along the way. -- underground experts united .... http://user.it.uu.se/~embe8573 Emacs Gnus Blogomatic ......... http://user.it.uu.se/~embe8573/blogomatic - so far: 52 Blogomatic articles - ^ permalink raw reply [flat|nested] 26+ messages in thread
* Invalid face reference: quote
@ 2016-06-06 23:46 Davin Pearson
2016-06-06 23:48 ` Barry Margolin
0 siblings, 1 reply; 26+ messages in thread
From: Davin Pearson @ 2016-06-06 23:46 UTC (permalink / raw)
To: help-gnu-emacs
When I am using GNU Emacs version 23.1.1 I frequently get the
following error in the *Messages* buffer:
Invalid face reference: quote [21 times] or more times
What am I doing wrong with font lock mode to get these error messages?
I have the following code set up for my fontification:
(progn
(setq fg:white 'fg:white)
(setq bg:lightmagenta 'bg:lightmagenta)
(setq d-face-cc-debugging 'd-face-cc-debugging)
(setq bg:lightgreen 'bg:lightgreen)
(setq d-face-property-inverse 'd-face-property-inverse)
(setq d-face-cc-debugging 'd-face-cc-debugging)
(setq fg:lightmagenta 'fg:lightmagenta)
(setq fg:lightgreen 'fg:lightgreen)
(setq fg:lightmagenta 'fg:lightmagenta)
(setq d-face-property 'd-face-property)
(setq fg:lightmagenta 'fg:lightmagenta)
(setq d-face-property 'd-face-property)
(setq fg:lightmagenta 'fg:lightmagenta)
(setq fg:lightgreen 'fg:lightgreen)
(setq fg:lightred 'fg:lightred)
(setq bg:lightred 'bg:lightred)
(setq bg:yellow 'bg:yellow)
)
What follows is some of my font lock code:
(add-hook 'font-lock-mode-hook 'd-font-lock-mode-hook--post t)
(setq prefs-font-xtra-p t)
(setq prefs-font-p t)
(setq os-type--mswindows-p t)
(setq emacs-dialect--gnuemacs-p t)
(setq emacs-dialect--xemacs-p nil)
(defun d-font-lock-mode-hook--post ()
(when (and prefs-font-xtra-p (or (eq major-mode 'c-mode)
(eq major-mode 'c++-mode)
(eq major-mode 'java-mode)
(eq major-mode 'html-mode)
))
(d-font-lock-add-end
'(
("^[ \t]*//.*$" 0 'font-lock-comment-face t)
("^[ \t]*///.*$" 0 d-face-super-comment t)
)))
(when t;;(and prefs-font-p prefs-font-xtra-p);; (not noninteractive))
(when (or (eq major-mode 'c-mode)
(eq major-mode 'c++-mode)
(eq major-mode 'java-mode)
(eq major-mode 'haskell-mode)
(eq major-mode 'asm-mode)
(eq major-mode 'html-mode)
(eq major-mode 'php-mode)
(eq major-mode 'emacs-lisp-mode)
(eq major-mode 'lisp-mode)
(eq major-mode 'prolog-mode)
(eq major-mode 'makefile-mode)
(eq major-mode 'pov-mode)
(eq major-mode 'latex-mode)
(eq major-mode 'fundamental-mode)
(eq major-mode 'text-mode)
(eq major-mode 'compilation-mode)
(eq major-mode 'wiki-mode)
(eq major-mode 'jtw-mode)
(eq major-mode 'css-mode)
(eq major-mode 'tes-mode)
(eq major-mode 'c2j-mode)
(eq major-mode 'sql-mode)
)
(d-font-lock-add-end
'(
;; FOO-SAD-FSDF: sadfadf
;; NOTE: adfasdfosdf
;;("\\([ ]\\|^\\)\\(\\([A-z'-]+[ ]\\)*[A-Z][A-Z0-9.'-]+:\\) \\(.*$\\)"
;; (2 d-face-special-reference t) (4 d-face-cc-debugging t)) ;; was fg:white
("\\([A-Z][a-zA-Z0-9_]*\\)::" 1 'font-lock-type-face nil)
("\\([A-Z]*\\):" (1 fg:white nil))
;; QUESTION: hello (not smegged)
;;("DUCK" 1 d-face-property t)
("\\(\\<BACK ADDED:\\)\\(.*$\\)" (1 d-face-cc-debugging t) (2 fg:lightgreen t))
("\\(\\<LIMITATION[-A-Z +]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<CODE:\\)\\([A-Z +]*\\)\\(.*$\\)" (1 bg:lightgreen t) (2 fg:lightgreen t) (3 'default t))
("\\(\\<NOT FOUND:\\)\\(.*$\\)" (1 bg:lightgreen t) (2 fg:lightgreen t))
("\\(\\<DELETE ?ME:\\)\\(.*$\\)" (1 d-face-cc-debugging t) (2 fg:lightgreen t))
("\\(\\<FIXED:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<BURNED:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<SOLUTION:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<SEE:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<NEW[A-Z ]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<COPY:\\)\\(.*$\\)" (1 d-face-cc-debugging t) (2 fg:lightgreen t))
("\\(\\<RENAME:\\)\\(.*$\\)" (1 d-face-cc-debugging t) (2 fg:lightgreen t))
("\\(\\<PUT:\\)\\(.*$\\)" (1 d-face-cc-debugging t) (2 fg:lightgreen t))
("\\(\\<URL:\\)\\(.*$\\)" (1 d-face-cc-debugging t) (2 fg:lightgreen t))
("\\(\\<COOL:\\)\\(.*$\\)" (1 d-face-cc-debugging t) (2 fg:lightgreen t))
("\\(\\<TOMORROW:\\)\\(.*$\\)" (1 d-face-cc-debugging t) (2 fg:lightgreen t))
("\\(\\<FAILED[A-Z +]*\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<MISSING[A-Z +]*\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<REMOVE ?ME:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<PUT BACK:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<NOT DO:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<TEMP:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<SEARCH FOR:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<COMPILE:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
;;("\\(\\<ADD[A-Z ]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<FIXME[?:!]+\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<BROKEN[-A-Z0-9 .+&/]*[:?]\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<TODO[-A-Z0-9 .+&/]*[:?]\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<TEST[-A-Z0-9 .+]*[:?]\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<PULL ?OUT:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<LATER:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<PROBLEM:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<CLASH:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
;;("\\(\\<REVERTED[A-Z0-9 .]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<REVERTED[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<PULLED BACK[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<DEBUG[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<DEBUGGED[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<OKAY[-A-Za-z0-9 +]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<HOWTO[-A-Za-z0-9 +]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<DOING:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<ISIN:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<RESOLVE CLASH:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<INSTALLED:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<PATCH[-A-Z0-9 +]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<BUG[-A-Z0-9 +]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<WHY[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<WHEREIS[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<PENDING[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<WTF[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<WARNING[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 d-face-red-and-yellow t) (2 fg:red t))
("\\(\\<ERROR:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<NOT[-a-zA-Z0-9'. +]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<URGENT:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<REDO:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<REMOVE:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<RESOLVE[-A-Z' +]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<BUGGER[-A-Z' +]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<TIME[-A-Z +]*[:!?]\\)[ \t]+\\([^\r\n]*\\)" (1 bg:lightgreen t) (2 fg:lightgreen t))
("\\(\\<MILESTONE[:!?]\\)[ \t]+\\([^\r\n]*\\)" (1 bg:lightgreen t) (2 fg:lightgreen t))
("\\(\\<QUERY[:!?]\\)[ \t]+\\([^\r\n]*\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
("\\(\\<BUGFIXED:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<NOTE[-A-Z0-9 _.+/]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<TOTAL[-A-Z0-9 +]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<SPLATTED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<SEMI[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<DONE[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<GOT[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<ADDED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<CHANGED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<REMOVED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<DOWNLOADED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<NOT DONE[-A-Z0-9,. _+]*:\\)\\(.*$\\)" (1 bg:lightmagenta t) (2 fg:lightmagenta t))
;;("\\(\\<SEMI[A-Z0-9 .&/]*:\\)\\(.*$\\)" (1 d-face-property-inverse t) (2 d-face-property t))
("\\(\\<class:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 'font-lock-type-face t))
("\\(\\<constructor:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 'font-lock-function-name-face t))
("\\(\\<method:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 'font-lock-function-name-face t))
("\\(\\<methods:\\) \\(\\([-a-zA-Z0-9_.+]* *\\)*\\)" (1 'bold t) (2 'font-lock-function-name-face t))
("\\(\\<function:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 'font-lock-function-name-face t))
("\\(\\<variable:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 'font-lock-variable-name-face t))
("\\(\\<classVar:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 'font-lock-variable-name-face t))
("\\(\\<defun:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 'font-lock-function-name-face t))
("\\(\\<defmacro:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 'font-lock-function-name-face t))
("\\(\\<file:\\) \\([a-zA-Z0-9_.+]*\\)" (1 'bold t))
("\\(\\<line:\\) \\([0-9]+\\)" (1 'bold t) (2 fg:lightmagenta t))
("#[-a-zA-Z0-9'.:+]+" 0 'font-lock-function-name-face t)
;; \f end of smegs
("^[ \t]*\f[^\n\r]*[\r\n]" 0 d-face-red-and-white t)
;;("\\<message-and-sit\\>" 0 d-debug-face t)
;; IMPORTANT NOTES! sdfsdf
;; IMPORTANT NOTES? sdfsdff
("\\(\\<[A-Z]+[^a-z\r\n!:;()]*[A-Z0-9][!?]+\\)\\(.*$\\)"
(1 d-face-green-and-yellow t)
(2 bg:yellow t))
))
))
)
(require 'font-lock)
(global-set-key "\C-c\C-l" 'd-fonts)
(defmacro d-quote (&rest ignored))
;;(checkpoint 1)
(defun d-fonts--init-base-colours ()
(progn
(make-face 'default)
(set-face-background 'default bg-colour)
(if prefs-bg-black-p
(set-face-foreground 'default "#fff")
(set-face-foreground 'default "#000"))
(make-face-unbold 'default)
)
(progn
(make-face 'bold)
(set-face-background 'bold bg-colour)
(make-face-bold 'bold))
(progn
(make-face 'font-lock-regexp-grouping-backslash)
(set-face-foreground 'font-lock-regexp-grouping-backslash "#080")
(set-face-background 'font-lock-regexp-grouping-backslash "#ccf")
(make-face 'font-lock-regexp-grouping-construct)
(set-face-foreground 'font-lock-regexp-grouping-construct "#080")
(set-face-background 'font-lock-regexp-grouping-construct "#ccf")
)
(progn ;; BLUE:
(make-face 'fg:blue)
(if prefs-bg-black-p
(set-face-foreground 'fg:blue "#6666ff")
(set-face-foreground 'fg:blue "#0000ff")
(make-face-bold 'fg:blue))
(make-face 'fg:lightblue)
(set-face-foreground 'fg:lightblue (if prefs-bg-black-p "#77aaff" "#0000ff"))
(set-face-background 'fg:lightblue bg-colour)
(if (not prefs-bg-black-p)
(make-face-bold 'fg:lightblue)))
(progn ;; BROWN:
(make-face 'bg:brown)
(set-face-background 'bg:brown "#aa7755")
(set-face-foreground 'bg:brown bg-colour)
(make-face 'fg:brown)
(make-face-bold 'fg:brown)
(set-face-foreground 'fg:brown "#aa7755"))
(progn ;; CYAN:
(make-face 'fg:cyan)
(make-face-bold 'fg:cyan)
(set-face-foreground 'fg:cyan "dark cyan")
(make-face 'fg:lightcyan)
(make-face-bold 'fg:lightcyan)
(if prefs-bg-black-p
(set-face-foreground 'fg:lightcyan "#0ff")
(set-face-foreground 'fg:lightcyan "#0aa"))
(set-face-background 'fg:lightcyan bg-colour)
(make-face 'fg:cyan)
(make-face 'bg:cyan)
(set-face-background 'bg:cyan "dark cyan")
(set-face-foreground 'bg:cyan bg-colour))
(progn ;; GRAY:
(make-face 'fg:darkgray)
(set-face-foreground 'fg:darkgray "#888")
(make-face 'bg:lightgray)
(set-face-background 'bg:lightgray "#ccc")
(set-face-foreground 'bg:lightgray "black")
(make-face 'fg:lightgray)
(if prefs-bg-black-p
(progn
(set-face-foreground 'fg:lightgray "#ccc")
;;(set-face-foreground
)
(progn
(set-face-foreground 'fg:lightgray "#888")
(set-face-background 'fg:lightgray bg-colour-lighter)))
)
(progn ;; GREEN:
(make-face 'fg:green)
(make-face-bold 'fg:green)
(if prefs-bg-black-p
(set-face-foreground 'fg:green "#0b0")
(set-face-foreground 'fg:green "#0b0"))
(make-face 'bg:green)
(set-face-background 'bg:green "#00cc00")
(set-face-foreground 'bg:green bg-colour)
(make-face 'bg:lightgreen)
(set-face-background 'bg:lightgreen "lightgreen")
(set-face-foreground 'bg:lightgreen "black")
(make-face 'fg:lightgreen)
(if prefs-bg-black-p
(set-face-foreground 'fg:lightgreen "#0d4")
(set-face-foreground 'fg:lightgreen "#5c5"))
(if (not prefs-bg-black-p)
(make-face-bold 'fg:lightgreen))
)
(progn
(make-face 'd-checkpoint-face)
(set-face-foreground 'd-checkpoint-face "#c0c")
(set-face-background 'd-checkpoint-face "#fff")
(make-face-bold 'd-checkpoint-face))
(progn
(make-face 'd-debug-face)
(set-face-foreground 'd-debug-face "#f00")
(set-face-background 'd-debug-face "#fff")
(make-face-bold 'd-debug-face))
(progn ;; ORANGE:
(make-face 'fg:orange)
(make-face-bold 'fg:orange)
(set-face-foreground 'fg:orange "#f80"))
(progn ;; MAGENTA:
(make-face 'fg:magenta)
(make-face-bold 'fg:magenta)
(set-face-foreground 'fg:magenta "magenta")
(make-face 'bg:magenta)
(set-face-background 'bg:magenta "magenta")
(set-face-foreground 'bg:magenta bg-colour)
(make-face 'fg:lightmagenta)
(make-face-bold 'fg:lightmagenta)
(set-face-foreground 'fg:lightmagenta "magenta")
;;
;; TODO: sdfasdfadfdf
;;
(progn
(make-face 'bg:lightmagenta)
(make-face-bold 'bg:lightmagenta)
(set-face-background 'bg:lightmagenta "magenta")
(set-face-foreground 'bg:lightmagenta "white"))
)
(progn ;; RED:
(make-face 'fg:red)
(make-face-bold 'fg:red)
(set-face-foreground 'fg:red "red")
(make-face 'bg:red)
(if prefs-bg-black-p
(progn
(set-face-background 'bg:red "#e00")
(set-face-foreground 'bg:red bg-colour))
(set-face-background 'bg:red "#f44")
(set-face-foreground 'bg:red "#fff"))
(progn
(make-face 'fg:lightred)
(set-face-foreground 'fg:lightred "#f33")
;;(set-face-background 'fg:lightred bg-colour)
(if (not prefs-bg-black-p)
(make-face-bold 'fg:lightred)))
(progn
(make-face 'bg:lightred)
(set-face-foreground 'bg:lightred (if prefs-bg-black-p "black" "white"))
(set-face-background 'bg:lightred "red"))
)
(progn ;; WHITE:
(make-face 'fg:white)
(make-face-bold 'fg:white)
(if prefs-bg-black-p
(progn
(set-face-foreground 'fg:white "white")
)
(progn
(set-face-foreground 'fg:white "black")
;;(set-face-background 'fg:white bg-colour-lighter)
)))
(progn ;; YELLOW:
(make-face 'fg:yellow)
(make-face-bold 'fg:yellow)
(if prefs-bg-black-p
(progn
(set-face-foreground 'fg:yellow "yellow")
(set-face-background 'fg:yellow bg-colour))
(progn
(set-face-foreground 'fg:yellow "yellow")
(set-face-background 'fg:yellow "black")))
(progn
(make-face 'bg:yellow)
(set-face-background 'bg:yellow "yellow")
(set-face-foreground 'bg:yellow "black")
(make-face-bold 'bg:yellow)))
)
;;(checkpoint 2)
(defun d-fonts--init-pairs ()
(progn
(make-face 'd-face-blue-and-white)
(set-face-foreground 'd-face-blue-and-white (if prefs-bg-black-p "white" "white"))
(set-face-background 'd-face-blue-and-white
(cond
(prefs-bg-black-p "#44c")
(prefs-lcd-emacs-p "#aaf")
(t "#8888ff")))
)
(make-face 'd-face-red-and-white)
(set-face-foreground 'd-face-red-and-white (if prefs-bg-black-p "white" "white"))
(set-face-background 'd-face-red-and-white
(cond
(prefs-bg-black-p "red")
(prefs-lcd-emacs-p "#f00")
(t "#f00")))
(make-face 'd-face-red-and-yellow)
(set-face-foreground 'd-face-red-and-yellow "#ff0")
(set-face-background 'd-face-red-and-yellow "#e00")
(progn
(make-face 'd-face-green-and-black)
(set-face-foreground 'd-face-green-and-black (if prefs-bg-black-p "white" "black"))
(set-face-background 'd-face-green-and-black (if prefs-bg-black-p "#080" "#8f8")))
(progn
(make-face 'd-face-green-and-yellow)
(make-face-bold 'd-face-green-and-yellow)
(set-face-background 'd-face-green-and-yellow (if prefs-bg-black-p "#080" "#8f8"))
(set-face-foreground 'd-face-green-and-yellow (if prefs-bg-black-p "#ff0" "#000000"))
)
)
;;(checkpoint 3)
(defun d-fonts--init-d--faces ()
(progn
(copy-face 'fg:lightred 'd-face-link)
(set-face-underline-p 'd-face-link t))
(progn
(copy-face 'fg:lightblue 'd-face-line)
(set-face-underline-p 'd-face-line t))
(progn
(if prefs-bg-black-p
(copy-face 'fg:cyan 'd-face-html-entity)
(make-face 'd-face-html-entity))
(make-face-bold 'd-face-html-entity)
(if (not prefs-bg-black-p)
(set-face-foreground 'd-face-html-entity "#f00")))
(progn
(make-face 'd-face-cc-global)
(set-face-foreground 'd-face-cc-global "#0c0")
(set-face-background 'd-face-cc-global bg-colour)
(make-face-bold 'd-face-cc-global)
) ;; *cool-man*
(progn
(make-face 'd-face-el-d-stuff)
(make-face-bold 'd-face-el-d-stuff)
(set-face-foreground 'd-face-el-d-stuff (if prefs-bg-black-p "#cccc88" "#2244cc"))
(copy-face 'fg:lightblue 'd-face-el-d-stuff2)
(make-face-bold 'd-face-el-d-stuff2)
)
(progn
(make-face 'd-face-lisp++-keywords)
(set-face-background 'd-face-lisp++-keywords "#8f8")
(set-face-foreground 'd-face-lisp++-keywords "#000000")
(make-face-bold 'd-face-lisp++-keywords))
(d-quote 123)
(copy-face 'fg:lightgreen 'd-face-el-quote)
;;(set-face-background 'd-face-el-quote "#0ff")
;;(set-face-foreground 'd-face-el-quote "#f00")
(progn
(make-face 'd-face-property)
(make-face-bold 'd-face-property)
(set-face-foreground 'd-face-property "#f90")
(make-face 'd-face-property-inverse)
(make-face-bold 'd-face-property-inverse)
(set-face-background 'd-face-property-inverse "#f90")
(set-face-foreground 'd-face-property-inverse "#fff"))
;; oridinary comment appears in font-lock-comment-face
;;; super comment appears in d-face-super-comment
(progn
(make-face 'd-face-super-comment)
(set-face-foreground 'd-face-super-comment (if prefs-bg-black-p "#0f0" "#f00"))
(set-face-background 'd-face-super-comment bg-colour)
(when (not prefs-bg-black-p)
(make-face-bold 'd-face-super-comment)
(make-face-italic 'd-face-super-comment)
)
(copy-face 'd-face-super-comment 'font-lock-doc-face)
(copy-face 'd-face-super-comment 'font-lock-doc-string-face)
)
(progn
;; MY CPLUSPLUS FACES:
(make-face 'd-face-cc-clib)
(make-face-bold 'd-face-cc-clib)
(set-face-foreground 'd-face-cc-clib (if prefs-bg-black-p "#a88" "#844"))
(copy-face 'd-face-cc-clib 'd-face-cc-allegro)
(copy-face 'd-face-cc-clib 'd-face-cc-libd)
(copy-face 'd-face-cc-clib 'd-face-cc-opengl)
(make-face 'd-face-cc-ctor-dtor)
(set-face-foreground 'd-face-cc-ctor-dtor (if prefs-bg-black-p "#f44" "#f0f"))
(make-face-bold 'd-face-cc-ctor-dtor)
(progn
(make-face 'd-face-cc-debugging)
(set-face-background 'd-face-cc-debugging "green")
(make-face-bold 'd-face-cc-debugging))
(progn
(make-face 'd-face-cc-private)
(make-face-bold 'd-face-cc-private)
(set-face-foreground 'd-face-cc-private "black")
;;(set-face-background 'd-face-cc-private "#fcc")
(set-face-background 'd-face-cc-private "#ffbbbb")
)
)
(make-face 'd-face-m4-dnl)
(set-face-background 'd-face-m4-dnl (if prefs-bg-black-p "#aa7755" "#fc9"))
(set-face-foreground 'd-face-m4-dnl "black")
(progn
(make-face 'd-face-special-reference)
(make-face-bold 'd-face-special-reference)
(if prefs-bg-black-p
(progn
(set-face-foreground 'd-face-special-reference "#fff")
(set-face-background 'd-face-special-reference "#666"))
(progn
(set-face-foreground 'd-face-special-reference "black")
(set-face-background 'd-face-special-reference bg-colour-lighter))))
(if (not (and os-type--mswindows-p emacs-dialect--gnuemacs-p))
(make-face-bold 'd-face-special-reference))
(copy-face 'bg:lightmagenta 'd-face-makefile-space)
(make-face 'd-face-makefile-tab)
(set-face-background 'd-face-makefile-tab "#cfc")
(copy-face 'd-face-red-and-white 'd-face-linefeed)
(copy-face 'bg:red 'd-face-m4)
(set-face-background 'd-face-m4 (if prefs-bg-black-p "#f00" "#faa"))
(make-face 'd-face-m5)
(set-face-background 'd-face-m5 "lightgreen")
(set-face-foreground 'd-face-m5 "black")
(make-face 'd-face-m6)
(set-face-background 'd-face-m6 "#ccf")
(set-face-foreground 'd-face-m6 "black")
(if prefs-bg-black-p
(set-face-foreground 'd-face-m4 "#000000")
(set-face-foreground 'd-face-m4 "#000000"))
(progn
(make-face 'd-face-cc-illegal-type)
(make-face-bold 'd-face-cc-illegal-type)
(set-face-foreground 'd-face-cc-illegal-type "red")
(set-face-background 'd-face-cc-illegal-type "#0ff")
(copy-face 'd-face-cc-illegal-type 'd-face-cc-searching)
)
(progn
(make-face 'd-face-makefile-dollar-dollar)
(set-face-background 'd-face-makefile-dollar-dollar (if prefs-bg-black-p "#090" "#8f8"))
(set-face-foreground 'd-face-makefile-dollar-dollar (if prefs-bg-black-p "#fff" "#000000"))
(copy-face 'd-face-makefile-dollar-dollar 'd-face-makefile-dollar-dollar-highlight)
(make-face-bold 'd-face-makefile-dollar-dollar-highlight)
;;(make-face 'd-face-makefile-dollar-dollar-highlight)
;;(set-face-background 'd-face-makefile-dollar-dollar-highlight (if prefs-bg-black-p "#8b0" "#8f8"))
;;(set-face-foreground 'd-face-makefile-dollar-dollar-highlight (if prefs-bg-black-p "#ff0" "#fff"))
)
(progn
(make-face 'mmm-default-submode-face)
(set-face-foreground 'mmm-default-submode-face nil)
;;(set-face-foreground 'mmm-default-submode-face "#fff")
(set-face-background 'mmm-default-submode-face nil)
(make-face-bold 'mmm-default-submode-face)
;;(make-face-unbold 'mmm-default-submode-face)
)
(progn
(copy-face 'd-face-cc-illegal-type 'd-face-cc-digits)
(set-face-background 'd-face-cc-digits bg-colour)
(if prefs-bg-black-p
(progn
(set-face-background 'd-face-cc-digits "#666")
(set-face-foreground 'd-face-cc-digits "#fff")
)
;;(set-face-foreground 'd-face-cc-digits "#000000")
;;(set-face-background 'd-face-cc-digits "#e8d4ff")
(set-face-background 'd-face-cc-digits bg-colour)
(set-face-foreground 'd-face-cc-digits "#f0f"))
)
)
;;(checkpoint 4)
;; (d-fonts--init-standard-font-lock)
(defun d-fonts--init-standard-font-lock ()
(progn
;;
;; NOTE: Version 22 bindings
;;
(make-face 'mode-line-buffer-id)
(make-face 'tabbar-default-face)
(set-face-foreground 'tabbar-default-face "#000000")
(set-face-background 'tabbar-default-face "#eee")
)
(progn
(make-face 'underline)
(set-face-underline-p 'underline t))
(progn
(make-face 'bold-underline)
(make-face-bold 'bold-underline)
(set-face-underline-p 'bold-underline t))
;;
;; (progn
;; (make-face 'bold-italic)
;; (make-face-bold 'bold-italic)
;; (make-face-italic 'bold-italic))
;;
;;(set-face-foreground 'italic "#0af")
;;(set-face-foreground 'bold "#dd0")
;;(copy-face 'fg:lightcyan 'bold-italic)
;;(copy-face 'bg:lightmagenta 'highlight)
(copy-face 'fg:lightcyan 'font-lock-type-face)
(copy-face 'd-face-blue-and-white 'font-lock-string-face)
(setq font-lock-string-face 'font-lock-string-face)
(make-face-bold 'font-lock-string-face)
;;(set-face-background 'font-lock-string-face (if prefs-bg-black-p "#0000ff" "#dedeff"))
(progn
(set-face-foreground 'font-lock-type-face (if prefs-bg-black-p "#00ffff" "#0000ff"))
(make-face-bold 'font-lock-type-face)
(set-face-foreground 'font-lock-variable-name-face (if prefs-bg-black-p "#009999" "#0011ff")))
(progn
(make-face 'font-lock-comment-face)
;;(set-face-background 'font-lock-comment-face bg-colour)
(set-face-foreground 'font-lock-comment-face
(cond
(prefs-bg-black-p "#080")
(prefs-lcd-emacs-p "#888")
(t "#060")))
(when (not prefs-bg-black-p)
(make-face-unbold 'font-lock-comment-face)
(make-face-italic 'font-lock-comment-face)
;;(set-face-attribute 'font-lock-comment-face nil '((:slant . italic) (:weight bold)))
))
;;
;; comment
;;
(progn
(make-face 'font-lock-keyword-face)
(if prefs-bg-black-p
(progn
(copy-face 'fg:lightred 'font-lock-keyword-face)
;;(set-face-foreground 'font-lock-keyword-face "white")
))
(set-face-foreground 'font-lock-keyword-face "#000")
(make-face-bold 'font-lock-keyword-face)
)
(if prefs-bg-black-p
(copy-face 'fg:white 'font-lock-reference-face)
(copy-face 'fg:lightgray 'font-lock-reference-face))
;; DLDLD
;;(require 'foo)
(set-face-background 'font-lock-reference-face bg-colour-lighter)
(progn
(if prefs-bg-black-p
(copy-face 'fg:yellow 'font-lock-function-name-face)
(copy-face 'bg:yellow 'font-lock-function-name-face))
(make-face-bold 'font-lock-function-name-face))
(if prefs-bg-black-p
(copy-face 'bg:green 'show-paren-match-face)
(copy-face 'd-face-cc-illegal-type 'show-paren-match-face)
(set-face-foreground 'show-paren-match-face "#000000")
)
(if emacs-dialect--xemacs-p (copy-face 'show-paren-match-face 'paren-match))
(set-face-underline-p 'font-lock-reference-face t)
(progn
(make-face 'font-lock-builtin-face)
(make-face-bold 'font-lock-builtin-face)
(set-face-foreground 'font-lock-builtin-face "#f00")
;;(set-face-background 'font-lock-builtin-face "#0f0")
;;(set-face-background 'font-lock-builtin-face bg-colour-lighter)
)
(progn
(make-face 'font-lock-constant-face)
(make-face-bold 'font-lock-constant-face)
(if (not prefs-bg-black-p)
(set-face-foreground 'font-lock-constant-face "#f00"))
(d-quote (if prefs-bg-black-p
(set-face-background 'font-lock-constant-face "#000000")
(progn
(set-face-foreground 'font-lock-constant-face "black")
(set-face-background 'font-lock-constant-face bg-colour-lighter)))))
(progn
(make-face 'highlight)
(set-face-foreground 'highlight "#fff")
(set-face-background 'highlight "#88f"))
(progn
(make-face 'region)
(set-face-foreground 'region "#fff")
(set-face-background 'region (if prefs-bg-black-p "#f4a" "#f8a")))
(progn
(make-face 'font-lock-warning-face)
(set-face-foreground 'font-lock-warning-face "red")
;;(set-face-background 'font-lock-warning-face bg-colour-lighter)
(make-face-bold 'font-lock-warning-face))
(if (not (and os-type--mswindows-p emacs-dialect--gnuemacs-p))
(make-face-bold 'font-lock-warning-face))
(make-face 'secondary-selection)
(set-face-foreground 'secondary-selection "lightgreen")
(copy-face 'd-face-cc-searching 'secondary-selection)
(copy-face 'bg:lightmagenta 'info-menu-5)
(copy-face 'fg:lightcyan 'info-node)
(copy-face 'bold 'info-xref)
(set-face-underline-p 'info-xref t)
(set-face-foreground 'info-xref "#00f")1
(copy-face 'region 'd-face-cc-searching)
(copy-face 'fg:darkgray 'dired-face-permissions)
(set-face-background 'dired-face-permissions bg-colour-lighter)
(copy-face 'fg:white 'modeline-buffer-id)
(copy-face 'bold 'dired-symlink)
(progn
(copy-face 'd-face-blue-and-white 'dired-marked)
(make-face-bold 'dired-marked)
(copy-face 'd-face-red-and-white 'dired-flagged)
(set-face-background 'dired-flagged "#ff6677")
(make-face-bold 'dired-flagged)
(copy-face 'fg:lightblue 'dired-directory)
(set-face-background 'dired-directory bg-colour)
(set-face-foreground 'dired-directory "#4433ff")
(copy-face 'fg:green 'd-face-path)
)
(copy-face 'd-face-blue-and-white 'dired-face-marked)
(copy-face 'd-face-red-and-white 'dired-face-flagged)
(copy-face 'region 'zmacs-region)
(copy-face 'region 'primary-selection)
(copy-face 'font-lock-reference-face 'font-lock-preprocessor-face)
(copy-face 'fg:lightgray 'modeline-mousable)
(copy-face 'fg:red 'modeline-mousable-minor-mode)
(copy-face (if prefs-bg-black-p 'fg:lightred 'fg:lightblue) 'diary-face)
(when emacs-dialect--xemacs-p
(set-face-foreground 'blue "#88f")
(copy-face 'fg:lightblue 'hyper-apropos-hyperlink)
(copy-face 'fg:lightred 'hyper-apropos-documentation)
(copy-face 'fg:lightblue 'custom-group-tag-face)
(copy-face 'fg:darkgray 'dired-face-boring)
(set-face-foreground 'dired-face-boring "#888")
(copy-face 'fg:lightgray 'dired-face-permissions)
(set-face-foreground 'dired-face-permissions "#999")
(copy-face 'fg:lightcyan 'dired-face-symlink)
;;(copy-face 'd-face-green-and-yellow 'isearch)
(copy-face 'd-face-green-and-white 'isearch-secondary)
(copy-face 'bg:lightgray 'modeline-buffer-id)
;;(copy-face 'bg:lightgray 'widget-button-face)
)
(progn
(make-face 'isearch-lazy-highlight-face)
(set-face-foreground 'isearch-lazy-highlight-face "#000000")
(set-face-background 'isearch-lazy-highlight-face "#0ff"))
(copy-face 'd-face-blue-and-white 'secondary-selection)
(progn
(set-face-background 'isearch "#000000")
(set-face-foreground 'isearch "#ff0000")
(make-face-bold 'isearch))
(progn
(make-face 'dired-directory)
(make-face-bold 'dired-directory)
(set-face-foreground 'dired-directory "#00f"))
)
;;(checkpoint 5)
(safe-require 'dired-colours)
(setq prefs-bg-black-p nil)
(defun d-fonts ()
(interactive)
;;(checkpoint 7)
(setq prefs-bg-black-p (not prefs-bg-black-p))
(setq bg-colour (if prefs-bg-black-p
(if (string= user-login-name "root") "#ff8888" "#262626")
(if (string= user-login-name "root") "#ffdddd" "#fff")))
;;(setq bg-colour "#ffffff")
(setq bg-colour-lighter (if prefs-bg-black-p "#444" "#eee"))
(setq bg-colour-lighter-lighter (if prefs-bg-black-p "#555" "#ddd"))
(if (not emacs-dialect--xemacs-p) (set-background-color bg-colour))
(setq cursor-colour (if prefs-bg-black-p "#ffff00" "#88cc88"))
(setq cursor-colour (if prefs-bg-black-p "#ffff00" "#000000"))
;;(setq cursor-colour "#ff0000")
;;
(when (not emacs-dialect--xemacs-p)
(make-face 'cursor)
(set-face-background 'cursor cursor-colour)
(set-face-foreground 'cursor "black"))
(if emacs-dialect--xemacs-p
(progn
(make-face 'text-cursor)
(set-face-background 'text-cursor cursor-colour)
(set-face-foreground 'text-cursor "#000000")))
;; (copy-face 'fg:yellow 'border)
;;(set-face-foreground 'default "black")
(set-face-foreground 'default (if prefs-bg-black-p "lightgray" "black"))
(if (string= (user-real-login-name) "root")
(set-face-background 'default "#660000")
(set-face-background 'default bg-colour))
;;(set-face-background 'default "#ffffff")
(make-face 'modeline)
(set-face-background 'modeline "grey")
(set-face-foreground 'modeline "black")
(progn
(make-face-italic 'bold-italic)
(make-face-italic 'italic)
(set-face-underline-p 'italic nil)
)
;;(checkpoint 8)
(d-fonts--init-base-colours)
;;(checkpoint 10)
(d-fonts--init-pairs)
;;(checkpoint 11)
(d-fonts--init-d--faces)
;;(checkpoint 12)
(d-fonts--init-standard-font-lock)
;;(checkpoint 13)
(progn
(if (fboundp 'd-fonts--init-dired-colours)
(d-fonts--init-dired-colours)))
(setq font-lock-maximum-size nil)
(setq font-lock-maximum-decoration t)
;; get graphics characters online...
(if (and (< emacs-major-version 20) (not emacs-dialect--xemacs-p))
(let ((i 127))
(while (< i 256)
(aset standard-display-table i (vector i))
(incf i))))
;;(checkpoint 14)
(balance-windows)
;;(recenter)
(if (and os-type--mswindows-p emacs-dialect--gnuemacs-p)
(set-cursor-color cursor-colour))
;;(checkpoint 15)
)
;;(checkpoint 6)
(setq prefs-bg-black-p t)
(d-fonts)
^ permalink raw reply [flat|nested] 26+ messages in thread* Re: Invalid face reference: quote 2016-06-06 23:46 Davin Pearson @ 2016-06-06 23:48 ` Barry Margolin 2016-06-07 8:01 ` Davin Pearson 0 siblings, 1 reply; 26+ messages in thread From: Barry Margolin @ 2016-06-06 23:48 UTC (permalink / raw) To: help-gnu-emacs In article <592a4a24-7483-4718-8c61-adbb5d76ff70@googlegroups.com>, Davin Pearson <davin.pearson@gmail.com> wrote: > When I am using GNU Emacs version 23.1.1 I frequently get the > following error in the *Messages* buffer: > > Invalid face reference: quote [21 times] or more times > > What am I doing wrong with font lock mode to get these error messages? > > I have the following code set up for my fontification: The list is quoted, you don't need quotes inside it -- that causes it to try to use the literal symbol "quote". So change things like 'font-lock-type-face and 'bold to font-lock-type-face and bold. > (d-font-lock-add-end > '( > ;; FOO-SAD-FSDF: sadfadf > ;; NOTE: adfasdfosdf > ;;("\\([ ]\\|^\\)\\(\\([A-z'-]+[ ]\\)*[A-Z][A-Z0-9.'-]+:\\) > \\(.*$\\)" > ;; (2 d-face-special-reference t) (4 d-face-cc-debugging t)) ;; was > fg:white > > ("\\([A-Z][a-zA-Z0-9_]*\\)::" 1 'font-lock-type-face nil) > ("\\([A-Z]*\\):" (1 fg:white nil)) > > ;; QUESTION: hello (not smegged) > ;;("DUCK" 1 d-face-property t) > ("\\(\\<BACK ADDED:\\)\\(.*$\\)" (1 > d-face-cc-debugging t) (2 fg:lightgreen t)) > ("\\(\\<LIMITATION[-A-Z +]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<CODE:\\)\\([A-Z +]*\\)\\(.*$\\)" (1 bg:lightgreen > t) (2 fg:lightgreen t) (3 'default t)) > ("\\(\\<NOT FOUND:\\)\\(.*$\\)" (1 bg:lightgreen > t) (2 fg:lightgreen t)) > ("\\(\\<DELETE ?ME:\\)\\(.*$\\)" (1 > d-face-cc-debugging t) (2 fg:lightgreen t)) > ("\\(\\<FIXED:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<BURNED:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<SOLUTION:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<SEE:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<NEW[A-Z ]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<COPY:\\)\\(.*$\\)" (1 > d-face-cc-debugging t) (2 fg:lightgreen t)) > ("\\(\\<RENAME:\\)\\(.*$\\)" (1 > d-face-cc-debugging t) (2 fg:lightgreen t)) > ("\\(\\<PUT:\\)\\(.*$\\)" (1 > d-face-cc-debugging t) (2 fg:lightgreen t)) > ("\\(\\<URL:\\)\\(.*$\\)" (1 > d-face-cc-debugging t) (2 fg:lightgreen t)) > ("\\(\\<COOL:\\)\\(.*$\\)" (1 > d-face-cc-debugging t) (2 fg:lightgreen t)) > ("\\(\\<TOMORROW:\\)\\(.*$\\)" (1 > d-face-cc-debugging t) (2 fg:lightgreen t)) > ("\\(\\<FAILED[A-Z +]*\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<MISSING[A-Z +]*\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<REMOVE ?ME:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<PUT BACK:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<NOT DO:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<TEMP:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<SEARCH FOR:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<COMPILE:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ;;("\\(\\<ADD[A-Z ]*:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<FIXME[?:!]+\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<BROKEN[-A-Z0-9 .+&/]*[:?]\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<TODO[-A-Z0-9 .+&/]*[:?]\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<TEST[-A-Z0-9 .+]*[:?]\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<PULL ?OUT:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<LATER:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<PROBLEM:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<CLASH:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ;;("\\(\\<REVERTED[A-Z0-9 .]*:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<REVERTED[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<PULLED BACK[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<DEBUG[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<DEBUGGED[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<OKAY[-A-Za-z0-9 +]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<HOWTO[-A-Za-z0-9 +]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<DOING:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<ISIN:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<RESOLVE CLASH:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<INSTALLED:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<PATCH[-A-Z0-9 +]*:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<BUG[-A-Z0-9 +]*:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<WHY[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<WHEREIS[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<PENDING[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<WTF[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<WARNING[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > d-face-red-and-yellow t) (2 fg:red t)) > ("\\(\\<ERROR:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<NOT[-a-zA-Z0-9'. +]*:\\)\\(.*$\\)" > (1 bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<URGENT:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<REDO:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<REMOVE:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<RESOLVE[-A-Z' +]*:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<BUGGER[-A-Z' +]*:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<TIME[-A-Z +]*[:!?]\\)[ \t]+\\([^\r\n]*\\)" (1 > bg:lightgreen t) (2 fg:lightgreen t)) > ("\\(\\<MILESTONE[:!?]\\)[ \t]+\\([^\r\n]*\\)" (1 bg:lightgreen > t) (2 fg:lightgreen t)) > ("\\(\\<QUERY[:!?]\\)[ \t]+\\([^\r\n]*\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ("\\(\\<BUGFIXED:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<NOTE[-A-Z0-9 _.+/]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<TOTAL[-A-Z0-9 +]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<SPLATTED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<SEMI[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<DONE[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<GOT[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<ADDED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<CHANGED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<REMOVED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<DOWNLOADED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<NOT DONE[-A-Z0-9,. _+]*:\\)\\(.*$\\)" (1 > bg:lightmagenta t) (2 fg:lightmagenta t)) > ;;("\\(\\<SEMI[A-Z0-9 .&/]*:\\)\\(.*$\\)" (1 > d-face-property-inverse t) (2 d-face-property t)) > ("\\(\\<class:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > 'font-lock-type-face t)) > ("\\(\\<constructor:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > 'font-lock-function-name-face t)) > ("\\(\\<method:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > 'font-lock-function-name-face t)) > ("\\(\\<methods:\\) \\(\\([-a-zA-Z0-9_.+]* *\\)*\\)" (1 'bold t) (2 > 'font-lock-function-name-face t)) > ("\\(\\<function:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > 'font-lock-function-name-face t)) > ("\\(\\<variable:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > 'font-lock-variable-name-face t)) > ("\\(\\<classVar:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > 'font-lock-variable-name-face t)) > ("\\(\\<defun:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > 'font-lock-function-name-face t)) > ("\\(\\<defmacro:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > 'font-lock-function-name-face t)) > ("\\(\\<file:\\) \\([a-zA-Z0-9_.+]*\\)" (1 'bold t)) > ("\\(\\<line:\\) \\([0-9]+\\)" (1 'bold t) (2 > fg:lightmagenta t)) > ("#[-a-zA-Z0-9'.:+]+" 0 > 'font-lock-function-name-face t) > ;; \f end of smegs > ("^[ \t]*\f[^\n\r]*[\r\n]" 0 > d-face-red-and-white t) > ;;("\\<message-and-sit\\>" 0 d-debug-face > t) > ;; IMPORTANT NOTES! sdfsdf > ;; IMPORTANT NOTES? sdfsdff > ("\\(\\<[A-Z]+[^a-z\r\n!:;()]*[A-Z0-9][!?]+\\)\\(.*$\\)" > (1 d-face-green-and-yellow t) > (2 bg:yellow t)) > )) > )) > > ) -- Barry Margolin, barmar@alum.mit.edu Arlington, MA *** PLEASE post questions in newsgroups, not directly to me *** ^ permalink raw reply [flat|nested] 26+ messages in thread
* Re: Invalid face reference: quote 2016-06-06 23:48 ` Barry Margolin @ 2016-06-07 8:01 ` Davin Pearson 0 siblings, 0 replies; 26+ messages in thread From: Davin Pearson @ 2016-06-07 8:01 UTC (permalink / raw) To: help-gnu-emacs Removing all of the quote characters from my ~/dlisp/d-flock.el file and other files still brings up the following warnings in the *Messages* buffer. Invalid face reference: quote [76 times] Invalid face reference: quote [20 times] Entering debugger... Invalid face reference: quote [6 times] Back to top level. Invalid face reference: quote [36 times] Copied buffer to clipboard Invalid face reference: quote [6 times] (No files need saving) Invalid face reference: quote [14 times] On Tuesday, June 7, 2016 at 11:51:45 AM UTC+12, Barry Margolin wrote: > In article <592a4a24-7483-4718-8c61-adbb5d76ff70@googlegroups.com>, > Davin Pearson <davin dot pearson at gmail.com> wrote: > > > When I am using GNU Emacs version 23.1.1 I frequently get the > > following error in the *Messages* buffer: > > > > Invalid face reference: quote [21 times] or more times > > > > What am I doing wrong with font lock mode to get these error messages? > > > > I have the following code set up for my fontification: > > The list is quoted, you don't need quotes inside it -- that causes it to > try to use the literal symbol "quote". So change things like > 'font-lock-type-face and 'bold to font-lock-type-face and bold. > > > (d-font-lock-add-end > > '( > > ;; FOO-SAD-FSDF: sadfadf > > ;; NOTE: adfasdfosdf > > ;;("\\([ ]\\|^\\)\\(\\([A-z'-]+[ ]\\)*[A-Z][A-Z0-9.'-]+:\\) > > \\(.*$\\)" > > ;; (2 d-face-special-reference t) (4 d-face-cc-debugging t)) ;; was > > fg:white > > > > ("\\([A-Z][a-zA-Z0-9_]*\\)::" 1 'font-lock-type-face nil) > > ("\\([A-Z]*\\):" (1 fg:white nil)) > > > > ;; QUESTION: hello (not smegged) > > ;;("DUCK" 1 d-face-property t) > > ("\\(\\<BACK ADDED:\\)\\(.*$\\)" (1 > > d-face-cc-debugging t) (2 fg:lightgreen t)) > > ("\\(\\<LIMITATION[-A-Z +]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<CODE:\\)\\([A-Z +]*\\)\\(.*$\\)" (1 bg:lightgreen > > t) (2 fg:lightgreen t) (3 'default t)) > > ("\\(\\<NOT FOUND:\\)\\(.*$\\)" (1 bg:lightgreen > > t) (2 fg:lightgreen t)) > > ("\\(\\<DELETE ?ME:\\)\\(.*$\\)" (1 > > d-face-cc-debugging t) (2 fg:lightgreen t)) > > ("\\(\\<FIXED:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<BURNED:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<SOLUTION:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<SEE:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<NEW[A-Z ]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<COPY:\\)\\(.*$\\)" (1 > > d-face-cc-debugging t) (2 fg:lightgreen t)) > > ("\\(\\<RENAME:\\)\\(.*$\\)" (1 > > d-face-cc-debugging t) (2 fg:lightgreen t)) > > ("\\(\\<PUT:\\)\\(.*$\\)" (1 > > d-face-cc-debugging t) (2 fg:lightgreen t)) > > ("\\(\\<URL:\\)\\(.*$\\)" (1 > > d-face-cc-debugging t) (2 fg:lightgreen t)) > > ("\\(\\<COOL:\\)\\(.*$\\)" (1 > > d-face-cc-debugging t) (2 fg:lightgreen t)) > > ("\\(\\<TOMORROW:\\)\\(.*$\\)" (1 > > d-face-cc-debugging t) (2 fg:lightgreen t)) > > ("\\(\\<FAILED[A-Z +]*\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<MISSING[A-Z +]*\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<REMOVE ?ME:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<PUT BACK:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<NOT DO:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<TEMP:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<SEARCH FOR:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<COMPILE:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ;;("\\(\\<ADD[A-Z ]*:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<FIXME[?:!]+\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<BROKEN[-A-Z0-9 .+&/]*[:?]\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<TODO[-A-Z0-9 .+&/]*[:?]\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<TEST[-A-Z0-9 .+]*[:?]\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<PULL ?OUT:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<LATER:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<PROBLEM:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<CLASH:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ;;("\\(\\<REVERTED[A-Z0-9 .]*:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<REVERTED[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > > > ("\\(\\<PULLED BACK[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<DEBUG[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<DEBUGGED[-A-Z0-9 .+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<OKAY[-A-Za-z0-9 +]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<HOWTO[-A-Za-z0-9 +]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<DOING:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<ISIN:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<RESOLVE CLASH:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<INSTALLED:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<PATCH[-A-Z0-9 +]*:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<BUG[-A-Z0-9 +]*:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<WHY[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<WHEREIS[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<PENDING[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<WTF[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<WARNING[-A-Z0-9 +]*[?:]+\\)\\(.*$\\)" (1 > > d-face-red-and-yellow t) (2 fg:red t)) > > ("\\(\\<ERROR:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<NOT[-a-zA-Z0-9'. +]*:\\)\\(.*$\\)" > > (1 bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<URGENT:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<REDO:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<REMOVE:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<RESOLVE[-A-Z' +]*:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<BUGGER[-A-Z' +]*:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<TIME[-A-Z +]*[:!?]\\)[ \t]+\\([^\r\n]*\\)" (1 > > bg:lightgreen t) (2 fg:lightgreen t)) > > ("\\(\\<MILESTONE[:!?]\\)[ \t]+\\([^\r\n]*\\)" (1 bg:lightgreen > > t) (2 fg:lightgreen t)) > > ("\\(\\<QUERY[:!?]\\)[ \t]+\\([^\r\n]*\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ("\\(\\<BUGFIXED:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<NOTE[-A-Z0-9 _.+/]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<TOTAL[-A-Z0-9 +]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<SPLATTED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<SEMI[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<DONE[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<GOT[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<ADDED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<CHANGED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<REMOVED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<DOWNLOADED[-A-Z0-9 .&/+]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<NOT DONE[-A-Z0-9,. _+]*:\\)\\(.*$\\)" (1 > > bg:lightmagenta t) (2 fg:lightmagenta t)) > > ;;("\\(\\<SEMI[A-Z0-9 .&/]*:\\)\\(.*$\\)" (1 > > d-face-property-inverse t) (2 d-face-property t)) > > ("\\(\\<class:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > > 'font-lock-type-face t)) > > ("\\(\\<constructor:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > > 'font-lock-function-name-face t)) > > ("\\(\\<method:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > > 'font-lock-function-name-face t)) > > ("\\(\\<methods:\\) \\(\\([-a-zA-Z0-9_.+]* *\\)*\\)" (1 'bold t) (2 > > 'font-lock-function-name-face t)) > > ("\\(\\<function:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > > 'font-lock-function-name-face t)) > > ("\\(\\<variable:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > > 'font-lock-variable-name-face t)) > > ("\\(\\<classVar:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > > 'font-lock-variable-name-face t)) > > ("\\(\\<defun:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > > 'font-lock-function-name-face t)) > > ("\\(\\<defmacro:\\) \\([-a-zA-Z0-9_.+]*\\)" (1 'bold t) (2 > > 'font-lock-function-name-face t)) > > ("\\(\\<file:\\) \\([a-zA-Z0-9_.+]*\\)" (1 'bold t)) > > ("\\(\\<line:\\) \\([0-9]+\\)" (1 'bold t) (2 > > fg:lightmagenta t)) > > ("#[-a-zA-Z0-9'.:+]+" 0 > > 'font-lock-function-name-face t) > > ;; \f end of smegs > > ("^[ \t]*\f[^\n\r]*[\r\n]" 0 > > d-face-red-and-white t) > > ;;("\\<message-and-sit\\>" 0 d-debug-face > > t) > > ;; IMPORTANT NOTES! sdfsdf > > ;; IMPORTANT NOTES? sdfsdff > > ("\\(\\<[A-Z]+[^a-z\r\n!:;()]*[A-Z0-9][!?]+\\)\\(.*$\\)" > > (1 d-face-green-and-yellow t) > > (2 bg:yellow t)) > > )) > > )) > > > > ) ^ permalink raw reply [flat|nested] 26+ messages in thread
end of thread, other threads:[~2016-06-20 23:50 UTC | newest]
Thread overview: 26+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2016-06-19 0:19 Invalid face reference: quote Davin Pearson
2016-06-19 14:10 ` Emanuel Berg
2016-06-19 17:11 ` Pascal J. Bourguignon
2016-06-20 4:20 ` Davin Pearson
2016-06-20 4:41 ` Davin Pearson
2016-06-20 3:27 ` Stefan Monnier
[not found] ` <mailman.1844.1466393286.1216.help-gnu-emacs@gnu.org>
2016-06-20 4:17 ` Davin Pearson
2016-06-20 4:41 ` Emanuel Berg
2016-06-20 21:51 ` Davin Pearson
2016-06-20 22:14 ` Emanuel Berg
2016-06-20 23:50 ` Barry Margolin
[not found] ` <mailman.1799.1466345449.1216.help-gnu-emacs@gnu.org>
2016-06-20 4:30 ` Davin Pearson
2016-06-20 4:47 ` Emanuel Berg
2016-06-20 4:58 ` Davin Pearson
2016-06-20 5:07 ` Davin Pearson
2016-06-20 9:51 ` Emanuel Berg
2016-06-20 13:28 ` Loris Bennett
2016-06-20 14:24 ` Emanuel Berg
2016-06-20 14:53 ` Loris Bennett
2016-06-20 21:24 ` my experience with eye problems (was: Re: Invalid face reference: quote) Emanuel Berg
2016-06-20 21:39 ` Emanuel Berg
2016-06-20 14:01 ` Invalid face reference: quote Dan Espen
2016-06-20 10:10 ` Emanuel Berg
-- strict thread matches above, loose matches on Subject: below --
2016-06-06 23:46 Davin Pearson
2016-06-06 23:48 ` Barry Margolin
2016-06-07 8:01 ` Davin Pearson
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).