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

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

[Roland Reichenberg]

Hi NG,

when trying to open an _existing_ file using C-x C-f, my emacs returns:

"wrong type argument: stringp, nil"

The second attempt of "C-x C-f /path/to/file" always works fine and opens
the file.

What's going wrong?

I am using emacs 21.2.1 on i686 platform (linux).

Thanks in advance,

        Roland

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

[Jean-Philippe Théberge]

"Roland Reichenberg" <r.reichenberg@gmx.de> writes:

> Hi NG,
>
> when trying to open an _existing_ file using C-x C-f, my emacs returns:
>
> "wrong type argument: stringp, nil"
>
> The second attempt of "C-x C-f /path/to/file" always works fine and opens
> the file.
>
> What's going wrong?
>
> I am using emacs 21.2.1 on i686 platform (linux).
>
> Thanks in advance,
>
>         Roland
>
>
>
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?

Thanks.


-- 
Jean-Philippe Théberge
"DARK SHADOWS" is on!!  Hey, I think the VAMPIRE forgot his UMBRELLA!!

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)

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

[Glenn Morris]

"Roland Reichenberg" wrote:

>   hilit-find-file-hook()

Stop trying to use the obsolete package hilit19.