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

[Dmitry Gutov <dgutov@yandex.ru>]

(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