Mercurial > hg > xemacs-beta

comparison lisp/modes/tcl.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 28f395d8dc7a
children
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
376 ;; 376 ;;
377 ;; User variables. 377 ;; User variables.
378 ;; 378 ;;
379 379
380 (defgroup tcl nil 380 (defgroup tcl nil
381 "Tcl programming language" 381 "Tcl programming language."
382 :group 'languages) 382 :group 'languages)
383
383 384
384 (defcustom tcl-indent-level 4 385 (defcustom tcl-indent-level 4
385 "*Indentation of Tcl statements with respect to containing block." 386 "*Indentation of Tcl statements with respect to containing block."
386 :type 'integer 387 :type 'integer
387 :group 'tcl) 388 :group 'tcl)
411 4. Move forward to end of line, indenting if necessary. 412 4. Move forward to end of line, indenting if necessary.
412 5. Create an empty comment. 413 5. Create an empty comment.
413 6. Move backward to start of comment, indenting if necessary." 414 6. Move backward to start of comment, indenting if necessary."
414 :type '(choice (const :tag "on" t) 415 :type '(choice (const :tag "on" t)
415 (const :tag "off" nil) 416 (const :tag "off" nil)
416 (const :tag "The Works" other)) 417 (sexp :format "%t\n" :tag "The Works" other))
417 :group 'tcl) 418 :group 'tcl)
418 419
419 (defcustom tcl-use-hairy-comment-detector t 420 (defcustom tcl-use-hairy-comment-detector t
420 "*If not `nil', then the more complicated, but slower, comment 421 "*If not `nil', then the more complicated, but slower, comment
421 detecting function is used. This variable is only used in GNU Emacs 422 detecting function is used. This variable is only used in GNU Emacs