Mercurial > emacs

comparison lisp/newcomment.el @ 32307:c3058f7483c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comment-indent-default): Autoload.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 08 Oct 2000 19:07:41 +0000
parents 964f10494360
children 4d15850856e4
comparison
equal deleted inserted replaced
32306:86a849ccfae1 32307:c3058f7483c4
4 4
5 ;; Author: code extracted from Emacs-20's simple.el 5 ;; Author: code extracted from Emacs-20's simple.el
6 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> 6 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
7 ;; Keywords: comment uncomment 7 ;; Keywords: comment uncomment
8 ;; Version: $Name: $ 8 ;; Version: $Name: $
9 ;; Revision: $Id: newcomment.el,v 1.20 2000/09/29 19:11:42 monnier Exp $ 9 ;; Revision: $Id: newcomment.el,v 1.21 2000/10/05 22:43:22 monnier Exp $
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
394 394
395 ;;;; 395 ;;;;
396 ;;;; Commands 396 ;;;; Commands
397 ;;;; 397 ;;;;
398 398
399 ;;;###autoload
399 (defun comment-indent-default () 400 (defun comment-indent-default ()
400 "Default for `comment-indent-function'." 401 "Default for `comment-indent-function'."
401 (if (looking-at "\\s<\\s<\\s<") 0 402 (if (looking-at "\\s<\\s<\\s<") 0
402 (when (or (/= (current-column) (current-indentation)) 403 (when (or (/= (current-column) (current-indentation))
403 (and (> comment-add 0) (looking-at "\\s<\\S<"))) 404 (and (> comment-add 0) (looking-at "\\s<\\S<")))