1549 |
(defvar mark-active nil) |
(defvar mark-active nil) |
1550 |
(defun ps-mark-active-p () |
(defun ps-mark-active-p () |
1551 |
mark-active) |
mark-active) |
1552 |
(defalias 'ps-face-foreground-name 'face-foreground) |
(defun ps-face-foreground-name (face) |
1553 |
(defalias 'ps-face-background-name 'face-background) |
(face-foreground face nil t)) |
1554 |
)) |
(defun ps-face-background-name (face) |
1555 |
|
(face-background face nil t)))) |
1556 |
|
|
1557 |
|
|
1558 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |