* lpath.el: Fbind ldap-search-entries.

* gnus-util.el (gnus-set-process-query-on-exit-flag): Use defalias.

* starttls.el (starttls-set-process-query-on-exit-flag): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce89030..858523e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2005-05-31  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * lpath.el: Fbind ldap-search-entries.
+
+       * gnus-util.el (gnus-set-process-query-on-exit-flag): Use defalias.
+
+       * starttls.el (starttls-set-process-query-on-exit-flag): Ditto.
+
 2005-05-31  Simon Josefsson  <jas@extundo.com>
 
        * smime.el (smime-replace-in-string): Define.

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 6643663..c7ad307 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1556,13 +1556,11 @@ empty directories from OLD-PATH."
   (ignore-errors
     (set-file-modes filename mode)))
 
-(defun gnus-set-process-query-on-exit-flag (process flag)
-  "Run `set-process-query-on-exit-flag' if it is available.
-Otherwise, run `process-kill-without-query'."
-  (let ((fn (if (fboundp 'set-process-query-on-exit-flag)
-               'set-process-query-on-exit-flag
-             'process-kill-without-query)))
-    (funcall fn process flag)))
+(if (fboundp 'set-process-query-on-exit-flag)
+    (defalias 'gnus-set-process-query-on-exit-flag
+      'set-process-query-on-exit-flag)
+  (defalias 'gnus-set-process-query-on-exit-flag
+    'process-kill-without-query))
 
 (provide 'gnus-util)
 

diff --git a/lisp/lpath.el b/lisp/lpath.el
index cbeb7a7..b9d7334 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -51,10 +51,10 @@
   (maybe-fbind '(bbdb-complete-name
                 delete-annotation delete-extent device-connection dfw-device
                 events-to-keys font-lock-set-defaults frame-device
-                get-char-table glyph-height glyph-width mail-aliases-setup
-                make-annotation make-event make-glyph make-network-process
-                map-extents message-xmas-redefine put-char-table
-                set-extent-property temp-directory
+                get-char-table glyph-height glyph-width ldap-search-entries
+                mail-aliases-setup make-annotation make-event make-glyph
+                make-network-process map-extents message-xmas-redefine
+                put-char-table set-extent-property temp-directory
                 valid-image-instantiator-format-p
                 w3-coding-system-for-mime-charset w3-do-setup
                 w3-prepare-buffer w3-region window-pixel-height

diff --git a/lisp/starttls.el b/lisp/starttls.el
index f0563d0..7faa3a9 100644 (file)
--- a/lisp/starttls.el
+++ b/lisp/starttls.el
@@ -236,13 +236,11 @@ handshake, or NIL on failure."
       (starttls-negotiate-gnutls process)
     (signal-process (process-id process) 'SIGALRM)))
 
-(defun starttls-set-process-query-on-exit-flag (process flag)
-  "Run `set-process-query-on-exit-flag' if it is available.
-Otherwise, run `process-kill-without-query'."
-  (let ((fn (if (fboundp 'set-process-query-on-exit-flag)
-               'set-process-query-on-exit-flag
-             'process-kill-without-query)))
-    (funcall fn process flag)))
+(if (fboundp 'set-process-query-on-exit-flag)
+    (defalias 'starttls-set-process-query-on-exit-flag
+      'set-process-query-on-exit-flag)
+  (defalias 'starttls-set-process-query-on-exit-flag
+    'process-kill-without-query))
 
 (defun starttls-open-stream-gnutls (name buffer host service)
   (message "Opening STARTTLS connection to `%s'..." host)