Hi,
Sorry, in a previous message i am not added lisp backtrace.
Loading cus-face...
Loading cus-face...doneFatal error: assertion failed, file insdel.c, line 1042,
VALID_BYTIND_P (buf, x)
Fatal error (6).
[...]
Lisp backtrace follows:
ad-Orig-re-search-forward("(\\(autoload\\|block\\|c\\(?:a\\(?:ll-with-condition-handler\\|tch\\)\\|ond\\(?:ition-case\\)?\\)\\|do\\(?:list\\|times\\)?\\|eval-\\(?:a\\(?:fter-load\\|nd-compile\\)\\|when-compile\\)\\|flet\\|if\\|l\\(?:a\\(?:bels\\|mbda\\)\\|et\\*?\\|oop\\)\\|prog[12nv]?\\|return\\(?:-from\\)?\\|save-\\(?:current-buffer\\|excursion\\|match-data\\|restriction\\|selected-\\(?:frame\\|window\\)\\|window-excursion\\)\\|t\\(?:hrow\\|rack-mouse\\)\\|un\\(?:less\\|wind-protect\\)\\|w\\(?:h\\(?:en\\|ile\\)\\|ith-\\(?:current-buffer\\|output-to-string\\|s\\(?:elected-\\(?:frame\\|window\\)\\|tring-as-buffer-contents\\)\\|temp-\\(?:buffer\\|file\\)\\)\\)\\)\\>"
37188 t nil nil)
(if (interactive-p) (call-interactively (quote ad-Orig-re-search-forward))
(ad-Orig-re-search-forward regexp limit noerror count buffer))
(setq ad-return-value (if (interactive-p) (call-interactively ...)
(ad-Orig-re-search-forward regexp limit noerror count buffer)))
(if (and isearch-mode senator-isearch-semantic-mode (string-equal regexp
isearch-string)) (unwind-protect (progn ... ...) (setq
senator-isearch-semantic-mode t)) (setq ad-return-value (if ... ... ...)))
# bind (ad-return-value)
(let (ad-return-value) (if (and isearch-mode senator-isearch-semantic-mode
...) (unwind-protect ... ...) (setq ad-return-value ...)) ad-return-value)
# bind (buffer count noerror limit regexp)
re-search-forward("(\\(autoload\\|block\\|c\\(?:a\\(?:ll-with-condition-handler\\|tch\\)\\|ond\\(?:ition-case\\)?\\)\\|do\\(?:list\\|times\\)?\\|eval-\\(?:a\\(?:fter-load\\|nd-compile\\)\\|when-compile\\)\\|flet\\|if\\|l\\(?:a\\(?:bels\\|mbda\\)\\|et\\*?\\|oop\\)\\|prog[12nv]?\\|return\\(?:-from\\)?\\|save-\\(?:current-buffer\\|excursion\\|match-data\\|restriction\\|selected-\\(?:frame\\|window\\)\\|window-excursion\\)\\|t\\(?:hrow\\|rack-mouse\\)\\|un\\(?:less\\|wind-protect\\)\\|w\\(?:h\\(?:en\\|ile\\)\\|ith-\\(?:current-buffer\\|output-to-string\\|s\\(?:elected-\\(?:frame\\|window\\)\\|tring-as-buffer-contents\\)\\|temp-\\(?:buffer\\|file\\)\\)\\)\\)\\>"
37188 t)
# bind (highlights matcher keyword nkeywords iter old-progress progress
bufname keywords case-fold-search loudly loudvar end start)
font-lock-fontify-keywords-region(1 37188 nil)
# (unwind-protect ...)
# bind (modified buffer-undo-list inhibit-read-only old-syntax-table
buffer-file-name buffer-file-truename loudly end beg)
font-lock-default-fontify-region(1 37188 nil)
# bind (loudly end beg)
font-lock-fontify-region(1 37188)
# (unwind-protect ...)
byte-code("..." [font-lock-fontify-region] 3)
# (condition-case ... . ((t (byte-code "│а▐╘▐╖" ... 2))))
# bind (was-on font-lock-verbose font-lock-message-threshold aborted)
# (unwind-protect ...)
font-lock-default-fontify-buffer()
# bind (font-lock-verbose)
font-lock-fontify-buffer()
# bind (on-p maximum-size arg)
font-lock-mode(1)
turn-on-font-lock()
# bind (explicit-defaults)
font-lock-set-defaults()
run-hooks(font-lock-set-defaults)
# bind (nomodes after-find-file-from-revert-buffer noauto warn error)
after-find-file(nil t)
byte-code("..." [buffer-file-number number truename buffer-file-truename buf
buffer-file-name set-buffer-major-mode erase-buffer nil (byte-code "│╚▐╖│б
│ц\"▐╗│╙▐╔│д │ц\"▐╗│б▐╖" [rawfile filename insert-file-contents-literally t
insert-file-contents] 3) ((file-error ...)) abbreviate-file-name
file-name-directory make-local-variable backup-inhibited t after-find-file
find-file-use-truenames default-directory backup-enable-predicate rawfile error
nowarn] 3)
# (condition-case ... . ((t (byte-code "│б!▐╗│ц @ A\"▐╖" ... 3))))
# (unwind-protect ...)
# bind (error number truename buf rawfile nowarn filename)
find-file-noselect("/home/anray/.xemacs/gnus.el")
# bind (codesys filename)
ad-Orig-find-file("/home/anray/.xemacs/gnus.el" nil)
(setq ad-return-value (ad-Orig-find-file filename codesys))
# bind (ad-return-value)
(let (ad-return-value) (hack-coding-variable-debug "Find file use codesys %s"
codesys) (setq hack-coding-variable-explicit-coding codesys) (setq
ad-return-value (ad-Orig-find-file filename codesys)) ad-return-value)
# bind (codesys filename)
find-file("/home/anray/.xemacs/gnus.el")
# bind (filename)
#<compiled-function (&optional filename) "...(94)" [ffap-dired-wildcards
ffap-url-regexp ffap-file-finder string current-prefix-arg filename nil
call-interactively ffap-prompter t string-match dired file-exists-p y-or-n-p
"File does not exist, create buffer? " expand-file-name signal file-error
"Opening file buffer" "no such file or directory" ffap-require-prefix
case-fold-search ffap-url-fetcher ffap-newfile-prompt] 5
("/usr/local/lib/sxemacs/xemacs-packages/lisp/xemacs-base/ffap.elc" . 29419)
nil>()
call-interactively(find-file-at-point)
# (condition-case ... . error)
# (catch top-level ...)
--
Regards,
Andrey.
|