emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp/term ns-win.el


From: YAMAMOTO Mitsuharu
Subject: [Emacs-diffs] emacs/lisp/term ns-win.el
Date: Thu, 16 Jul 2009 08:24:56 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     YAMAMOTO Mitsuharu <mituharu>   09/07/16 08:24:56

Modified files:
        lisp/term      : ns-win.el 

Log message:
        (ns-set-alpha): Don't declare.
        (ns-set-background-alpha): Remove function.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term/ns-win.el?cvsroot=emacs&r1=1.45&r2=1.46

Patches:
Index: ns-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/ns-win.el,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -b -r1.45 -r1.46
--- ns-win.el   13 Jul 2009 10:18:07 -0000      1.45
+++ ns-win.el   16 Jul 2009 08:24:56 -0000      1.46
@@ -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))




reply via email to

[Prev in Thread] Current Thread [Next in Thread]