From: Chong Yidong <cyd@stupidchicken.com>
To: Aidan Kehoe <kehoea@parhasard.net>
Cc: 4737@emacsbugs.donarmstrong.com
Subject: bug#4737: 23.1.50; C-j in *scratch* after a hash table constant errors with void-function
Date: Sat, 17 Oct 2009 23:43:46 -0400 [thread overview]
Message-ID: <87y6n98iz1.fsf@stupidchicken.com> (raw)
> In *scratch*:
>
> (progn
> (setq print-length nil)
> (make-hash-table))
> => #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ())
>
> #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data
> ())
> =>
> Debugger entered--Lisp error: (void-function hash-table)
> (hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data nil)
> eval((hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data nil))
> eval-last-sexp-1(t)
> eval-last-sexp(t)
> eval-print-last-sexp()
> call-interactively(eval-print-last-sexp nil nil)
> However, this succeeds:
> (car (list
> #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ())))
> => #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8 data ())
> XEmacs handles the problem in #'forward-sexp
I think it's safer to handle it in preceding-sexp. Could you test the
patch below?
*** emacs/lisp/emacs-lisp/lisp-mode.el.~1.247.~ 2009-09-27 18:51:01.000000000 -0400
--- emacs/lisp/emacs-lisp/lisp-mode.el 2009-10-17 23:41:53.000000000 -0400
***************
*** 673,678 ****
--- 673,682 ----
(when (eq (preceding-char) ??)
(forward-char -1)))
+ ;; Skip over hash table read syntax
+ (when (looking-back "#s")
+ (forward-char -2))
+
;; Skip over `#N='s.
(when (eq (preceding-char) ?=)
(let (labeled-p)
next reply other threads:[~2009-10-18 3:43 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-10-18 3:43 Chong Yidong [this message]
2009-10-18 14:43 ` bug#4737: 23.1.50; C-j in *scratch* after a hash table constant errors with void-function Stefan Monnier
2009-10-18 15:34 ` martin rudalics
2009-10-19 2:06 ` Stefan Monnier
-- strict thread matches above, loose matches on Subject: below --
2009-10-16 14:40 Aidan Kehoe
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87y6n98iz1.fsf@stupidchicken.com \
--to=cyd@stupidchicken.com \
--cc=4737@emacsbugs.donarmstrong.com \
--cc=kehoea@parhasard.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.