(input-method-exit-on-first-char):

[gnu-emacs] / lisp / wid-browse.el

diff --git a/lisp/wid-browse.el b/lisp/wid-browse.el
index 984d802f75b2af3fd61aeba25b88e1ac83a8e04b..cf98e2b3764a332f92dc94dac557b4c87b660edc 100644 (file)
--- a/lisp/wid-browse.el
+++ b/lisp/wid-browse.el
@@ -4,9 +4,26 @@
 ;;
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Keywords: extensions
-;; Version: 1.90
+;; Version: 1.9914
 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
 
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
 ;;; Commentary:
 ;;
 ;; Widget browser.  See `widget.el'.
@@ -75,9 +92,9 @@ if that value is non-nil."
 (defun widget-browse-at (pos)
   "Browse the widget under point."
   (interactive "d")
-  (let* ((field (get-text-property pos 'field))
-        (button (get-text-property pos 'button))
-        (doc (get-text-property pos 'widget-doc))
+  (let* ((field (get-char-property pos 'field))
+        (button (get-char-property pos 'button))
+        (doc (get-char-property pos 'widget-doc))
         (text (cond (field "This is an editable text area.")
                     (button "This is an active area.")
                     (doc "This is documentation text.")
@@ -265,7 +282,7 @@ With arg, turn widget mode on if and only if arg is positive."
   (interactive "P")
   (cond ((null arg)
         (setq widget-minor-mode (not widget-minor-mode)))
-       ((<= 0 arg)
+       ((<= arg 0)
         (setq widget-minor-mode nil))
        (t
         (setq widget-minor-mode t)))