Commits

Anonymous committed 4558d6b

edmacro.el: kbd removed
thing.el: fix boundary error in thing-symbol

  • Participants
  • Parent commits e1cab76

Comments (0)

Files changed (4)

+1998-05-15  SL Baur  <steve@altair.xemacs.org>
+
+	* thing.el (thing-symbol): Fix for boundary condition.
+	From Michael Ernst <mernst@cs.washington.edu>
+
+1998-05-14  Hrvoje Niksic  <hniksic@srce.hr>
+
+	* edmacro.el (kbd): Removed.
+
 1998-04-29  SL Baur  <steve@altair.xemacs.org>
 
 	* compile.el (compile-internal): Comment out (process-send-eof).
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.19
+VERSION = 1.20
 AUTHOR_VERSION =
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = xemacs-base
 ;; Author: Dave Gillespie <daveg@synaptics.com>
 ;;         Hrvoje Niksic <hniksic@srce.hr>  -- XEmacs rewrite
 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr>
-;; Version: 3.19
+;; Version: 3.20
 ;; Keywords: abbrev, internal
 
 ;; This file is part of XEmacs.
     (setq last-kbd-macro (edmacro-parse-keys (buffer-substring start end)))))
 
 ;;;###autoload
-(defmacro kbd (keys)
-  "Convert KEYS to the internal Emacs key representation."
-  (read-kbd-macro keys))
-
-;;;###autoload
 (defun format-kbd-macro (&optional macro verbose)
   "Return the keyboard macro MACRO as a human-readable string.
 This string is suitable for passing to `read-kbd-macro'.
 
 (defun thing-symbol (here)
   "Return start and end of symbol at HERE."
-  (cond ((memq (char-syntax (char-after here)) '(?_ ?w))
+  (cond ((or (memq (char-syntax (char-after here)) '(?_ ?w))
+             (and
+              (memq (char-syntax (char-before here)) '(?_ ?w))
+              ;; point is at the end of a symbol; look from inside the symbol
+              (setq here (1- here))))
          (setq *last-thing* 'symbol)
          (let ((end (scan-sexps here 1)))
            (if end