[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 15/287: Use strinp consp and vectorp
From: |
Matthew Fidler |
Subject: |
[elpa] 15/287: Use strinp consp and vectorp |
Date: |
Wed, 02 Jul 2014 14:44:12 +0000 |
mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.
commit 363cd9831a93018a25423fbe384a27de0243a999
Author: Matthew L. Fidler <address@hidden>
Date: Fri May 23 22:28:10 2014 +0800
Use strinp consp and vectorp
---
ergoemacs-shortcuts.el | 11 +++++++----
1 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/ergoemacs-shortcuts.el b/ergoemacs-shortcuts.el
index 12b7227..96c4d5d 100644
--- a/ergoemacs-shortcuts.el
+++ b/ergoemacs-shortcuts.el
@@ -49,7 +49,10 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Code:
-(require 'guide-key nil t)
+;; (require 'guide-key nil t)
+
+(unless (fboundp 'ergoemacs-pretty-key)
+ (require 'ergoemacs-translate))
(defmacro ergoemacs-with-ergoemacs (&rest body)
"With basic `ergoemacs-mode' mode keys.
@@ -173,11 +176,11 @@ This sequence is compatible with `listify-key-sequence'."
(let (input)
(cond
((not key)) ;; Not specified.
- ((eq (type-of key) 'vector) ;; Actual key sequence
+ ((vectorp key) ;; Actual key sequence
(setq input (listify-key-sequence key)))
- ((eq (type-of key) 'cons) ;; Listified key sequence
+ ((consp key) ;; Listified key sequence
(setq input key))
- ((eq (type-of key) 'string) ;; Kbd code
+ ((stringp key) ;; Kbd code
(setq input (listify-key-sequence (read-kbd-macro key t)))))
input))
- [elpa] 05/287: Fix diffs of patch., (continued)
- [elpa] 05/287: Fix diffs of patch., Matthew Fidler, 2014/07/02
- [elpa] 03/287: Fix some of Stephan's patches., Matthew Fidler, 2014/07/02
- [elpa] 07/287: Gitignore change., Matthew Fidler, 2014/07/02
- [elpa] 08/287: Move ergoemacs-advices, Matthew Fidler, 2014/07/02
- [elpa] 11/287: No longer wrap in unwind-protect, Matthew Fidler, 2014/07/02
- [elpa] 09/287: Took out unknown signatory advice :(. Cleaned up advices., Matthew Fidler, 2014/07/02
- [elpa] 10/287: Took out usless argument to ergoemacs-global-set-key-after, Matthew Fidler, 2014/07/02
- [elpa] 13/287: Activate advices in definitions., Matthew Fidler, 2014/07/02
- [elpa] 14/287: Fix `ergoemacs-populate-pre-command-hook', Matthew Fidler, 2014/07/02
- [elpa] 12/287: no-ergoemacs-advice -> ergoemacs-ignore-advice, Matthew Fidler, 2014/07/02
- [elpa] 15/287: Use strinp consp and vectorp,
Matthew Fidler <=
- [elpa] 18/287: Load ergoemacs-test for clean ergoemacs-mode load., Matthew Fidler, 2014/07/02
- [elpa] 06/287: Don't use symbol-value, Matthew Fidler, 2014/07/02
- [elpa] 16/287: ergoemacs--key-message, Matthew Fidler, 2014/07/02
- [elpa] 17/287: fix some let bindings., Matthew Fidler, 2014/07/02
- [elpa] 20/287: Add requires for byte-compile, Matthew Fidler, 2014/07/02
- [elpa] 21/287: Remove unused ergoemacs-define-key, Matthew Fidler, 2014/07/02
- [elpa] 22/287: Some cleanups for ergoemacs-setup-translation, Matthew Fidler, 2014/07/02
- [elpa] 19/287: Added `ergoemacs-read-key--echo-command`, Matthew Fidler, 2014/07/02
- [elpa] 24/287: Revert ergoemacs-translate, Matthew Fidler, 2014/07/02
- [elpa] 26/287: Fix ergoemacs-extras Issue #225., Matthew Fidler, 2014/07/02