Re: C-x C-f /path/to/file returns "wrong type argument: stringp, nil"

[Roland Reichenberg]

Hi Jean-Philippe,

>
> Can you do M-x toggle-debug-on-error, then try to open a file like
> above, (to provoque the error) then send the content of the
> *backtrace* buffer here?
>

here is the backtrace. Note, that the file /tmp/test.c was created before!
I hope this helps!

Regards,

        Roland



Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  internal-set-lisp-face-attribute(blue/grey :font nil 0)
  set-face-attribute(blue/grey nil :font nil)
  set-face-font(blue/grey nil)
  (progn (set-face-font face nil) (set-face-underline-p face (string-match
"underline" fn)) (if (string-match ".*bold" fn) (progn ... ...)) (if
(string-match ".*italic" fn) (progn ... ...)))
  (or error (progn (set-face-font face nil) (set-face-underline-p face ...)
(if ... ...) (if ... ...)))
  (cond ((or ... ...)) ((or force ... ...) (copy-face ... ...) (if ... ...)
(if ... ... ...) (if ... ...) (and ... ...) (and ... ...) (condition-case
nil ... ...) (or error ...)))
  (let* ((fn ...) (frame ...) (basefont ...) error fgcolor bgcolor) (cond
(...) (... ... ... ... ... ... ... ... ...)))
  hilit-lookup-face-create(fold-open)
  (let ((face ...)) (setq rv (cons ... rv)))
  (cond ((symbolp pp) (setq rv ...)) ((not ...) (error "bad pattern %S" pp))
((eq ... ...) (setq pp ...) (if local-pats ...) (if hilit-new-style-patterns
... ...)) (t (let ... ...)))
  (while pats (setq pp (car pats) pats (cdr pats)) (cond (... ...) (... ...)
(... ... ... ...) (t ...)))
  (let (rv pp) (while pats (setq pp ... pats ...) (cond ... ... ... ...))
(setq rv (nreverse rv)) (or (symbolp ...) (setq rv ...)) (or hilit-quietly
(message "")) (setq lcp rv))
  hilit-compile-patterns((nil ("/\\*" "\\*/" comment) ("//.*$" 0 comment)
("^/.*$" 0 comment) (hilit-string-find 39 string)
^#[  ]*\\(undef\\|define\\).*$" "[^\\]$" define) ("^#.*$" 0 include)
("^\\(\\(\\w\\|[$_]\\)+::\\)?\\(\\w\\|[$_]\\)+\\s *\\(\\(\\w\\|[$_]\\)+\\s
*((\\|(\\)[^)]*)+" 0 defun)
\(\\(\\w\\|[$_]\\)+[  ]*::[  ]*\\)?\\(\\(\\w\\|[$_]\\)+\\|operator.*\\)\\s
*\\(\\(\\w\\|[$_]\\)+\\s *((\\|(\\)[^)]*)+" 0 defun)
("^\\(template\\|typedef\\|struct\\|union\\|class\\|enum\\|public\\|private\
\|protected\\).*$" 0 decl) ("[ \n
({]\\(\\(const\\|register\\|volatile\\|unsigned\\|extern\\|static\\)\\s
+\\)*\\(\\(\\w\\|[$_]\\)+_t\\|const\\|float\\|float&\\|float*\\|double\\|dou
ble&\\|double*\\|void\\|char\\|short\\|int\\|int&\\|int*\\|long\\|FILE\\|FIL
E*\\|\\(\\(struct\\|union\\|enum\\|class\\|inline\\|friend\\|static\\)\\([  
]+\\(\\w\\|[$_]\\)*\\)\\)\\)\\(\\s +\\*+)?\\|[ \n ;()]\\)" 0 type)
("[^_]\\<\\(return\\|goto\\|if\\|else\\|case\\|default\\|switch\\|break\\|co
ntinue\\|while\\|do\\|for\\|public\\|protected\\|private\\|delete\\|new\\)\\
>[^_]" 1 keyword) ("//.{{{[^.\n]*
" ".." fold-folded) ("//.{{{[^.\n]*" ".." fold-open)) nil)
  (cond ((null patterns) (or hilit-buffer-compiled-patterns ...)
hilit-buffer-compiled-patterns) ((symbolp patterns) (let ... ...)) ((and ...
...) (cdr patterns)) (t (hilit-compile-patterns patterns ...)))
  hilit-get-compiled-patterns((nil ("/\\*" "\\*/" comment) ("//.*$" 0
comment) ("^/.*$" 0 comment) (hilit-string-find 39 string)
^#[  ]*\\(undef\\|define\\).*$" "[^\\]$" define) ("^#.*$" 0 include)
("^\\(\\(\\w\\|[$_]\\)+::\\)?\\(\\w\\|[$_]\\)+\\s *\\(\\(\\w\\|[$_]\\)+\\s
*((\\|(\\)[^)]*)+" 0 defun)
\(\\(\\w\\|[$_]\\)+[  ]*::[  ]*\\)?\\(\\(\\w\\|[$_]\\)+\\|operator.*\\)\\s
*\\(\\(\\w\\|[$_]\\)+\\s *((\\|(\\)[^)]*)+" 0 defun)
("^\\(template\\|typedef\\|struct\\|union\\|class\\|enum\\|public\\|private\
\|protected\\).*$" 0 decl) ("[ \n
({]\\(\\(const\\|register\\|volatile\\|unsigned\\|extern\\|static\\)\\s
+\\)*\\(\\(\\w\\|[$_]\\)+_t\\|const\\|float\\|float&\\|float*\\|double\\|dou
ble&\\|double*\\|void\\|char\\|short\\|int\\|int&\\|int*\\|long\\|FILE\\|FIL
E*\\|\\(\\(struct\\|union\\|enum\\|class\\|inline\\|friend\\|static\\)\\([  
]+\\(\\w\\|[$_]\\)*\\)\\)\\)\\(\\s +\\*+)?\\|[ \n ;()]\\)" 0 type)
("[^_]\\<\\(return\\|goto\\|if\\|else\\|case\\|default\\|switch\\|break\\|co
ntinue\\|while\\|do\\|for\\|public\\|protected\\|private\\|delete\\|new\\)\\
>[^_]" 1 keyword) ("//.{{{[^.\n]*
" ".." fold-folded) ("//.{{{[^.\n]*" ".." fold-open)))
  (and mpats (hilit-get-compiled-patterns mpats))
  (let ((mpats ...)) (and mpats (hilit-get-compiled-patterns mpats)))
  (cond ((null patterns) (or hilit-buffer-compiled-patterns ...)
hilit-buffer-compiled-patterns) ((symbolp patterns) (let ... ...)) ((and ...
...) (cdr patterns)) (t (hilit-compile-patterns patterns ...)))
  hilit-get-compiled-patterns(c++-mode)
  (setq hilit-buffer-compiled-patterns (hilit-get-compiled-patterns
major-mode))
  (or hilit-buffer-compiled-patterns (setq hilit-buffer-compiled-patterns
(hilit-get-compiled-patterns major-mode)))
  (cond ((null patterns) (or hilit-buffer-compiled-patterns ...)
hilit-buffer-compiled-patterns) ((symbolp patterns) (let ... ...)) ((and ...
...) (cdr patterns)) (t (hilit-compile-patterns patterns ...)))
  hilit-get-compiled-patterns(nil)
  (setq patterns (hilit-get-compiled-patterns patterns))
  hilit-highlight-region(1 5943 nil nil)
  (save-restriction (widen) (setq start (save-excursion ... ... ...) start
(apply ... start ...) end (save-excursion ... ... ...) end (apply ... end
...)) (hilit-unhighlight-region start end quietly) (hilit-highlight-region
start end nil quietly))
  hilit-rehighlight-region(1 5943 nil)
  (if parse-fn (funcall parse-fn quietly) (hilit-rehighlight-region
(point-min) (point-max) quietly))
  (let ((parse-fn ...)) (if parse-fn (funcall parse-fn quietly)
(hilit-rehighlight-region ... ... quietly)))
  (if (/= (point-min) (point-max)) (let (...) (if parse-fn ... ...)))
  hilit-rehighlight-buffer()
  (if (> buffer-saved-size hilit-auto-highlight-maxout) nil
(hilit-rehighlight-buffer) (set-buffer-modified-p nil))
  (cond ((and hilit-auto-highlight ...) (if ... ...) (if ... nil ... ...)))
  hilit-find-file-hook()
  run-hooks(find-file-hooks)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer test.c> "/tmp/test.c" nil nil "/tmp/test.c"
(7598108 2113))
  find-file-noselect("/tmp/test.c" nil nil 1)
  find-file("/tmp/test.c" 1)
  call-interactively(find-file)