Mercurial > hg > xemacs-beta

comparison lisp/lisp-mode.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 abe6d1db359e
children 223736d75acb
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
543 ;; Don't alter indentation of a ;;; comment line. 543 ;; Don't alter indentation of a ;;; comment line.
544 (goto-char (- (point-max) pos)) 544 (goto-char (- (point-max) pos))
545 (if (and (looking-at "\\s<") (not (looking-at "\\s<\\s<"))) 545 (if (and (looking-at "\\s<") (not (looking-at "\\s<\\s<")))
546 ;; Single-semicolon comment lines should be indented 546 ;; Single-semicolon comment lines should be indented
547 ;; as comment lines, not as code. 547 ;; as comment lines, not as code.
548 (progn (indent-for-comment) (forward-char -1)) 548 (progn (indent-for-comment) (backward-char 1))
549 (if (listp indent) (setq indent (car indent))) 549 (if (listp indent) (setq indent (car indent)))
550 (setq shift-amt (- indent (current-column))) 550 (setq shift-amt (- indent (current-column)))
551 (if (zerop shift-amt) 551 (if (zerop shift-amt)
552 nil 552 nil
553 (delete-region beg (point)) 553 (delete-region beg (point))