Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix warnings at compilation.

  • Loading branch information...
commit 7d8197acae733ace39e17d4fd289227605bda9f1 1 parent 9d238e6
@thierryvolpiatto thierryvolpiatto authored
View
1  helm-adaptative.el
@@ -19,6 +19,7 @@
(require 'cl)
(require 'helm)
+(require 'helm-vars)
;; Internal
(defvar helm-c-adaptive-done nil
View
6 helm-apt.el
@@ -20,6 +20,12 @@
(eval-when-compile (require 'cl))
(require 'helm)
(require 'helm-utils)
+(require 'helm-external)
+
+(declare-function term-line-mode "term")
+(declare-function term-char-mode "term")
+(declare-function term-send-input "term")
+(declare-function term-send-eof "term")
(defvar helm-c-source-apt
'((name . "APT")
View
9 helm-bbdb.el
@@ -23,6 +23,15 @@
(defvar bbdb-records)
(defvar bbdb-buffer-name)
+(declare-function bbdb "ext:bbdb-com")
+(declare-function bbdb-current-record "ext:bbdb-com")
+(declare-function bbdb-redisplay-one-record "ext:bbdb-com")
+(declare-function bbdb-record-net "ext:bbdb-com" (string) t)
+(declare-function bbdb-current-record "ext:bbdb-com")
+(declare-function bbdb-dwim-net-address "ext:bbdb-com")
+(declare-function bbdb-records "ext:bbdb-com"
+ (&optional dont-check-disk already-in-db-buffer))
+
(defun helm-c-bbdb-candidates ()
"Return a list of all names in the bbdb database. The format
is \"Firstname Lastname\"."
View
4 helm-bookmark.el
@@ -17,8 +17,10 @@
;;; Code:
(eval-when-compile (require 'cl))
-(require 'helm)
(eval-when-compile (require 'bookmark))
+(require 'helm)
+(require 'helm-utils)
+
(defvar helm-c-bookmarks-face1 'helm-ff-directory)
(defvar helm-c-bookmarks-face2 'helm-ff-file)
View
2  helm-call-tree.el
@@ -22,6 +22,8 @@
(eval-when-compile (require 'cl))
(require 'helm)
+(declare-function simple-call-tree-analyze "ext:simple-call-tree.el" (&optional test))
+
;; Function is called by
(defvar helm-c-source-simple-call-tree-functions-callers
'((name . "Function is called by")
View
1  helm-command.el
@@ -19,6 +19,7 @@
(require 'cl)
(require 'helm)
+(require 'helm-mode)
(defvar helm-M-x-input-history nil)
View
54 helm-config.el
@@ -68,31 +68,6 @@
;;; Declare external functions
;;
;;
-(declare-function gnus-dired-attach "ext:gnus-dired.el" (files-to-attach))
-(declare-function image-dired-display-image "image-dired.el" (file &optional original-size))
-(declare-function image-dired-update-property "image-dired.el" (prop value))
-(declare-function woman-file-name-all-completions "woman.el" (topic))
-(declare-function Man-getpage-in-background "man.el" (topic))
-(declare-function simple-call-tree-analyze "ext:simple-call-tree.el" (&optional test))
-(declare-function yaoddmuse-update-pagename "ext:yaoddmuse.el" (&optional unforced))
-(declare-function yaoddmuse-get-library-list "ext:yaoddmuse.el" (&optional dirs string))
-(declare-function org-get-current-options "ext:org-exp.el")
-(declare-function emms-streams "ext:emms-streams")
-(declare-function emms-stream-delete-bookmark "ext:emms-streams")
-(declare-function emms-stream-add-bookmark "ext:emms-streams" (name url fd type))
-(declare-function emms-stream-save-bookmarks-file "ext:emms-streams")
-(declare-function emms-stream-quit "ext:emms-streams")
-(declare-function with-current-emms-playlist "ext:emms" (&rest body))
-(declare-function emms-playlist-tracks-in-region "ext:emms" (beg end))
-(declare-function emms-playlist-first "ext:emms")
-(declare-function emms-playlist-mode-play-smart "ext:emms-playlist-mode")
-(declare-function term-line-mode "term")
-(declare-function term-char-mode "term")
-(declare-function term-send-input "term")
-(declare-function term-send-eof "term")
-(declare-function Info-index-nodes "info" (&optional file))
-(declare-function Info-goto-node "info" (&optional fork))
-(declare-function Info-find-node "info.el" (filename nodename &optional no-going-back))
(declare-function elscreen-find-screen-by-buffer "ext:elscreen.el" (buffer &optional create))
(declare-function elscreen-find-file "ext:elscreen.el" (filename))
(declare-function elscreen-goto "ext:elscreen.el" (screen))
@@ -101,25 +76,6 @@
(declare-function semantic-go-to-tag "ext:tag-file.el" (tag) t)
(declare-function semantic-tag-type "ext:tag-file.el" (tag) t)
(declare-function semantic-tag-class "ext:tag-file.el" (tag) t)
-(declare-function bbdb "ext:bbdb-com")
-(declare-function bbdb-current-record "ext:bbdb-com")
-(declare-function bbdb-redisplay-one-record "ext:bbdb-com")
-(declare-function bbdb-record-net "ext:bbdb-com" (string) t)
-(declare-function bbdb-current-record "ext:bbdb-com")
-(declare-function bbdb-dwim-net-address "ext:bbdb-com")
-(declare-function bbdb-records "ext:bbdb-com"
- (&optional dont-check-disk already-in-db-buffer))
-(declare-function eshell-read-aliases-list "em-alias")
-(declare-function eshell-send-input "esh-mode" (&optional use-region queue-p no-newline))
-(declare-function eshell-bol "esh-mode")
-(declare-function eldoc-current-symbol "eldoc")
-(declare-function eldoc-get-fnsym-args-string "eldoc" (sym &optional index))
-(declare-function eldoc-get-var-docstring "eldoc" (sym))
-(declare-function eldoc-fnsym-in-current-sexp "eldoc")
-(declare-function find-library-name "find-func.el" (library))
-(declare-function secure-hash "ext:fns.c" (algorithm object &optional start end binary))
-(declare-function w32-shell-execute "ext:w32fns.c" (operation document &optional parameters show-flag))
-(declare-function undo-tree-restore-state-from-register "ext:undo-tree.el" (register))
;;; Helm-command-map
@@ -232,16 +188,6 @@
(define-key helm-map (kbd "M-m") 'helm-toggle-all-marks)
(define-key helm-map (kbd "C-w") 'helm-yank-text-at-point)
-
-;;; Specialized keymaps
-;;
-;;
-(defvar helm-esh-on-file-map
- (let ((map (make-sparse-keymap)))
- (set-keymap-parent map helm-map)
- (define-key map (kbd "C-c ?") 'helm-esh-help)
- map)
- "Keymap for `helm-find-files-eshell-command-on-file'.")
;;; Embeded documentation.
View
10 helm-emms.el
@@ -20,6 +20,16 @@
(eval-when-compile (require 'cl))
(require 'helm)
+(declare-function emms-streams "ext:emms-streams")
+(declare-function emms-stream-delete-bookmark "ext:emms-streams")
+(declare-function emms-stream-add-bookmark "ext:emms-streams" (name url fd type))
+(declare-function emms-stream-save-bookmarks-file "ext:emms-streams")
+(declare-function emms-stream-quit "ext:emms-streams")
+(declare-function with-current-emms-playlist "ext:emms" (&rest body))
+(declare-function emms-playlist-tracks-in-region "ext:emms" (beg end))
+(declare-function emms-playlist-first "ext:emms")
+(declare-function emms-playlist-mode-play-smart "ext:emms-playlist-mode")
+
(defun helm-emms-stream-edit-bookmark (elm)
"Change the information of current emms-stream bookmark from helm."
(declare (special emms-stream-list))
View
16 helm-eshell.el
@@ -15,12 +15,6 @@
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
-;;; Code:
-(eval-when-compile (require 'cl))
-(require 'helm)
-(require 'helm-elisp)
-(require 'helm-regexp)
-
;; Enable like this in .emacs:
;;
;; (add-hook 'eshell-mode-hook
@@ -28,6 +22,16 @@
;; (define-key eshell-mode-map [remap pcomplete] 'helm-esh-pcomplete)))
;;
+;;; Code:
+(eval-when-compile (require 'cl))
+(require 'helm)
+(require 'helm-elisp)
+(require 'helm-regexp)
+
+(declare-function eshell-read-aliases-list "em-alias")
+(declare-function eshell-send-input "esh-mode" (&optional use-region queue-p no-newline))
+(declare-function eshell-bol "esh-mode")
+
(defvar helm-eshell-history-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
View
5 helm-eval.el
@@ -19,6 +19,11 @@
(eval-when-compile (require 'cl))
(require 'helm)
+(declare-function eldoc-current-symbol "eldoc")
+(declare-function eldoc-get-fnsym-args-string "eldoc" (sym &optional index))
+(declare-function eldoc-get-var-docstring "eldoc" (sym))
+(declare-function eldoc-fnsym-in-current-sexp "eldoc")
+
;;; Evaluation Result
;;
;;
View
17 helm-files.el
@@ -29,6 +29,16 @@
(require 'tramp)
(require 'image-dired)
+(declare-function find-library-name "find-func.el" (library))
+(declare-function secure-hash "ext:fns.c" (algorithm object &optional start end binary))
+(declare-function w32-shell-execute "ext:w32fns.c" (operation document &optional parameters show-flag))
+(declare-function gnus-dired-attach "ext:gnus-dired.el" (files-to-attach))
+(declare-function image-dired-display-image "image-dired.el" (file &optional original-size))
+(declare-function image-dired-update-property "image-dired.el" (prop value))
+(declare-function eshell-read-aliases-list "em-alias")
+(declare-function eshell-send-input "esh-mode" (&optional use-region queue-p no-newline))
+(declare-function eshell-bol "esh-mode")
+
;;; Helm-find-files - The helm file browser.
;;
@@ -117,6 +127,13 @@
map)
"Generic Keymap for files.")
+(defvar helm-esh-on-file-map
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map helm-map)
+ (define-key map (kbd "C-c ?") 'helm-esh-help)
+ map)
+ "Keymap for `helm-find-files-eshell-command-on-file'.")
+
;; Internal.
(defvar helm-c-find-files-doc-header " (`C-l': Go to precedent level)"
"*The doc that is inserted in the Name header of a find-files or dired source.")
View
4 helm-gentoo.el
@@ -19,6 +19,10 @@
(eval-when-compile (require 'cl))
(require 'helm)
+(declare-function term-line-mode "term")
+(declare-function term-char-mode "term")
+(declare-function term-send-input "term")
+(declare-function term-send-eof "term")
(defvar helm-c-gentoo-use-flags nil)
(defvar helm-c-gentoo-buffer "*helm-gentoo-output*")
View
2  helm-grep.el
@@ -22,6 +22,8 @@
(require 'helm-files)
(require 'helm-regexp)
+(declare-function helm-elscreen-find-file "helm-elscreen" (file))
+
(defvar helm-c-grep-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map helm-map)
View
4 helm-info.el
@@ -23,6 +23,10 @@
(require 'helm-vars)
(require 'helm-net)
+(declare-function Info-index-nodes "info" (&optional file))
+(declare-function Info-goto-node "info" (&optional fork))
+(declare-function Info-find-node "info.el" (filename nodename &optional no-going-back))
+
;;; Info pages
(defvar helm-c-info-pages nil
"All info pages on system.
View
3  helm-man.el
@@ -20,6 +20,9 @@
(eval-when-compile (require 'cl))
(require 'helm)
+(declare-function woman-file-name-all-completions "woman.el" (topic))
+(declare-function Man-getpage-in-background "man.el" (topic))
+
(defvar helm-c-man-pages nil
"All man pages on system.
Will be calculated the first time you invoke helm with this
View
3  helm-org.el
@@ -19,6 +19,9 @@
(eval-when-compile (require 'cl))
(require 'helm)
(require 'helm-plugin)
+(require 'org)
+
+(declare-function org-get-current-options "ext:org-exp.el")
;;; Org headlines
;;
View
4 helm-plugin.el
@@ -20,6 +20,10 @@
(require 'cl)
(require 'helm)
+(declare-function Info-index-nodes "info" (&optional file))
+(declare-function Info-goto-node "info" (&optional fork))
+(declare-function Info-find-node "info.el" (filename nodename &optional no-going-back))
+
;;
;;
;; Plug-in: info-index
View
2  helm-ring.el
@@ -20,6 +20,8 @@
(eval-when-compile (require 'cl))
(require 'helm)
+(declare-function undo-tree-restore-state-from-register "ext:undo-tree.el" (register))
+
;;; Kill ring
;;
;;
View
3  helm-yaoddmuse.el
@@ -20,6 +20,9 @@
(eval-when-compile (require 'cl))
(require 'helm)
+(declare-function yaoddmuse-update-pagename "ext:yaoddmuse.el" (&optional unforced))
+(declare-function yaoddmuse-get-library-list "ext:yaoddmuse.el" (&optional dirs string))
+
;; Be sure to have yaoddmuse.el installed
;; install-elisp may be required if you want to install elisp file from here.
(defvar helm-yaoddmuse-use-cache-file nil)
Please sign in to comment.
Something went wrong with that request. Please try again.