Commit 5757dd51 authored by Glenn Morris's avatar Glenn Morris

T. V. Raman <raman at users.sf.net> (tiny change)

(symbol-under-point, symbol-before-point)
(symbol-before-point-for-complete): Use buffer-substring-no-properties.
parent 56922a63
2007-08-17 T. V. Raman <raman@users.sf.net> (tiny change)
* completion.el (symbol-under-point, symbol-before-point)
(symbol-before-point-for-complete): Use
buffer-substring-no-properties.
2007-08-17 Glenn Morris <rgm@gnu.org>
* progmodes/compile.el (compilation-get-file-structure): Make use
......
......@@ -568,7 +568,8 @@ But only if it is longer than `completion-min-length'."
(- cmpl-symbol-end cmpl-symbol-start))
(<= (- cmpl-symbol-end cmpl-symbol-start)
completion-max-length))
(buffer-substring cmpl-symbol-start cmpl-symbol-end))))))
(buffer-substring-no-properties
cmpl-symbol-start cmpl-symbol-end))))))
;; tests for symbol-under-point
;; `^' indicates cursor pos. where value is returned
......@@ -601,7 +602,8 @@ Returns nil if there isn't one longer than `completion-min-length'."
;; Return value if long enough.
(if (>= cmpl-symbol-end
(+ cmpl-symbol-start completion-min-length))
(buffer-substring cmpl-symbol-start cmpl-symbol-end)))
(buffer-substring-no-properties
cmpl-symbol-start cmpl-symbol-end)))
((= cmpl-preceding-syntax ?w)
;; chars to ignore at end
(let ((saved-point (point)))
......@@ -621,7 +623,8 @@ Returns nil if there isn't one longer than `completion-min-length'."
(- cmpl-symbol-end cmpl-symbol-start))
(<= (- cmpl-symbol-end cmpl-symbol-start)
completion-max-length))
(buffer-substring cmpl-symbol-start cmpl-symbol-end)))))))
(buffer-substring-no-properties
cmpl-symbol-start cmpl-symbol-end)))))))
;; tests for symbol-before-point
;; `^' indicates cursor pos. where value is returned
......@@ -670,7 +673,8 @@ Returns nil if there isn't one longer than `completion-min-length'."
(- cmpl-symbol-end cmpl-symbol-start))
(<= (- cmpl-symbol-end cmpl-symbol-start)
completion-max-length))
(buffer-substring cmpl-symbol-start cmpl-symbol-end))))))
(buffer-substring-no-properties
cmpl-symbol-start cmpl-symbol-end))))))
;; tests for symbol-before-point-for-complete
;; `^' indicates cursor pos. where value is returned
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment