Mercurial > hg > xemacs-beta

comparison lisp/indent.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children a634e3b7acc8
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
468 (if (and (eq (char-before (point)) ?\ ) 468 (if (and (eq (char-before (point)) ?\ )
469 (eq (char-after (point)) ?\t)) 469 (eq (char-after (point)) ?\t))
470 (let ((tabend (* (/ (current-column) tab-width) tab-width))) 470 (let ((tabend (* (/ (current-column) tab-width) tab-width)))
471 (while (and (> (current-column) tabend) 471 (while (and (> (current-column) tabend)
472 (eq (char-before (point)) ?\ )) 472 (eq (char-before (point)) ?\ ))
473 (forward-char -1)) 473 (backward-char 1))
474 (delete-region (point) before)))))))) 474 (delete-region (point) before))))))))
475 475
476 ;(define-key global-map "\t" 'indent-for-tab-command) 476 ;(define-key global-map "\t" 'indent-for-tab-command)
477 ;(define-key esc-map "\034" 'indent-region) 477 ;(define-key esc-map "\034" 'indent-region)
478 ;(define-key ctl-x-map "\t" 'indent-rigidly) 478 ;(define-key ctl-x-map "\t" 'indent-rigidly)