diff options
| author | André Fabian Silva Delgado <emulatorman@lavabit.com> | 2012-11-13 16:36:26 -0200 |
|---|---|---|
| committer | André Fabian Silva Delgado <emulatorman@lavabit.com> | 2012-11-13 16:36:26 -0200 |
| commit | 8eba14b29abd2ce680d3dab6ba6f6cd0a6b5b918 (patch) | |
| tree | 6f8599f56b8e678f80a534bdb3139ef57d69df32 /pcr/emacs-color-theme/gnus-bug.diff | |
| parent | 21ae83de97da28975c4ccf6208ed0454532852b5 (diff) | |
| parent | e242c9f418786fb9d279119045d881aaec0a7ce4 (diff) | |
| download | abslibre-8eba14b29abd2ce680d3dab6ba6f6cd0a6b5b918.tar.gz abslibre-8eba14b29abd2ce680d3dab6ba6f6cd0a6b5b918.tar.bz2 abslibre-8eba14b29abd2ce680d3dab6ba6f6cd0a6b5b918.zip | |
Merge branch 'master' of ssh://parabolagnulinux.org:1863/srv/git/abslibre
Diffstat (limited to 'pcr/emacs-color-theme/gnus-bug.diff')
| -rw-r--r-- | pcr/emacs-color-theme/gnus-bug.diff | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/pcr/emacs-color-theme/gnus-bug.diff b/pcr/emacs-color-theme/gnus-bug.diff new file mode 100644 index 000000000..9d227df56 --- /dev/null +++ b/pcr/emacs-color-theme/gnus-bug.diff @@ -0,0 +1,28 @@ +diff -Naur color-theme-6.6.0.orig/color-theme.el color-theme-6.6.0.new/color-theme.el +--- color-theme-6.6.0.orig/color-theme.el 2011-11-18 01:17:29.000000000 +0100 ++++ color-theme-6.6.0.new/color-theme.el 2011-11-18 01:24:07.000000000 +0100 +@@ -73,9 +73,10 @@ + "Non-nil if running XEmacs.") + + ;; Add this since it appears to miss in emacs-2x +-(or (fboundp 'replace-in-string) +- (defun replace-in-string (target old new) +- (replace-regexp-in-string old new target))) ++(if (fboundp 'replace-in-string) ++ (defalias 'color-theme-replace-in-string 'replace-in-string) ++ (defsubst color-theme-replace-in-string (target old new &optional literal) ++ (replace-regexp-in-string old new target nil literal))) + + ;; face-attr-construct has a problem in Emacs 20.7 and older when + ;; dealing with inverse-video faces. Here is a short test to check +@@ -1626,8 +1627,8 @@ + (add-to-list 'color-themes + (list ',n + (upcase-initials +- (replace-in-string +- (replace-in-string ++ (color-theme-replace-in-string ++ (color-theme-replace-in-string + (symbol-name ',n) "^color-theme-" "") "-" " ")) + ,author)) + (defun ,n () |