|
Lines 72-82
Link Here
|
| 72 |
(string-match "XEmacs" emacs-version)) |
72 |
(string-match "XEmacs" emacs-version)) |
| 73 |
"Non-nil if running XEmacs.") |
73 |
"Non-nil if running XEmacs.") |
| 74 |
|
74 |
|
| 75 |
;; Add this since it appears to miss in emacs-2x |
|
|
| 76 |
(or (fboundp 'replace-in-string) |
| 77 |
(defun replace-in-string (target old new) |
| 78 |
(replace-regexp-in-string old new target))) |
| 79 |
|
| 80 |
;; face-attr-construct has a problem in Emacs 20.7 and older when |
75 |
;; face-attr-construct has a problem in Emacs 20.7 and older when |
| 81 |
;; dealing with inverse-video faces. Here is a short test to check |
76 |
;; dealing with inverse-video faces. Here is a short test to check |
| 82 |
;; wether you are affected. |
77 |
;; wether you are affected. |
|
Lines 1626-1633
Link Here
|
| 1626 |
(add-to-list 'color-themes |
1621 |
(add-to-list 'color-themes |
| 1627 |
(list ',n |
1622 |
(list ',n |
| 1628 |
(upcase-initials |
1623 |
(upcase-initials |
| 1629 |
(replace-in-string |
1624 |
(replace-regexp-in-string |
| 1630 |
(replace-in-string |
1625 |
(replace-regexp-in-string |
| 1631 |
(symbol-name ',n) "^color-theme-" "") "-" " ")) |
1626 |
(symbol-name ',n) "^color-theme-" "") "-" " ")) |
| 1632 |
,author)) |
1627 |
,author)) |
| 1633 |
(defun ,n () |
1628 |
(defun ,n () |
