[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] xwidget_mvp d32bedf 3/4: cl related changes
From: |
Joakim Verona |
Subject: |
[Emacs-diffs] xwidget_mvp d32bedf 3/4: cl related changes |
Date: |
Thu, 12 Feb 2015 23:26:00 +0000 |
branch: xwidget_mvp
commit d32bedfc52d8c615790703e9a7b481dfbcbf2f39
Author: Joakim Verona <address@hidden>
Commit: Joakim Verona <address@hidden>
cl related changes
---
lisp/xwidget.el | 5 ++---
1 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 33f9a18..ce6d939 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -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))