diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-01 16:32:04 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-01 16:32:04 -0300 |
| commit | 2403c841a8e920fa7e517997ecb5addcca2ecfe7 (patch) | |
| tree | 4dccd3734a7be1b965df14491b7002260e1876dc /lisp/proced.el | |
| parent | 3b7d5980c94cdf3188b2a5bb002e00d887312957 (diff) | |
| download | emacs-2403c841a8e920fa7e517997ecb5addcca2ecfe7.tar.gz | |
Silence various byte-compiler warnings.
* lisp/emacs-lisp/byte-run.el (make-obsolete-variable): New argument
`access-type' and new obsolescence format.
* lisp/emacs-lisp/bytecomp.el (byte-compile-warn-obsolete): Adjust to
new format.
(byte-compile-check-variable): New `access-type' argument.
Only warn if the access-type is obsolete.
(byte-compile-dynamic-variable-bind, byte-compile-variable-ref)
(byte-compile-variable-set): Adjust callers.
* lisp/help-fns.el (describe-variable): Adjust to new obsolescence format.
* lisp/mail/sendmail.el (mail-mailer-swallows-blank-line): Only mark
setting it as obsolete.
* lisp/simple.el (minibuffer-completing-symbol):
* lisp/font-lock.el (font-lock-beginning-of-syntax-function): Only mark read
access as obsolete.
* lisp/minibuffer.el (minibuffer-completing-file-name): Don't make it
obsolete yet.
* lisp/international/quail.el (quail-mouse-choose-completion): Remove unused
code referring to obsolete var.
(quail-choose-completion-string): Remove.
* lisp/server.el (server-clients-with, server-kill-buffer-query-function)
(server-kill-emacs-query-function): Silence "unused `proc'" warnings.
* lisp/proced.el (proced-send-signal):
* lisp/emacs-lisp/lisp.el (lisp-complete-symbol):
Replace completion-annotate-function with completion-extra-properties.
Diffstat (limited to 'lisp/proced.el')
| -rw-r--r-- | lisp/proced.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/proced.el b/lisp/proced.el index ddc4ed1db14..4436129ce16 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -1735,8 +1735,9 @@ After sending the signal, this command runs the normal hook (pnum (if (= 1 (length process-alist)) "1 process" (format "%d processes" (length process-alist)))) - (completion-annotate-function - (lambda (s) (cdr (assoc s proced-signal-list))))) + (completion-extra-properties + '(:annotation-function + (lambda (s) (cdr (assoc s proced-signal-list)))))) (setq signal (completing-read (concat "Send signal [" pnum "] (default TERM): ") |