Mercurial > emacs
changeset 103932:4f0ab17b429c
(ns-set-alpha): Don't declare.
(ns-set-background-alpha): Remove function.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Thu, 16 Jul 2009 08:24:56 +0000 |
| parents | 337f90c9ae7d |
| children | 836edd2c1365 |
| files | lisp/term/ns-win.el |
| diffstat | 1 files changed, 0 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/ns-win.el Thu Jul 16 08:24:33 2009 +0000 +++ b/lisp/term/ns-win.el Thu Jul 16 08:24:56 2009 +0000 @@ -1130,18 +1130,6 @@ (setq defined-colors (cons this-color defined-colors))) ;;) defined-colors)) -(declare-function ns-set-alpha "nsfns.m" (color alpha)) - -;; Convenience and work-around for fact that set color fns now require named. -(defun ns-set-background-alpha (alpha) - "Sets ALPHA (opacity) of background. -Set from 0.0 (fully transparent) to 1.0 (fully opaque; default). -Note, tranparency works better on Tiger (10.4) and higher." - (interactive "nSet background alpha to: ") - (let ((bgcolor (cdr (assq 'background-color (frame-parameters))))) - (set-frame-parameter (selected-frame) - 'background-color (ns-set-alpha bgcolor alpha)))) - ;; Functions for color panel + drag (defun ns-face-at-pos (pos) (let* ((frame (car pos))