* lisp/select.el: Use lexical-binding.

(gui-set-selection): Provide an implementation for non-GUI frames.
* lisp/term/x-win.el: Use lexical-binding.
(x-clipboard-yank): Fix up missed renamings.
* lisp/term/w32-win.el (libgif-version, libjpeg-version): Silence compiler.
(w32--set-selection): Fix up var names.
* lisp/term/pc-win.el: Use lexical-binding.
(w16-selection-exists-p): Silence compiler warning.
(w16-selection-owner-p): Fix up missed renamings.

* lisp/emacs-lisp/bytecomp.el (byte-compile-form): Remove left-over debug.

* lisp/frame.el (frame-notice-user-settings): Fix excessive quoting.

Fixes: debbugs:18791
This commit is contained in:
Stefan Monnier 2014-10-22 21:38:59 -04:00
parent 6a7884caf2
commit d361bcfbc7
9 changed files with 52 additions and 34 deletions

View file

@ -2963,11 +2963,9 @@ for symbols generated by the byte compiler itself."
interactive-only))
(t "."))))
(if (eq (car-safe (symbol-function (car form))) 'macro)
(progn
(debug)
(byte-compile-log-warning
(format "Forgot to expand macro %s in %S" (car form) form)
nil :error)))
(byte-compile-log-warning
(format "Forgot to expand macro %s in %S" (car form) form)
nil :error))
(if (and handler
;; Make sure that function exists.
(and (functionp handler)