From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Giannandrea Castaldi Newsgroups: gmane.emacs.help Subject: Personalize indentation for a specific lisp funciton Date: Tue, 23 Mar 2004 17:38:51 +0100 Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Message-ID: NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1080060180 4241 80.91.224.253 (23 Mar 2004 16:43:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 23 Mar 2004 16:43:00 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Mar 23 17:42:47 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1B5ozG-0001ui-00 for ; Tue, 23 Mar 2004 17:42:46 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1B5oxQ-00074p-19 for geh-help-gnu-emacs@m.gmane.org; Tue, 23 Mar 2004 11:40:52 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.30) id 1B5owx-000744-JI for help-gnu-emacs@gnu.org; Tue, 23 Mar 2004 11:40:23 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.30) id 1B5owQ-0006vP-G9 for help-gnu-emacs@gnu.org; Tue, 23 Mar 2004 11:40:21 -0500 Original-Received: from [80.91.224.249] (helo=main.gmane.org) by monty-python.gnu.org with esmtp (Exim 4.30) id 1B5owP-0006uf-TQ for help-gnu-emacs@gnu.org; Tue, 23 Mar 2004 11:39:50 -0500 Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 1B5owF-0007gX-00 for ; Tue, 23 Mar 2004 17:39:43 +0100 Original-Received: from host-212-123-94-100.tiscali.it ([212.123.94.100]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 23 Mar 2004 17:39:39 +0100 Original-Received: from g.castal by host-212-123-94-100.tiscali.it with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 23 Mar 2004 17:39:39 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-To: help-gnu-emacs@gnu.org Original-Lines: 32 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: host-212-123-94-100.tiscali.it User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.5) Gecko/20031219 X-Accept-Language: en-us, en X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.4 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.help:17627 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:17627 Hi, I've defined a common lisp function,create-calculus, and I'd like to have a specific indentation instead of the default that is the following (defmethod eval-cell ((column integer) row) (let ((cell (aref *spreadsheet* (- row 1) (- column 1)))) (if (eq (aref cell 0) #\=) (let ((expr (remove #\= cell))) (funcall (create-calculus '+ (create-calculus '- (create-calculus '/ (create-calculus '* #'eval-operand)))) expr)) (parse-integer cell)))) I'd like something similar this: (defmethod eval-cell ((column integer) row) (let ((cell (aref *spreadsheet* (- row 1) (- column 1)))) (if (eq (aref cell 0) #\=) (let ((expr (remove #\= cell))) (funcall (create-calculus '+ (create-calculus '- (create-calculus '/ (create-calculus '* #'eval-operand)))) expr)) (parse-integer cell)))) Any suggestion? Thanks. Giannandrea