Fbind ns-focus-frame for Emacs 21, 22, XEmacs 21.4, and SXEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e8db9b..e65c4b3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lpath.el: Fbind ns-focus-frame for Emacs 21, 22, XEmacs 21.4, and
+       SXEmacs.
+
 2008-07-16  Glenn Morris  <rgm@gnu.org>
 
        * gnus-util.el (ns-focus-frame): Declare for compiler.

diff --git a/lisp/lpath.el b/lisp/lpath.el
index bc814ce..9b8048d 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -20,9 +20,9 @@
     (maybe-fbind
      '(Info-index
        Info-index-next Info-menu bbdb-complete-name display-time-event-handler
-       epg-check-configuration find-coding-system frame-device w3-do-setup
-       w3-prepare-buffer w3-region w32-focus-frame w3m-detect-meta-charset
-       w3m-region)))
+       epg-check-configuration find-coding-system frame-device ns-focus-frame
+       w3-do-setup w3-prepare-buffer w3-region w32-focus-frame
+       w3m-detect-meta-charset w3m-region)))
 
   (when (= emacs-major-version 21)
     (defun split-line (&optional arg))
@@ -79,8 +79,9 @@
     (maybe-fbind
      '(custom-autoload
        display-graphic-p display-images-p display-visual-class
-       get-display-table put-display-table select-frame-set-input-focus
-       unicode-precedence-list w32-focus-frame x-focus-frame))
+       get-display-table ns-focus-frame put-display-table
+       select-frame-set-input-focus unicode-precedence-list w32-focus-frame
+       x-focus-frame))
     (maybe-bind
      '(default-file-name-coding-system)))