null+****@clear*****
null+****@clear*****
Fri Jun 15 04:47:34 JST 2012
yuta yamada 2012-06-15 04:47:34 +0900 (Fri, 15 Jun 2012)
New Revision: 70822ee42b7444973fbb203f05c9d93e62a672cd
Log:
Delete unnecessary the or operators
Modified files:
logalimacs.el
Modified: logalimacs.el (+6 -6)
===================================================================
--- logalimacs.el 2012-06-15 04:37:49 +0900 (a8aea0f)
+++ logalimacs.el 2012-06-15 04:47:34 +0900 (bf22c02)
@@ -188,13 +188,13 @@
(:lookup
(loga-word-cache (cons arg (loga-to-shell cmd (concat task " " word))))
(cdar loga-word-cache))
- ((or :add :update)
+ ((:add :update)
(message (loga-to-shell cmd (concat task " " arg))))
(:show
(loga-make-buffer (loga-to-shell cmd task)))
- ((or :config :delete :help :import :new)
+ ((:config :delete :help :import :new)
(loga-make-buffer (loga-to-shell cmd (concat task " " (loga-input)))))
- ((or :list :register :unregister :version)
+ ((:list :register :unregister :version)
(minibuffer-message (loga-to-shell cmd task))))))
(defun loga-lookup-attach-option (search-word)
@@ -343,7 +343,7 @@
(defun loga-query (&optional message)
(let* ((input (read-string (or message "types here:"))))
(case loga-current-command
- ((or :add :update) (concat "\"" input "\""))
+ ((:add :update) (concat "\"" input "\""))
(t input))))
(defun loga-input ()
@@ -351,8 +351,8 @@
(task loga-current-command)
(messages (concat query ": ")))
(case task
- ((or :add :update :config :delete :help :import :new
- :list :register :unregister)
+ ((:add :update :config :delete :help :import :new
+ :list :register :unregister)
(loga-make-buffer (loga-to-shell "\\loga help" query))))
(case task
(:add (setq messages '("source: " "target: " "note(optional): ")))