[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: ascii-art-to-unicode.el (aa2u-replacement): Use cl-case in
From: |
Andreas Schwab |
Subject: |
[elpa] 01/01: ascii-art-to-unicode.el (aa2u-replacement): Use cl-case instead of case. |
Date: |
Sun, 11 May 2014 08:48:52 +0000 |
schwab pushed a commit to branch master
in repository elpa.
commit aaa1b6d59f6663502185df73c2b809ca1846b5a5
Author: Andreas Schwab <address@hidden>
Date: Sun May 11 10:33:13 2014 +0200
ascii-art-to-unicode.el (aa2u-replacement): Use cl-case instead of case.
---
.../ascii-art-to-unicode/ascii-art-to-unicode.el | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
b/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
index c79245c..a4cdf6d 100644
--- a/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
+++ b/packages/ascii-art-to-unicode/ascii-art-to-unicode.el
@@ -151,7 +151,7 @@ Their values are STRINGIFIER and COMPONENTS, respectively."
;; | +---|
(eq ?+ (char-after pos))
;; Require properly directional neighborliness.
- (memq (case name
+ (memq (cl-case name
((UP DOWN) 'VERTICAL)
((LEFT RIGHT) 'HORIZONTAL))
(get-text-property pos 'aa2u-components)))