* [gentoo-commits] emacs r1516 - gentoo-syntax
@ 2010-02-14 21:42 Ulrich Mueller (ulm)
0 siblings, 0 replies; only message in thread
From: Ulrich Mueller (ulm) @ 2010-02-14 21:42 UTC (permalink / raw
To: gentoo-commits
Author: ulm
Date: 2010-02-14 21:42:49 +0000 (Sun, 14 Feb 2010)
New Revision: 1516
Modified:
gentoo-syntax/gentoo-syntax.el
Log:
Minor tweaks to ebuild-mode-arch-lessp.
Modified: gentoo-syntax/gentoo-syntax.el
===================================================================
--- gentoo-syntax/gentoo-syntax.el 2010-02-14 21:29:29 UTC (rev 1515)
+++ gentoo-syntax/gentoo-syntax.el 2010-02-14 21:42:49 UTC (rev 1516)
@@ -62,12 +62,10 @@
;; Predicate function for comparison of architecture keywords
;; (needed for variable definitions below)
(defun ebuild-mode-arch-lessp (a b)
- (let* ((aa (if (consp a) (car a) a))
- (bb (if (consp b) (car b) b))
- (as (split-string aa "-"))
- (bs (split-string bb "-")))
- (cond ((string-equal aa "*") t)
- ((string-equal bb "*") nil)
+ (let ((as (split-string (or (car-safe a) a) "-"))
+ (bs (split-string (or (car-safe b) b) "-")))
+ (cond ((equal as '("*")) t)
+ ((equal bs '("*")) nil)
;; two-part keywords: first compare the OS (after hyphen, if any),
;; then the arch (before hyphen)
((not (string-equal (or (cadr as) "") (or (cadr bs) "")))
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2010-02-14 21:42 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-02-14 21:42 [gentoo-commits] emacs r1516 - gentoo-syntax Ulrich Mueller (ulm)
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox