Fix some warnings

This commit is contained in:
Tom Willemse 2015-05-02 17:23:34 +02:00
parent 3947734df1
commit c5847bc02a

View file

@ -19,7 +19,12 @@
(require 'esh-proc) (require 'esh-proc)
(require 'fill-column-indicator) (require 'fill-column-indicator)
(require 'magit) (require 'magit)
(require 'yasnippet)) (require 'yasnippet)
(require 'ispell)
(require 'eww)
(require 'php-mode)
(require 'slime)
(require 'smex))
(load (concat user-emacs-directory "init2")) (load (concat user-emacs-directory "init2"))
@ -165,7 +170,7 @@ MODE1 is enabled and vice-versa."
"Send COMMAND through awesome-client to awesome." "Send COMMAND through awesome-client to awesome."
(shell-command (format "echo '%s' | awesome-client" command))) (shell-command (format "echo '%s' | awesome-client" command)))
(defun awesome-update-mailbox (gnus-group) (defun awesome-update-mailbox (_gnus-group)
"Update mailcount widget for GNUS-GROUP. "Update mailcount widget for GNUS-GROUP.
But only if it is a maildir inbox." But only if it is a maildir inbox."
@ -246,7 +251,7 @@ But only if it is a maildir inbox."
(defun oni:eshell-prompt () (defun oni:eshell-prompt ()
"Show a pretty shell prompt." "Show a pretty shell prompt."
(concat (if (not (looking-back "\n")) "\n") (concat (if (not (looking-back "\n" nil)) "\n")
(oni:shorten-dir (abbreviate-file-name (eshell/pwd))) (oni:shorten-dir (abbreviate-file-name (eshell/pwd)))
" > ")) " > "))
@ -276,7 +281,7 @@ But only if it is a maildir inbox."
(condition-case err (condition-case err
(call-interactively #'delete-char) (call-interactively #'delete-char)
(error (if (and (eq (car err) 'end-of-buffer) (error (if (and (eq (car err) 'end-of-buffer)
(looking-back eshell-prompt-regexp)) (looking-back eshell-prompt-regexp nil))
(kill-buffer) (kill-buffer)
(signal (car err) (cdr err)))))) (signal (car err) (cdr err))))))
@ -659,8 +664,8 @@ For `python-mode' I prefer `python-imenu-create-flat-index'."
(interactive) (interactive)
(if (outline-on-heading-p) (if (outline-on-heading-p)
(if (outline-invisible-p (line-end-position)) (if (outline-invisible-p (line-end-position))
(show-entry) (outline-show-entry)
(hide-entry)) (outline-hide-entry))
(call-interactively func)))))) (call-interactively func))))))
(defun oni:current-conkeror-tab (httpcon) (defun oni:current-conkeror-tab (httpcon)
@ -687,7 +692,7 @@ For `python-mode' I prefer `python-imenu-create-flat-index'."
(add-hook 'after-make-frame-functions (add-hook 'after-make-frame-functions
(lambda (frame) (lambda (frame)
(cl-letf (((symbol-function 'display-graphic-p) (cl-letf (((symbol-function 'display-graphic-p)
(lambda (&optional display) t))) (lambda (&optional _) t)))
(oni:set-theme frame)))) (oni:set-theme frame))))
(oni:eval-after-init (oni:set-theme nil))) (oni:eval-after-init (oni:set-theme nil)))
@ -798,7 +803,7 @@ If no direction is given, don't split."
(outline-hide-entry)))) (outline-hide-entry))))
(defun multiplication-table (number &optional upto) (defun multiplication-table (number &optional upto)
"" "Print a multiplication table of NUMBER up to UPTO."
(interactive "nMultiplication table for: \nP") (interactive "nMultiplication table for: \nP")
(let ((upto (or upto 10)) (let ((upto (or upto 10))
(buffer (get-buffer-create "*Multiplication*"))) (buffer (get-buffer-create "*Multiplication*")))
@ -1076,7 +1081,7 @@ from myaethon2.core.decorators import (
(evil-declare-key 'normal outline-minor-mode-map (kbd "TAB") #'oni:outline-toggle-entry)) (evil-declare-key 'normal outline-minor-mode-map (kbd "TAB") #'oni:outline-toggle-entry))
(stante-after eww (stante-after eww
(setq eww-download-path ; Don't go to ~/Downloads (setq eww-download-directory ; Don't go to ~/Downloads
"~/downloads/")) "~/downloads/"))
(stante-after files (stante-after files
@ -1191,7 +1196,6 @@ from myaethon2.core.decorators import (
(stante-after php-mode (stante-after php-mode
(setq-default php-mode-warn-if-mumamo-off nil) (setq-default php-mode-warn-if-mumamo-off nil)
(setq php-function-call-face 'font-lock-function-name-face)
(setq php-mode-force-pear t)) (setq php-mode-force-pear t))
(stante-after prodigy (stante-after prodigy
@ -1252,7 +1256,6 @@ from myaethon2.core.decorators import (
slime-default-lisp 'sbcl)) slime-default-lisp 'sbcl))
(stante-after smex (stante-after smex
(setq smex-key-advice-ignore-menu-bar t)
(setq smex-save-file "~/.emacs.d/smex-items")) (setq smex-save-file "~/.emacs.d/smex-items"))
(stante-after "startup" (stante-after "startup"
@ -1497,14 +1500,14 @@ from myaethon2.core.decorators import (
(evil-mode) (evil-mode)
(kill-local-variable 'mode-line-format) (kill-local-variable 'mode-line-format)
(when (string-equal system-name "drd") (when (string-equal (system-name) "drd")
(require 'colemak-evil)) (require 'colemak-evil))
(global-evil-surround-mode)) (global-evil-surround-mode))
(with-eval-after-load 'ruby (with-eval-after-load 'ruby
(global-rinari-mode)) (global-rinari-mode))
(when (equal system-name "drd") (when (equal (system-name) "drd")
(load "eap-autoloads")) (load "eap-autoloads"))
(auto-insert-mode) (auto-insert-mode)
@ -1518,7 +1521,7 @@ from myaethon2.core.decorators import (
(help-at-pt-set-timer) (help-at-pt-set-timer)
(windmove-default-keybindings) (windmove-default-keybindings)
(load system-name :noerror) (load (system-name) :noerror)
(setq magit-last-seen-setup-instructions "1.4.0") (setq magit-last-seen-setup-instructions "1.4.0")