* bug#18667: 24.3.94; Error "Point 5215 after end of properties" inside re-search-forward
@ 2014-10-09 0:51 Dmitry Gutov
2015-11-25 0:42 ` Dmitry Gutov
0 siblings, 1 reply; 2+ messages in thread
From: Dmitry Gutov @ 2014-10-09 0:51 UTC (permalink / raw)
To: 18667
(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
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2015-11-25 0:42 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2014-10-09 0:51 bug#18667: 24.3.94; Error "Point 5215 after end of properties" inside re-search-forward Dmitry Gutov
2015-11-25 0:42 ` Dmitry Gutov
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.