Commit 7653ca1d authored by YAMAMOTO Mitsuharu's avatar YAMAMOTO Mitsuharu
Browse files

(ns-set-alpha): Don't declare.

(ns-set-background-alpha): Remove function.
parent 042f7b69
2009-07-16 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* term/ns-win.el (ns-set-alpha): Don't declare.
(ns-set-background-alpha): Remove function.
2009-07-16 Kevin Ryde <user42@zip.com.au>
* emacs-lisp/copyright.el (copyright-update): Save match-data across
......
......@@ -1130,18 +1130,6 @@ The value may be different for frames on different Nextstep displays."
(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))
......
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