unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* 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

* 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  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

* 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-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
       [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: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-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: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  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

* 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  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 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  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

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).