Mercurial > emacs

changeset 92086:23ee465a6963

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(top-level): No need to require thingatpt. (json-read-keyword): Use thing-at-point rather than word-at-point.
author Glenn Morris <rgm@gnu.org>
date Fri, 22 Feb 2008 03:56:25 +0000
parents ba71847b7f2e
children facc33e36f8b
files lisp/json.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/json.el	Fri Feb 22 03:54:52 2008 +0000
+++ b/lisp/json.el	Fri Feb 22 03:56:25 2008 +0000
@@ -53,7 +53,6 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
-(require 'thingatpt)
 
 ;; Compatibility code
 
@@ -200,14 +199,14 @@
             (signal 'json-unknown-keyword
                     (list (save-excursion
                             (backward-word 1)
-                            (word-at-point)))))
+                            (thing-at-point 'word)))))
           (json-advance))
         keyword)
   (unless (looking-at "\\(\\s-\\|[],}]\\|$\\)")
     (signal 'json-unknown-keyword
             (list (save-excursion
                     (backward-word 1)
-                    (word-at-point)))))
+                    (thing-at-point 'word)))))
   (cond ((string-equal keyword "true") t)
         ((string-equal keyword "false") json-false)
         ((string-equal keyword "null") json-null)))