Permalink
Browse files

Suppress byte-compile warnings

  • Loading branch information...
1 parent f9fe4c6 commit b787c7f4ed098fae7ffa6e41a258ea45b186847e Tomohiro Matsuyama committed Sep 4, 2012
Showing with 13 additions and 10 deletions.
  1. +10 −9 auto-complete-config.el
  2. +3 −1 auto-complete.el
View
@@ -175,21 +175,22 @@
(defun ac-semantic-candidates (prefix)
(with-no-warnings
(delete "" ; semantic sometimes returns an empty string
- (mapcar '(lambda (elem)
- (cons (semantic-tag-name elem)
- (semantic-tag-clone elem)))
+ (mapcar (lambda (elem)
+ (cons (semantic-tag-name elem)
+ (semantic-tag-clone elem)))
(ignore-errors
(or (semantic-analyze-possible-completions
(semantic-analyze-current-context))
(senator-find-tag-for-completion prefix)))))))
(defun ac-semantic-doc (symbol)
- (let* ((proto (semantic-format-tag-summarize-with-file symbol nil t))
- (doc (semantic-documentation-for-tag symbol))
- (res proto))
- (when doc
- (setq res (concat res "\n\n" doc)))
- res))
+ (with-no-warnings
+ (let* ((proto (semantic-format-tag-summarize-with-file symbol nil t))
+ (doc (semantic-documentation-for-tag symbol))
+ (res proto))
+ (when doc
+ (setq res (concat res "\n\n" doc)))
+ res)))
(ac-define-source semantic
'((available . (or (require 'semantic-ia nil t)
View
@@ -1306,7 +1306,9 @@ that have been made before in this function."
(interactive)
;; TODO don't use FORCE
(when (and (or force
- (called-interactively-p)
+ (with-no-warnings
+ ;; called-interactively-p can take no args
+ (called-interactively-p))
;; ac-isearch'ing
(null this-command))
(ac-menu-live-p)

0 comments on commit b787c7f

Please sign in to comment.