From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Dave Pearson Newsgroups: gmane.emacs.bugs Subject: `common-lisp-indent-function', `flet' and "def*" Date: Fri, 24 May 2002 14:02:49 +0100 Organization: (davep 'org) Sender: bug-gnu-emacs-admin@gnu.org Message-ID: <20020524140249.A25750@hagbard.davep.org> Reply-To: Dave Pearson NNTP-Posting-Host: localhost.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1022245561 29244 127.0.0.1 (24 May 2002 13:06:01 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 24 May 2002 13:06:01 +0000 (UTC) Return-path: Original-Received: from fencepost.gnu.org ([199.232.76.164]) by main.gmane.org with esmtp (Exim 3.33 #1 (Debian)) id 17BEld-0007bZ-00 for ; Fri, 24 May 2002 15:06:01 +0200 Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17BEmB-0006VL-00; Fri, 24 May 2002 09:06:35 -0400 Original-Received: from anchor-post-32.mail.demon.net ([194.217.242.90]) by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian)) id 17BEjC-0006Jh-00 for ; Fri, 24 May 2002 09:03:30 -0400 Original-Received: from hagbard.demon.co.uk ([158.152.34.118] helo=hagbard.davep.org) by anchor-post-32.mail.demon.net with esmtp (Exim 3.35 #1) id 17BEj1-000332-0W for bug-gnu-emacs@gnu.org; Fri, 24 May 2002 14:03:20 +0100 Original-Received: (from davep@localhost) by hagbard.davep.org (8.9.3/8.9.3) id OAA26436 for bug-gnu-emacs@gnu.org; Fri, 24 May 2002 14:02:50 +0100 Original-To: bug-gnu-emacs@gnu.org Content-Disposition: inline User-Agent: Mutt/1.2.5i X-URL: http://www.davep.org/ X-DDate: Prickle-Prickle, Day 71 of the season of Discord, Anno Mung 3168 Errors-To: bug-gnu-emacs-admin@gnu.org X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.0.9 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.bugs:1564 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:1564 In GNU Emacs 21.2.1 (i586-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of 2002-03-20 on hagbard 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: nil locale-coding-system: nil default-enable-multibyte-characters: nil Please describe exactly what actions triggered the bug and the precise symptoms of the bug: `common-lisp-indent-function' gets the indentation of the first line of a function wrong when defining a function via `flet' and where the name of that function begins with "def". To test this start a new "emacs -q", then, in the *scratch* buffer, evaluate: ,---- | (setq lisp-indent-function 'common-lisp-indent-function) `---- now enter and indent this code: ,---- | (flet ((is-defun-p () | nil))) `---- followed by: ,---- | (flet ((defunp () | nil)) `---- note how the indent of the second form differs from the indent of the first form. -- Dave Pearson http://www.davep.org/