Skip to content

Commit

Permalink
remove useless checks
Browse files Browse the repository at this point in the history
if it's an object of another class, we lose anyway
  • Loading branch information
sigma committed Feb 27, 2013
1 parent b95d2c7 commit 9252c7d
Showing 1 changed file with 3 additions and 10 deletions.
13 changes: 3 additions & 10 deletions gh-issues.el
Expand Up @@ -285,24 +285,17 @@
;;; helpers ;;; helpers


(defun gh-issues--issue-id (issue-or-issue-id) (defun gh-issues--issue-id (issue-or-issue-id)
(if (and (eieio-object-p issue-or-issue-id) (if (eieio-object-p issue-or-issue-id)
(eq (class-of issue-or-issue-id)
gh-issues-issue))
(oref issue-or-issue-id id) (oref issue-or-issue-id id)
issue-or-issue-id)) issue-or-issue-id))


(defun gh-issues--milestone-id (milestone-or-milestone-id) (defun gh-issues--milestone-id (milestone-or-milestone-id)
(if (and (eieio-object-p milestone-or-milestone-id) (if (eieio-object-p milestone-or-milestone-id)
(eq (class-of milestone-or-milestone-id)
gh-issues-milestone))
(oref milestone-or-milestone-id id) (oref milestone-or-milestone-id id)
milestone-or-milestone-id)) milestone-or-milestone-id))


(defun gh-issues--label-name (label-or-label-name) (defun gh-issues--label-name (label-or-label-name)
(if (and (if (eieio-object-p label-or-label-name)
(eieio-object-p label-or-label-name)
(eq (class-of label-or-label-name)
gh-issues-label))
(oref label-or-label-name name) (oref label-or-label-name name)
label-or-label-name)) label-or-label-name))


Expand Down

0 comments on commit 9252c7d

Please sign in to comment.