bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#18667: 24.3.94; Error "Point 5215 after end of properties" inside re


From: Dmitry Gutov
Subject: bug#18667: 24.3.94; Error "Point 5215 after end of properties" inside re-search-forward
Date: Thu, 09 Oct 2014 04:51:14 +0400

(When using a company-mode backend, called `company-dabbrev').

I don't have a clear reproduction recipe, since the error comes and
goes. I've seen a report about it before
(https://github.com/company-mode/company-mode/issues/168), but only
started noticing it today myself. This seems to be an Emacs bug.

Is there a specific info I can produce to help troubleshooting?

At the given time, we're in a ruby-mode buffer, point is 2201, point-max
is 5222. 5215 is inside an "end" keyword, close to the end of the
buffer. window-end was around 874.

After retrying the operation that I was doing, the error disappeared.

The backtrace looks like this:

Debugger entered--Lisp error: (error "Point 5215 after end of properties")
  re-search-forward("\\<ns2\\(\\sw\\)*\\>" nil t)
  (while (re-search-forward regexp nil t) (setq match 
(match-string-no-properties 0)) (if (and ignore-comments 
(company-in-string-or-comment)) (re-search-forward "\\s>\\|\\s!\\|\\s\"" nil t) 
(if (>= (length match) company-dabbrev-minimum-length) (progn (setq symbols 
(cons match symbols))))) (and limit (eq (setq company-time-limit-while-counter 
(1+ company-time-limit-while-counter)) 25) (setq 
company-time-limit-while-counter 0) (> (float-time (time-since start)) limit) 
(throw (quote done) (quote company-time-out))))
  (catch (quote done) (while (re-search-forward regexp nil t) (setq match 
(match-string-no-properties 0)) (if (and ignore-comments 
(company-in-string-or-comment)) (re-search-forward "\\s>\\|\\s!\\|\\s\"" nil t) 
(if (>= (length match) company-dabbrev-minimum-length) (progn (setq symbols 
(cons match symbols))))) (and limit (eq (setq company-time-limit-while-counter 
(1+ company-time-limit-while-counter)) 25) (setq 
company-time-limit-while-counter 0) (> (float-time (time-since start)) limit) 
(throw (quote done) (quote company-time-out)))))
  (let ((company-time-limit-while-counter 0)) (catch (quote done) (while 
(re-search-forward regexp nil t) (setq match (match-string-no-properties 0)) 
(if (and ignore-comments (company-in-string-or-comment)) (re-search-forward 
"\\s>\\|\\s!\\|\\s\"" nil t) (if (>= (length match) 
company-dabbrev-minimum-length) (progn (setq symbols (cons match symbols))))) 
(and limit (eq (setq company-time-limit-while-counter (1+ 
company-time-limit-while-counter)) 25) (setq company-time-limit-while-counter 
0) (> (float-time (time-since start)) limit) (throw (quote done) (quote 
company-time-out))))))
  (let (match) (goto-char (if pos (1- pos) (point-min))) (let 
((company-time-limit-while-counter 0)) (catch (quote done) (while 
(re-search-backward regexp nil t) (setq match (match-string-no-properties 0)) 
(if (and ignore-comments (company-in-string-or-comment)) (goto-char (nth 8 
(syntax-ppss))) (if (>= (length match) company-dabbrev-minimum-length) (progn 
(setq symbols ...)))) (and limit (eq (setq company-time-limit-while-counter (1+ 
company-time-limit-while-counter)) 25) (setq company-time-limit-while-counter 
0) (> (float-time (time-since start)) limit) (throw (quote done) (quote 
company-time-out)))))) (goto-char (or pos (point-min))) (let 
((company-time-limit-while-counter 0)) (catch (quote done) (while 
(re-search-forward regexp nil t) (setq match (match-string-no-properties 0)) 
(if (and ignore-comments (company-in-string-or-comment)) (re-search-forward 
"\\s>\\|\\s!\\|\\s\"" nil t) (if (>= (length match) 
company-dabbrev-minimum-length) (progn (setq symbols ...)))) (and limit (eq 
(setq company-time-limit-while-counter (1+ company-time-limit-while-counter)) 
25) (setq company-time-limit-while-counter 0) (> (float-time (time-since 
start)) limit) (throw (quote done) (quote company-time-out)))))) symbols)
  (save-excursion (let (match) (goto-char (if pos (1- pos) (point-min))) (let 
((company-time-limit-while-counter 0)) (catch (quote done) (while 
(re-search-backward regexp nil t) (setq match (match-string-no-properties 0)) 
(if (and ignore-comments (company-in-string-or-comment)) (goto-char (nth 8 
...)) (if (>= ... company-dabbrev-minimum-length) (progn ...))) (and limit (eq 
(setq company-time-limit-while-counter ...) 25) (setq 
company-time-limit-while-counter 0) (> (float-time ...) limit) (throw (quote 
done) (quote company-time-out)))))) (goto-char (or pos (point-min))) (let 
((company-time-limit-while-counter 0)) (catch (quote done) (while 
(re-search-forward regexp nil t) (setq match (match-string-no-properties 0)) 
(if (and ignore-comments (company-in-string-or-comment)) (re-search-forward 
"\\s>\\|\\s!\\|\\s\"" nil t) (if (>= ... company-dabbrev-minimum-length) (progn 
...))) (and limit (eq (setq company-time-limit-while-counter ...) 25) (setq 
company-time-limit-while-counter 0) (> (float-time ...) limit) (throw (quote 
done) (quote company-time-out)))))) symbols))
  company-dabbrev--search-buffer("\\<ns2\\(\\sw\\)*\\>" 255 nil (21557 55762 
933926 188000) 0.1 nil)
  (let* ((start (current-time)) (symbols (company-dabbrev--search-buffer regexp 
(point) nil start limit ignore-comments))) (if other-buffer-modes (progn (catch 
(quote --cl-block-nil--) (let ((--dolist-tail-- (delq ... ...))) (while 
--dolist-tail-- (let (...) (save-current-buffer ... ...) (and limit ... ...) 
(setq --dolist-tail-- ...))))))) symbols)
  company-dabbrev--search("\\<ns2\\(\\sw\\)*\\>" 0.1 all)
  (let* ((case-fold-search company-dabbrev-ignore-case) (words 
(company-dabbrev--search (company-dabbrev--make-regexp arg) 
company-dabbrev-time-limit (cond ((eq company-dabbrev-other-buffers (quote t)) 
(let nil (list major-mode))) ((eq company-dabbrev-other-buffers (quote all)) 
(let nil (quote all))) (t nil)))) (downcase-p (if (eq company-dabbrev-downcase 
(quote case-replace)) case-replace company-dabbrev-downcase))) (if downcase-p 
(mapcar (quote downcase) words) words))
  (cond ((eql command (quote interactive)) (company-begin-backend (quote 
company-dabbrev))) ((eql command (quote prefix)) (company-grab-word)) ((eql 
command (quote candidates)) (let* ((case-fold-search 
company-dabbrev-ignore-case) (words (company-dabbrev--search 
(company-dabbrev--make-regexp arg) company-dabbrev-time-limit (cond (... ...) 
(... ...) (t nil)))) (downcase-p (if (eq company-dabbrev-downcase (quote 
case-replace)) case-replace company-dabbrev-downcase))) (if downcase-p (mapcar 
(quote downcase) words) words))) ((eql command (quote ignore-case)) 
company-dabbrev-ignore-case) ((eql command (quote duplicates)) t))
  company-dabbrev(candidates #("ns2" 0 3 (fontified t face 
font-lock-string-face)))


In GNU Emacs 24.3.94.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.10.8)
 of 2014-10-06 on axl
Repository revision: 117555 sdl.web@gmail.com-20141005005838-oyl694hqhu2d3632
Windowing system distributor `The X.Org Foundation', version 11.0.11501000
System Description:     Ubuntu 14.04.1 LTS





reply via email to

[Prev in Thread] Current Thread [Next in Thread]