Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Bind w3m-delete-buffer, w3m-fb-frame-parameter, w3m-list-buffers,

 w3m-next-buffer, and w3m-pop-up-frames when compiling.
  • Loading branch information...
commit e70a4e03d18c27d9d6514f3a324c427d45915876 1 parent 21f7d39
yamaoka authored
Showing with 16 additions and 9 deletions.
  1. +16 −9 w3m-fb.el
View
25 w3m-fb.el
@@ -1,6 +1,6 @@
;;; w3m-fb.el --- frame-local buffers support for Emacs-w3m
-;;; Copyright (C) 2005 Matthew P. Hodges
+;;; Copyright (C) 2005, 2006 Matthew P. Hodges
;; Author: Matthew P. Hodges <MPHodges@member.fsf.org>
;; Version: $Id$
@@ -34,14 +34,21 @@
(defconst w3m-fb-version "1.0.0"
"Version number of this package.")
-(defalias 'w3m-fb-frame-parameter
- (cond
- ((fboundp 'frame-parameter)
- 'frame-parameter)
- ((fboundp 'frame-property)
- 'frame-property)
- (t
- (error "No frame parameter/property function"))))
+(eval-when-compile
+ (autoload 'w3m-delete-buffer "w3m" nil t)
+ (autoload 'w3m-list-buffers "w3m-util")
+ (autoload 'w3m-next-buffer "w3m" nil t)
+ (defvar w3m-pop-up-frames))
+
+(eval-and-compile
+ (defalias 'w3m-fb-frame-parameter
+ (cond
+ ((fboundp 'frame-parameter)
+ 'frame-parameter)
+ ((fboundp 'frame-property)
+ 'frame-property)
+ (t
+ (error "No frame parameter/property function")))))
(defvar w3m-fb-delete-frame-functions
(cond
Please sign in to comment.
Something went wrong with that request. Please try again.