From 895ae71ee3359b2e987e1f0be646e4d15524df92 Mon Sep 17 00:00:00 2001 From: Joakim Verona Date: Sat, 6 Aug 2011 18:36:06 +0200 Subject: [PATCH] forget a reguire cl for the flet macro --- lisp/xwidget.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/xwidget.el b/lisp/xwidget.el index 52e5dd34d40..7ca7ad94423 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el @@ -56,7 +56,9 @@ see xwidget.c for types suitable for TYPE. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; webkit support (require 'browse-url) -(require 'image-mode) +(require 'image-mode);;for some image-mode alike functinoality +(require 'cl);;for flet + ;;;###autoload (defun xwidget-webkit-browse-url (url &optional new-session) "Ask xwidget-webkit to browse URL. @@ -90,11 +92,13 @@ defaults to the string looking like a url around the cursor position." (define-key map "g" 'xwidget-webkit-browse-url) (define-key map "a" 'xwidget-webkit-adjust-size-to-content) (define-key map "b" 'xwidget-webkit-back ) - (define-key map "r" 'xwidget-webkit-reload ) + (define-key map "r" 'xwidget-webkit-reload ) + (define-key map "t" (lambda () (interactive) (message "o")) ) (define-key map "\C-m" 'xwidget-webkit-insert-string) (define-key map [xwidget-event] 'xwidget-webkit-event-handler) ;;similar to image mode bindings + ;;TODO theres something wrong with the macro (define-key map (kbd "SPC") (xwidget-image-mode-navigation-adaptor 'image-scroll-up)) (define-key map (kbd "DEL") (xwidget-image-mode-navigation-adaptor 'image-scroll-down)) -- 2.11.4.GIT