From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kevin Ryde Newsgroups: gmane.emacs.bugs Subject: bug#8253: 23.2; variable-at-point on ' of 'foo Date: Tue, 15 Mar 2011 09:58:29 +1100 Message-ID: <877hc1e2cq.fsf@blah.blah> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1300144031 384 80.91.229.12 (14 Mar 2011 23:07:11 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 14 Mar 2011 23:07:11 +0000 (UTC) To: 8253@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Mar 15 00:07:06 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PzGqv-0000KM-Me for geb-bug-gnu-emacs@m.gmane.org; Tue, 15 Mar 2011 00:07:05 +0100 Original-Received: from localhost ([127.0.0.1]:33975 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PzGqv-0003nv-1B for geb-bug-gnu-emacs@m.gmane.org; Mon, 14 Mar 2011 19:07:05 -0400 Original-Received: from [140.186.70.92] (port=59289 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PzGqq-0003nm-5K for bug-gnu-emacs@gnu.org; Mon, 14 Mar 2011 19:07:00 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PzGqp-00034R-3E for bug-gnu-emacs@gnu.org; Mon, 14 Mar 2011 19:07:00 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:39814) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PzGqp-00034H-1r for bug-gnu-emacs@gnu.org; Mon, 14 Mar 2011 19:06:59 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1PzGj8-0005MP-Or; Mon, 14 Mar 2011 18:59:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Kevin Ryde Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 14 Mar 2011 22:59:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 8253 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.130014350320552 (code B ref -1); Mon, 14 Mar 2011 22:59:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 14 Mar 2011 22:58:23 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1PzGiU-0005LR-Pq for submit@debbugs.gnu.org; Mon, 14 Mar 2011 18:58:23 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1PzGiS-0005LD-4b for submit@debbugs.gnu.org; Mon, 14 Mar 2011 18:58:21 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PzGiL-0001ea-SY for submit@debbugs.gnu.org; Mon, 14 Mar 2011 18:58:15 -0400 Original-Received: from lists.gnu.org ([199.232.76.165]:50677) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PzGiL-0001eW-QB for submit@debbugs.gnu.org; Mon, 14 Mar 2011 18:58:13 -0400 Original-Received: from [140.186.70.92] (port=49272 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PzGiK-0007CV-Nt for bug-gnu-emacs@gnu.org; Mon, 14 Mar 2011 18:58:13 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PzGiJ-0001eH-NT for bug-gnu-emacs@gnu.org; Mon, 14 Mar 2011 18:58:12 -0400 Original-Received: from mailout1-4.pacific.net.au ([61.8.2.211]:56907 helo=mailout1.pacific.net.au) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PzGiJ-0001dx-6B for bug-gnu-emacs@gnu.org; Mon, 14 Mar 2011 18:58:11 -0400 Original-Received: from mailproxy1.pacific.net.au (mailproxy1.pacific.net.au [61.8.2.162]) by mailout1.pacific.net.au (Postfix) with ESMTP id 1BC395EB907 for ; Tue, 15 Mar 2011 09:57:59 +1100 (EST) Original-Received: from blah.blah (unknown [203.26.175.132]) by mailproxy1.pacific.net.au (Postfix) with ESMTP id 259288C03 for ; Tue, 15 Mar 2011 09:57:58 +1100 (EST) Original-Received: from gg by blah.blah with local (Exim 4.72) (envelope-from ) id 1PzGib-0002GZ-Hp for bug-gnu-emacs@gnu.org; Tue, 15 Mar 2011 09:58:29 +1100 User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.2 (gnu/linux) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Mon, 14 Mar 2011 18:59:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:45003 Archived-At: --=-=-= When point is on the ' of a 'foo quoted variable, M-x describe-variable doesn't offer that variable as a default, and `variable-at-point' doesn't return it. Eg. (set 'baud-rate 9600) ^---point here M-: (variable-at-point) => 0 where I hoped it would return `baud-rate', as it does if point is on say the "b". I strike this when using backward/forward sexp to move between args since that leaves point on the '. It'd be good if variable-at-point allowed/recognised that. In the code there's a (skip-chars-forward "'") which looks like it's supposed to do this, but it's after the bit going to the start of the word and seems to be defeated by (forward-sexp -1). Actually that ends up going to the previous sexp, so if you've got (list 'emacs-version 'baud-rate) ^---point here then it returns the preceding `emacs-version' instead of `baud-rate'. Perhaps the change below. bzr has still defeated me, or I would try a diff with it :-( 2011-03-14 Kevin Ryde * help-fns.el (variable-at-point): Skip forward across ' first, to allow point on the ' part of quoted 'emacs-version etc. Helps when moving by sexps which leaves point on the ' instead of the variable name as such. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=help-fns.el.variable-at-point.diff --- help-fns.el.~1.146.~ 2009-11-17 17:24:19.000000000 +1100 +++ help-fns.el 2011-03-15 09:48:49.000000000 +1100 @@ -527,11 +527,11 @@ (with-syntax-table emacs-lisp-mode-syntax-table (or (condition-case () (save-excursion + (skip-chars-forward "'") (or (not (zerop (skip-syntax-backward "_w"))) (eq (char-syntax (following-char)) ?w) (eq (char-syntax (following-char)) ?_) (forward-sexp -1)) - (skip-chars-forward "'") (let ((obj (read (current-buffer)))) (and (symbolp obj) (boundp obj) obj))) (error nil)) --=-=-= In GNU Emacs 23.2.1 (i486-pc-linux-gnu, GTK+ Version 2.20.0) of 2010-05-16 on raven, modified by Debian configured using `configure '--build' 'i486-linux-gnu' '--build' 'i486-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib' '--localstatedir=/var/lib' '--infodir=/usr/share/info' '--mandir=/usr/share/man' '--with-pop=yes' '--enable-locallisppath=/etc/emacs23:/etc/emacs:/usr/local/share/emacs/23.2/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/23.2/site-lisp:/usr/share/emacs/site-lisp:/usr/share/emacs/23.2/leim' '--with-x=yes' '--with-x-toolkit=gtk' '--with-toolkit-scroll-bars' 'build_alias=i486-linux-gnu' 'CFLAGS=-DDEBIAN -g -O2' 'LDFLAGS=-g' 'CPPFLAGS='' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: en_AU value of $XMODIFIERS: nil locale-coding-system: iso-latin-1-unix default enable-multibyte-characters: t --=-=-=--