* Invalid face reference: quote
@ 2016-06-06 23:46 Davin Pearson
2016-06-06 23:48 ` Barry Margolin
0 siblings, 1 reply; 24+ 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] 24+ messages in thread
* Re: Invalid face reference: quote
2016-06-06 23:46 Invalid face reference: quote Davin Pearson
@ 2016-06-06 23:48 ` Barry Margolin
2016-06-07 8:01 ` Davin Pearson
0 siblings, 1 reply; 24+ 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] 24+ 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; 24+ 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] 24+ messages in thread
* 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; 24+ 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] 24+ messages in thread
* Re: Invalid face reference: quote
2016-06-19 0:19 Davin Pearson
@ 2016-06-19 14:10 ` Emanuel Berg
2016-06-19 17:11 ` Pascal J. Bourguignon
` (3 subsequent siblings)
4 siblings, 0 replies; 24+ 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] 24+ messages in thread
* Re: Invalid face reference: quote
2016-06-19 0:19 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; 24+ 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] 24+ messages in thread
* Re: Invalid face reference: quote
2016-06-19 0:19 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; 24+ 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] 24+ messages in thread
* 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; 24+ 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] 24+ 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; 24+ 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] 24+ messages in thread
* 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; 24+ 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] 24+ 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; 24+ 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] 24+ 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; 24+ 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] 24+ 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; 24+ 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] 24+ 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; 24+ 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] 24+ 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 ` Dan Espen
2016-06-20 10:10 ` Emanuel Berg
1 sibling, 2 replies; 24+ 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] 24+ 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 ` Dan Espen
1 sibling, 1 reply; 24+ 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] 24+ 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; 24+ 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] 24+ 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; 24+ 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] 24+ 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; 24+ 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] 24+ 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; 24+ 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] 24+ messages in thread
* Re: Invalid face reference: quote
2016-06-20 14:24 ` Emanuel Berg
@ 2016-06-20 14:53 ` Loris Bennett
0 siblings, 0 replies; 24+ 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] 24+ 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; 24+ 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] 24+ 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; 24+ 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] 24+ 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; 24+ 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] 24+ messages in thread
end of thread, other threads:[~2016-06-20 23:50 UTC | newest]
Thread overview: 24+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2016-06-06 23:46 Invalid face reference: quote Davin Pearson
2016-06-06 23:48 ` Barry Margolin
2016-06-07 8:01 ` Davin Pearson
-- strict thread matches above, loose matches on Subject: below --
2016-06-19 0:19 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 14:01 ` Dan Espen
2016-06-20 10:10 ` Emanuel Berg
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.