Mercurial > hg > xemacs-beta

comparison lisp/hm--html-menus/hm--html-configuration.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 9f59509498e1
children 6075d714658b
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
1 ;;; hm--html-configuration.el - Configurationfile for the html-mode 1 ;;; hm--html-configuration.el - Configurationfile for the html-mode
2 ;;; 2 ;;;
3 ;;; $Id: hm--html-configuration.el,v 1.5 1997/03/28 02:28:41 steve Exp $ 3 ;;; $Id: hm--html-configuration.el,v 1.6 1997/05/29 23:49:42 steve Exp $
4 ;;; 4 ;;;
5 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel 5 ;;; Copyright (C) 1993 - 1997 Heiko Muenkel
6 ;;; email: muenkel@tnt.uni-hannover.de 6 ;;; email: muenkel@tnt.uni-hannover.de
7 ;;; 7 ;;;
8 ;;; This program is free software; you can redistribute it and/or modify 8 ;;; This program is free software; you can redistribute it and/or modify
40 ;;; 40 ;;;
41 41
42 ;(require 'adapt) 42 ;(require 'adapt)
43 43
44 44
45
45 ;;; The User config file (an proposal of Manoj Srivastava) 46 ;;; The User config file (an proposal of Manoj Srivastava)
46 (defvar hm--html-user-config-file nil 47 (defvar hm--html-user-config-file nil
47 "*The location of the users config file. 48 "*The location of the users config file.
48 This variable will only be used, if no environment variable 49 This variable will only be used, if no environment variable
49 \"HTML_USER_CONFIG_FILE\" is set. 50 \"HTML_USER_CONFIG_FILE\" is set.
361 ATTENTION: This variable is used as regular expression ! 362 ATTENTION: This variable is used as regular expression !
362 It can be set to a string or to a list of strings.") 363 It can be set to a string or to a list of strings.")
363 364
364 365
365 ;;; For insertation of created and changed comments and automatic 366 ;;; For insertation of created and changed comments and automatic
366 ;;; date update in the title line 367 ;;; date update in the title line and a visible modification date
367 368
368 (defvar hm--html-automatic-new-date t 369 (defvar hm--html-automatic-create-title-date t
370 "*t => A date string will be inserted in the title line.
371 This will be updated each time before file saving, if
372 `hm--html-automatic-update-title-date' is also set to t.")
373
374 (defvar hm--html-automatic-update-title-date t
369 "*t => The date in the title line will be updated before filesaving. 375 "*t => The date in the title line will be updated before filesaving.
370 nil => No automatic update of the date.") 376 nil => No automatic update of the date.")
377
378 (define-obsolete-variable-alias 'hm--html-automatic-new-date
379 'hm--html-automatic-update-title-date)
371 380
372 (defvar hm--html-automatic-changed-comment t 381 (defvar hm--html-automatic-changed-comment t
373 "*t => A \"changed comment\" line will be added before filesaving. 382 "*t => A \"changed comment\" line will be added before filesaving.
374 nil => No automatic insertation of a \"changed comment\" line.") 383 nil => No automatic insertation of a \"changed comment\" line.")
375 384
385 (defvar hm--html-changed-comment-prefix "Changed by: "
386 "*The prefix text of the \"changed comment\" lines.")
387
388 (defvar hm--html-created-comment-prefix "Created by: "
389 "*The prefix text of the \"created comment\" lines.")
390
391 (defvar hm--html-comment-infix nil
392 "*The infix (second part) of the \"changed/created comment\" lines.
393 By default, if this variable is nil, the username is used.
394 Then the infix looks like \"Heiko Münkel, \".
395 Set it to an empty string, if you don't want to have your name
396 in the comments.")
397
376 (defvar hm--html-automatic-created-comment t 398 (defvar hm--html-automatic-created-comment t
377 "*t => A \"created comment\" line will be added. 399 "*t => A \"created comment\" line will be added.
378 nil => No automatic insertation of a \"created comment\" line.") 400 nil => No automatic insertation of a \"created comment\" line.")
401
402 (defvar hm--html-automatic-create-modified-line nil
403 "*t => Inserts a visible \"modified\" line with the current date.
404 Visible means, that it is not a HTML comment.")
405
406 (defvar hm--html-automatic-update-modified-line nil
407 "*t => Updates a visible \"modified\" line with the current date.
408 Visible means, that it is not a HTML comment.")
409
410 (defvar hm--html-modified-prefix "Modified: "
411 "*Prefix of the last modified entry.")
412
413 (defvar hm--html-modified-start-tag "<EM>"
414 "*Start tag of the modified line.
415 If you change this, you'll need to change also
416 `hm--html-modified-end-tag'.")
417
418 (defvar hm--html-modified-end-tag "</EM>"
419 "*End tag of the modified line.
420 If you change this, you'll need to change also
421 `hm--html-modified-start-tag'.")
422
423 (defvar hm--html-modified-insert-before "</body>"
424 "Insert modified line before this string.
425 The search will be done from the end to the beginning.")
379 426
380 427
381 ;;; Keybindings: 428 ;;; Keybindings:
382 429
383 (defvar hm--html-bind-latin-1-char-entities t 430 (defvar hm--html-bind-latin-1-char-entities t