commit:     a09895211e963261fa946240da7758001785b696
Author:     Ulrich Müller <ulm <AT> gentoo <DOT> org>
AuthorDate: Fri Apr  7 18:30:26 2017 +0000
Commit:     Ulrich Müller <ulm <AT> gentoo <DOT> org>
CommitDate: Fri Apr  7 18:30:26 2017 +0000
URL:        https://gitweb.gentoo.org/proj/emacs-tools.git/commit/?id=a0989521

Fix for XEmacs 21.4.

* ebuild-mode.el (ebuild-mode-make-keywords-list): XEmacs 21.4
doesn't have delete-dups, use delete-duplicates instead.

 ChangeLog      | 3 +++
 ebuild-mode.el | 5 ++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index fa707b1..ac09a5c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2017-04-07  Ulrich Müller  <[email protected]>
 
+       * ebuild-mode.el (ebuild-mode-make-keywords-list): XEmacs 21.4
+       doesn't have delete-dups, use delete-duplicates instead.
+
        * Version 1.36 released.
 
        * ebuild-mode-keywords.el (ebuild-mode-keywords-*): Regenerated.

diff --git a/ebuild-mode.el b/ebuild-mode.el
index c65d08b..8fcf281 100644
--- a/ebuild-mode.el
+++ b/ebuild-mode.el
@@ -213,7 +213,10 @@ of lines."
       (error "Keywords argument must be a list of strings"))
     (cons (concat prefix "\\<"
                  (let ((max-specpdl-size (max max-specpdl-size 2000)))
-                   (regexp-opt (delete-dups keywords-list) t))
+                   (regexp-opt (if (fboundp 'delete-dups) ; not in XEmacs 21.4
+                                   (delete-dups keywords-list)
+                                 (delete-duplicates keywords-list))
+                               t))
                  "\\>" suffix)
          face))
 

Reply via email to