* lpath.el (featurep): Don't fbind char-int.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 21e06e8..101f785 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-08-23 18:43:05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * lpath.el (featurep): Don't fbind char-int.
+
        * gnus-util.el (gnus-create-info-command): New function.
 
        * gnus-group.el (gnus-group-edit-group): Make C-c C-i go to the

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 81ba281..23a4059 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2343,15 +2343,15 @@ If ARG, insert string at point."
                    0))
       (string-to-number
        (if (zerop major)
-          (format "%s00%02d%02d"
-                  (if (member alpha '("(ding)" "d"))
-                      "4.99"
-                    (+ 5 (* 0.02
-                            (abs
-                             (- (mm-char-int (aref (downcase alpha) 0))
-                                (mm-char-int ?t))))
-                       -0.01))
-                  minor least)
+            (format "%s00%02d%02d"
+                    (if (member alpha '("(ding)" "d"))
+                        "4.99"
+                      (+ 5 (* 0.02
+                              (abs
+                               (- (mm-char-int (aref (downcase alpha) 0))
+                                  (mm-char-int ?t))))
+                         -0.01))
+                    minor least)
         (format "%d.%02d%02d" major minor least))))))
 
 (defun gnus-info-find-node (&optional nodename)

diff --git a/lisp/lpath.el b/lisp/lpath.el
index d57b08d..7d82d8f 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -90,7 +90,7 @@
                enable-multibyte-characters help-echo-owns-message))
   (maybe-fbind '(Info-goto-node
                 add-submenu annotation-glyph annotationp babel-as-string
-                button-press-event-p char-int characterp color-instance-name
+                button-press-event-p characterp color-instance-name
                 color-instance-rgb-components color-name delete-annotation
                 device-class device-on-window-system-p device-type
                 display-error event-glyph event-object event-point