mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-19 10:22:27 +00:00
Code Issues Releases Activity

* sym-comp.el (symbol-complete): Replace obsolete completion-annotate-function.

Browse Source
This commit is contained in:
Glenn Morris 2013-05-31 00:34:56 -07:00
parent ac699eef91
commit e26aac1f93
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2013-05-31 Glenn Morris <rgm@gnu.org>
* obsolete/sym-comp.el (symbol-complete):
Replace obsolete completion-annotate-function.
* progmodes/cc-vars.el (c-make-macro-with-semi-re): Silence compiler.
2013-05-31 Dmitry Gutov <dgutov@yandex.ru>

11
lisp/obsolete/sym-comp.el
View File

@ -139,12 +139,13 @@ to be set buffer-locally. Variables `symbol-completion-symbol-function',
pattern))
;; In case the transform needs to access it.
(symbol-completion-predicate predicate)
(completion-annotate-function
(completion-extra-properties
(if (functionp symbol-completion-transform-function)
(lambda (str)
(car-safe (cdr-safe
(funcall symbol-completion-transform-function
str)))))))
'(:annotation-function
(lambda (str)
(car-safe (cdr-safe
(funcall symbol-completion-transform-function
str))))))))
(completion-in-region (- (point) (length pattern)) (point)
completions predicate)))