Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7653ca1d
Commit
7653ca1d
authored
Jul 16, 2009
by
YAMAMOTO Mitsuharu
Browse files
(ns-set-alpha): Don't declare.
(ns-set-background-alpha): Remove function.
parent
042f7b69
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
12 deletions
+5
-12
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/term/ns-win.el
lisp/term/ns-win.el
+0
-12
No files found.
lisp/ChangeLog
View file @
7653ca1d
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
...
...
lisp/term/ns-win.el
View file @
7653ca1d
...
...
@@ -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))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment