cl related changes

This commit is contained in:
Joakim Verona 2015-02-12 23:58:20 +01:00
parent 63fbe83962
commit d32bedfc52

View file

@ -30,7 +30,7 @@
;;; Code:
(eval-when-compile (require 'cl))
(require 'cl-lib)
(require 'reporter)
(require 'bookmark)
@ -70,7 +70,6 @@ Optional argument ARGS usage depends on the xwidget."
;;; webkit support
(require 'browse-url)
(require 'image-mode);;for some image-mode alike functionality
(require 'cl-macs);;for flet
;;;###autoload
(defun xwidget-webkit-browse-url (url &optional new-session)
@ -447,7 +446,7 @@ Argument H height."
(defun xwidget-webkit-fit-width ()
"Adjust width of webkit to window width."
(interactive)
(xwidget-webkit-adjust-size (- (caddr (window-inside-pixel-edges))
(xwidget-webkit-adjust-size (- (nth 2 (window-inside-pixel-edges))
(car (window-inside-pixel-edges)))
1000))