From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Lennart Borgman (gmail)" Newsgroups: gmane.emacs.help Subject: Re: Use tab key to indent both region AND line? Date: Sat, 21 Apr 2007 00:41:41 +0200 Message-ID: <462941A5.6070105@gmail.com> References: <1177071040.638066.76140@n76g2000hsh.googlegroups.com> <6dbd4d000704200545s1290bfcaw755d4df752ee976f@mail.gmail.com> <1177084896.286288.184040@e65g2000hsc.googlegroups.com> <4628F55B.2060005@gmail.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1177108913 31357 80.91.229.12 (20 Apr 2007 22:41:53 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 20 Apr 2007 22:41:53 +0000 (UTC) Cc: help-gnu-emacs@gnu.org, weber Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sat Apr 21 00:41:46 2007 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Hf1nV-0007WZ-Om for geh-help-gnu-emacs@m.gmane.org; Sat, 21 Apr 2007 00:41:46 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Hf1sc-0006BZ-3O for geh-help-gnu-emacs@m.gmane.org; Fri, 20 Apr 2007 18:47:02 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Hf1sN-0006BT-RW for help-gnu-emacs@gnu.org; Fri, 20 Apr 2007 18:46:47 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Hf1sM-0006BC-Fp for help-gnu-emacs@gnu.org; Fri, 20 Apr 2007 18:46:47 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Hf1sM-0006B8-5t for help-gnu-emacs@gnu.org; Fri, 20 Apr 2007 18:46:46 -0400 Original-Received: from ch-smtp02.sth.basefarm.net ([80.76.149.213]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Hf1nE-0008Rz-RP for help-gnu-emacs@gnu.org; Fri, 20 Apr 2007 18:41:29 -0400 Original-Received: from c83-254-145-24.bredband.comhem.se ([83.254.145.24]:62997 helo=[127.0.0.1]) by ch-smtp02.sth.basefarm.net with esmtp (Exim 4.63) (envelope-from ) id 1Hf1nC-0001UH-9E; Sat, 21 Apr 2007 00:41:27 +0200 User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.10) Gecko/20070221 Thunderbird/1.5.0.10 Mnenhy/0.7.5.666 In-Reply-To: <4628F55B.2060005@gmail.com> X-Antivirus: avast! (VPS 000735-0, 2007-04-20), Outbound message X-Antivirus-Status: Clean X-Scan-Result: No virus found in message 1Hf1nC-0001UH-9E. X-Scan-Signature: ch-smtp02.sth.basefarm.net 1Hf1nC-0001UH-9E 680f3cdeb58c85d2f6e605b68f456b6a X-detected-kernel: Linux 2.6? (barebone, rare!) X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:42935 Archived-At: Lennart Borgman (gmail) wrote: > weber wrote: > >> (defun indent-line-or-region () >> "indent line or region" >> (interactive) >> (if mark-active ;; there is a region selected >> (indent-region) >> (indent-according-to-mode))) ;; indent line >> >> Just bind it to tab. >> >> Hope i could help you, >> -weber > > > And here is something that can be used: > > ;; From an idea by weber > (defun indent-line-or-region () > "indent line or region" > (interactive) > (if mark-active ;; there is a region selected > (indent-region (region-beginning) (region-end)) > (indent-according-to-mode))) ;; indent line > > (define-minor-mode indent-line-mode > "Use TAB to indent line and region." > :global t > :keymap '(([tab] . indent-line-or-region))) > (when indent-line-mode (indent-line-mode 1)) And here is something that can actually be used ;-) After using the above for some minutes I realized that you do not want to indent in all buffers. Here is a heuristic solution to that problem: ;; From an idea by weber (defun indent-line-or-region () "indent line or region" (interactive) ;; Do a wild guess if we should indent or not ... (let* ((indent-line-mode) (t-bound (key-binding [?\t])) (do-indent) ) (if (not (save-match-data (string-match "indent" (symbol-name t-bound)))) (call-interactively t-bound t) (if mark-active ;; there is a region selected (indent-region (region-beginning) (region-end)) (indent-according-to-mode))))) ;; indent line (define-minor-mode indent-line-mode "Use TAB to indent line and region." :global t :keymap '(([?\t] . indent-line-or-region))) (when indent-line-mode (indent-line-mode 1))