Mercurial > emacs

diff lisp/emacs-lisp/lisp-mode.el @ 105664:6a6fcf3e8e4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* minibuffer.el (read-file-name): Check for repeat before putting a default argument in file-name-history (Bug#4657). * emacs-lisp/lisp-mode.el (preceding-sexp): Recognize hash table read syntax (Bug#4737). * textmodes/sgml-mode.el (sgml-delete-tag): Use sgml-looking-back-at.
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 18 Oct 2009 22:25:36 +0000
parents f2e56d1eff32
children b0a732611398
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el	Sun Oct 18 19:47:38 2009 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Sun Oct 18 22:25:36 2009 +0000
@@ -673,6 +673,11 @@
 	  (when (eq (preceding-char) ??)
 	    (forward-char -1)))
 
+	;; Skip over hash table read syntax.
+	(and (> (point) (1+ (point-min)))
+	     (looking-back "#s" (- (point) 2))
+	     (forward-char -2))
+
 	;; Skip over `#N='s.
 	(when (eq (preceding-char) ?=)
 	  (let (labeled-p)