CVS update by didierv packages/xemacs-packages/hm--html-menus,
internal-drag-and-drop.el ...
xemacs-cvs at xemacs.org
xemacs-cvs at xemacs.org
Tue Sep 4 05:02:55 EDT 2007
User: didierv
Date: 07/09/04 11:02:55
Modified: packages/xemacs-packages/hm--html-menus ChangeLog
internal-drag-and-drop.el hm--html-configuration.el
Log:
Misuse of the list widget type
Revision Changes Path
6.44 +8 -2 XEmacs/packages/xemacs-packages/hm--html-menus/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/hm--html-menus/ChangeLog,v
retrieving revision 6.43
retrieving revision 6.44
diff -u -p -r6.43 -r6.44
--- ChangeLog 2003/10/31 16:54:01 6.43
+++ ChangeLog 2007/09/04 09:02:53 6.44
@@ -1,3 +1,9 @@
+2007-09-04 Didier Verna <didier at xemacs.org>
+
+ * internal-drag-and-drop.el (idd-actions): Fix misuse of the list
+ widget type.
+ * hm--html-configuration.el (hm--html-idd-actions): Ditto.
+
2003-10-31 Norbert Koch <viteno at xemacs.org>
* Makefile (VERSION): XEmacs package 1.23 released.
@@ -84,7 +90,7 @@
1999-07-22 Jan Vroonhof <vroonhof at math.ethz.ch>
- * hm--html-menu.el: Support for psgml using get-popup-menu-response.
+ * hm--html-menu.el: Support for psgml using get-popup-menu-response.
1999-02-05 SL Baur <steve at xemacs.org>
@@ -107,7 +113,7 @@
* Update the package to hm--html-menus 5.9.
Create the subdirectories etc/template and
etc/idd.
-
+
1998-01-25 SL Baur <steve at altair.xemacs.org>
6.23 +51 -51 XEmacs/packages/xemacs-packages/hm--html-menus/internal-drag-and-drop.el
Index: internal-drag-and-drop.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/hm--html-menus/internal-drag-and-drop.el,v
retrieving revision 6.22
retrieving revision 6.23
diff -u -p -r6.22 -r6.23
--- internal-drag-and-drop.el 2000/10/06 08:46:00 6.22
+++ internal-drag-and-drop.el 2007/09/04 09:02:53 6.23
@@ -31,8 +31,8 @@
;; Description:
;; This package provides functions to define and call internal
-;; drag and drop actions in the emacs. One could start such an
-;; action by clicking with the mouse in the source buffer and
+;; drag and drop actions in the emacs. One could start such an
+;; action by clicking with the mouse in the source buffer and
;; then in the destination buffer. The action could depend on
;; the points where you've clicked with the mouse, on the state
;; of the region, the point, the mark and any other properties
@@ -41,7 +41,7 @@
;; variable. The following is an example for the hm--html-mode:
;; (defvar hm--html-idd-actions
;; '((nil (((idd-if-major-mode-p . dired-mode)
-;; (idd-if-dired-file-on-line-p
+;; (idd-if-dired-file-on-line-p
;; . ".*\\.\\(gif\\)\\|\\(jpq\\)"))
;; hm--html-idd-add-include-image-from-dired-line)
;; (((idd-if-major-mode-p . dired-mode)
@@ -60,14 +60,14 @@
;; Look at the variable `idd-actions' for further descriptions.
-;; Installation:
+;; Installation:
;; Put this file in one of your load path directories.
;; Put the following in your .emacs:
;; (autoload 'idd-mouse-drag-and-drop "internal-drag-and-drop"
;; "Performs a drag and drop action.
-;; At first you must click on the source and
+;; At first you must click on the source and
;; after that on the destination."
;; t)
@@ -95,8 +95,8 @@
(defgroup idd-drag-and-drop nil
"This package provides functions to define and call internal
-drag and drop actions in the emacs. One could start such an
-action by clicking with the mouse in the source buffer and
+drag and drop actions in the emacs. One could start such an
+action by clicking with the mouse in the source buffer and
then in the destination buffer. The action could depend on
the points where you've clicked with the mouse, on the state
of the region, the point, the mark and any other properties
@@ -114,8 +114,8 @@ A value of `press-button-during-move' me
the button down over the source and hold it until the mouse pointer
is over the destination.
-The disadvantage of the `press-button-during-move' type compared with
-the `click' type is, that you can't select a destination region and
+The disadvantage of the `press-button-during-move' type compared with
+the `click' type is, that you can't select a destination region and
therefore a drag and drop action depending on a selected region can't
be started with that type of mouse binding.
@@ -138,7 +138,7 @@ this."
"The mouse keys for the command `idd-mouse-drag-and-drop'.
The command `idd-mouse-drag-and-drop' is bound during the loading
of the package internal-drag-and-drop to this keys in the global
-key map.
+key map.
Set it to nil, if you don't want to bind this function during loading.
@@ -146,7 +146,7 @@ If the command is already bound in the g
then this key sequence will not be bind.
Note: In the Emacs 19 the mouse keys must contain the modifier
-`down', if `idd-drag-and-drop-mouse-binding-type' is set to
+`down', if `idd-drag-and-drop-mouse-binding-type' is set to
`press-button-during-move' and must not contain the modifier, if it
is set to `click'. If you set `idd-drag-and-drop-mouse-binding-type'
before loading the package internal-drag-and-drop, the mouse will
@@ -161,7 +161,7 @@ be bind in the right way.")
"The mouse keys for the command `idd-help-mouse-drag-and-drop'.
The command `idd-help-mouse-drag-and-drop' is bound during the loading
of the package internal-drag-and-drop to this keys in the global
-key map.
+key map.
Set it to nil, if you don't want to bind this function during loading.
@@ -169,7 +169,7 @@ If the command is already bound in the g
then this key sequence will not be bind.
Note: In the Emacs 19 the mouse keys must contain the modifier
-`down', if `idd-drag-and-drop-mouse-binding-type' is set to
+`down', if `idd-drag-and-drop-mouse-binding-type' is set to
`press-button-during-move' and must not contain the modifier, if it
is set to `click'. If you set `idd-drag-and-drop-mouse-binding-type'
before loading the package internal-drag-and-drop, the mouse will
@@ -178,16 +178,16 @@ be bind in the right way.")
(defcustom idd-actions '((((idd-if-region-active-p . nil))
(((idd-if-region-active-p . t))
idd-action-copy-region))
-
+
(((idd-if-region-active-p . t))
(((idd-if-region-active-p . t))
idd-action-copy-replace-region))
-
+
(((idd-if-region-active-p . nil)
(idd-if-modifiers-p . nil))
(((idd-if-region-active-p . t))
idd-action-move-region))
-
+
(((idd-if-region-active-p . t)
(idd-if-modifiers-p . nil))
(((idd-if-region-active-p . t))
@@ -196,12 +196,12 @@ be bind in the right way.")
"*The list with actions, depending on the source and the destination.
The list looks like:
'((<destination-specification-1> (<source-specification-1> <action-1-1>)
- (<source-specification-2> <action-1-2>)
-:
+ (<source-specification-2> <action-1-2>)
+ :
)
(<destination-specification-2> (<source-specification-1> <action-2-1>)
- (<source-specification-2> <action-2-2>)
-:
+ (<source-specification-2> <action-2-2>)
+ :
)
:
)
@@ -209,15 +209,15 @@ The <source-specification> looks like th
'([(<specification-type> <value>)])
with <specification-type> :== idd-if-minor-mode-p | idd-if-buffer-name-p
| idd-if-region-active-p | idd-if-url-at-point-p
- | idd-if-major-mode-p | idd-if-variable-non-nil-p
- | idd-if-dired-file-on-line-p
- | idd-if-dired-no-file-on-line-p
- | idd-if-local-file-p | idd-if-buffer-name-p
- | idd-if-modifiers-p | ...
+ | idd-if-major-mode-p | idd-if-variable-non-nil-p
+ | idd-if-dired-file-on-line-p
+ | idd-if-dired-no-file-on-line-p
+ | idd-if-local-file-p | idd-if-buffer-name-p
+ | idd-if-modifiers-p | ...
The <specification-type> - functions must have two arguments, the first one
is the source or destination and the second is the <value>. It must return
-nil, if the test wasn't successful and a number (in general 1), which
+nil, if the test wasn't successful and a number (in general 1), which
specifies the weight of the test function. The weights of all single tests
are added to a summary weight and assigned to the action. The action
with the highest weight is called from the action handler. Look at
@@ -240,10 +240,10 @@ specified by `idd-if-major-mode-p'.
<action> is a function, which has two arguments, the first specifies the
source and the second the destination. Look at the function definition
-of `idd-action-copy-region' and `idd-action-copy-replace-region'. They are
+of `idd-action-copy-region' and `idd-action-copy-replace-region'. They are
examples for such actions."
:group 'idd-drag-and-drop
-:type 'list)
+:type 'sexp)
(make-variable-buffer-local 'idd-actions)
@@ -264,10 +264,10 @@ this variable."
:group 'idd-drag-and-drop
:type 'file)
-(defcustom idd-data-directory (or
+(defcustom idd-data-directory (or
(and (fboundp 'locate-data-directory)
(locate-data-directory "hm--html-menus"))
- (file-name-as-directory
+ (file-name-as-directory
(expand-file-name "idd" data-directory)))
"Data directory for the file `idd-mouse-pointer-image'.
Run the command `idd-make-drag-and-drop-pointer-glyph' after changing
@@ -275,8 +275,8 @@ this variable."
:group 'idd-drag-and-drop
:type 'directory)
-(defcustom idd-overwrite-mouse-pointers
- (if (adapt-xemacsp)
+(defcustom idd-overwrite-mouse-pointers
+ (if (adapt-xemacsp)
'(text-pointer-glyph
nontext-pointer-glyph
selection-pointer-glyph)
@@ -289,7 +289,7 @@ wont be changed. Currently it must be ni
(defvar idd-drag-and-drop-pointer-glyph nil
; (if idd-overwrite-mouse-pointers
-; (make-pointer-glyph
+; (make-pointer-glyph
; (vector 'autodetect :data idd-mouse-pointer-image))
; nil)
"The shape of the mouse-pointer when internal drag and drop is active.")
@@ -395,12 +395,12 @@ return value the better is the matching.
(cond ((not actions-depending-on-source) value-action-pair)
((or (= source-value 0)
(<= (+ destination-value source-value) (car value-action-pair)))
- (idd-get-action-depending-on-source
+ (idd-get-action-depending-on-source
source
(cdr actions-depending-on-source)
destination-value
value-action-pair))
- (t (idd-get-action-depending-on-source
+ (t (idd-get-action-depending-on-source
source
(cdr actions-depending-on-source)
destination-value
@@ -544,7 +544,7 @@ the SOURCE-OR-DESTINATION. It returns 1,
source-or-destination)))
1
nil)))
-
+
(defun idd-if-dired-no-file-on-line-p (source-or-destination value)
"Checks, if a filename is in the dired buffer of SOURCE-OR-DESTINATION.
It returns 1, if a filename is on the line and if VALUE is t, or if
@@ -646,11 +646,11 @@ Look at the example `idd-action-move-reg
(idd-set-point ,destination))
,(when do-in-destination
(cons 'progn do-in-destination))))
-
+
(defun idd-action-move-region (source destination)
"Move the region from SOURCE to DESTINATION."
(let ((region))
- (idd-with-source-and-destination
+ (idd-with-source-and-destination
source destination
:do-in-source ((setq region (buffer-substring (point) (mark)))
(delete-region (point) (mark)))
@@ -660,7 +660,7 @@ Look at the example `idd-action-move-reg
(defun idd-action-move-replace-region (source destination)
"Delete the region at SOURCE and overwrite the DESTINATION region with it."
(let ((region))
- (idd-with-source-and-destination
+ (idd-with-source-and-destination
source destination
:do-in-source ((setq region (buffer-substring (point) (mark)))
(delete-region (point) (mark)))
@@ -738,7 +738,7 @@ button event. Therefore this should not
(mouse-event-p source-event)
(eq idd-drag-and-drop-mouse-binding-type 'click))
(while (not (button-release-event-p (next-command-event)))))
- (idd-mouse-drag-and-drop source-event))
+ (idd-mouse-drag-and-drop source-event))
(message "Wrong event! Exit drag and drop."))))
(defun idd-help-mouse-drag-and-drop (source-event)
@@ -749,7 +749,7 @@ button event. Therefore this should not
(defun idd-mouse-drag-and-drop (source-event)
"Performs a drag and drop action.
-It calls the command `idd-mouse-drag-and-drop-click' or
+It calls the command `idd-mouse-drag-and-drop-click' or
`idd-mouse-drag-and-drop-press-button-during-move' depending on
the value of `idd-drag-and-drop-mouse-binding-type'."
(interactive "@e")
@@ -790,7 +790,7 @@ point is used."
At first you must press the button down over the source and then
move with the pressed button to the destination, where you must leave
the button up.
-This must be bind to a mouse button. The SOURCE-EVENT must be a
+This must be bind to a mouse button. The SOURCE-EVENT must be a
button-press-event.
The disadvantage of this command compared with the command
@@ -798,13 +798,13 @@ The disadvantage of this command compare
destination region."
(interactive "@e")
(idd-set-drag-and-drop-pointer-glyphs)
- (let ((drag-and-drop-message
+ (let ((drag-and-drop-message
"Drag&Drop: Leave the button over the destination!")
(source (idd-get-source-or-destination-alist source-event))
(destination nil)
(destination-event))
(message drag-and-drop-message)
- (setq destination-event
+ (setq destination-event
(next-command-event nil drag-and-drop-message))
(message "")
(cond ((or (button-release-event-p destination-event)
@@ -828,7 +828,7 @@ destination region."
(defun idd-mouse-drag-and-drop-click (source-event)
"Performs a drag and drop action.
At first you must click on the source and after that on the destination.
-This must be bind to a mouse button. The SOURCE-EVENT must be a
+This must be bind to a mouse button. The SOURCE-EVENT must be a
button-press-event."
(interactive "@e")
(idd-set-drag-and-drop-pointer-glyphs)
@@ -839,7 +839,7 @@ button-press-event."
(message drag-and-drop-message)
(when (and (adapt-xemacsp) (mouse-event-p source-event))
(dispatch-event (next-command-event)))
- (setq destination-event
+ (setq destination-event
(next-command-event nil drag-and-drop-message))
(message "")
(cond ((button-press-event-p destination-event)
@@ -909,16 +909,16 @@ You've to rerun this, if you change eith
idd-mouse-pointer-image)))
(if (and mouse-pointer-image
(file-exists-p mouse-pointer-image))
- (setq idd-drag-and-drop-pointer-glyph
- (make-pointer-glyph
+ (setq idd-drag-and-drop-pointer-glyph
+ (make-pointer-glyph
(vector 'autodetect :data mouse-pointer-image)))
(setq idd-drag-and-drop-pointer-glyph (make-pointer-glyph))
- (message
+ (message
"Warning: Can't find drag and drop mouse pointer image!"))))
-
+
(when (and (not noninteractive) (console-on-window-system-p))
(idd-make-drag-and-drop-pointer-glyph))
-
+
))
;; keymap for help buffer extents
6.24 +111 -112 XEmacs/packages/xemacs-packages/hm--html-menus/hm--html-configuration.el
Index: hm--html-configuration.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/hm--html-menus/hm--html-configuration.el,v
retrieving revision 6.23
retrieving revision 6.24
diff -u -p -r6.23 -r6.24
--- hm--html-configuration.el 2003/06/27 18:50:36 6.23
+++ hm--html-configuration.el 2007/09/04 09:02:54 6.24
@@ -19,7 +19,7 @@
;;; along with this program; if not, write to the Free Software
;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;;
-;;;
+;;;
;;; Description:
;;;
;;; This file is for the system wide configuration of the html mode.
@@ -29,12 +29,12 @@
;;; All settings in this file are done with defvar's, therefore
;;; you could overwrite them also with the function setq in your
;;; .emacs or default.el and so on.
-;;;
-;;; Installation:
-;;;
+;;;
+;;; Installation:
+;;;
;;; Put this file in one of your lisp load path directories or
;;; set the environment variable HTML_CONFIG_FILE to this file.
-;;; For example:
+;;; For example:
;;; setenv HTML_CONFIG_FILE "~/data/hm--htm-environment.el"
;;; if you have put this file in the directory "~/data/"
;;;
@@ -90,7 +90,7 @@ the creation and change dates, the HTML
(defcustom hm--html-user-config-file nil
"*The location of the users config file.
This variable will only be used, if no environment variable
-\"HTML_USER_CONFIG_FILE\" is set.
+\"HTML_USER_CONFIG_FILE\" is set.
Example value: \"~/.hm--html-configuration.el\".
If this is set to nil and no \"HTML_USER_CONFIG_FILE\" is set,
@@ -98,7 +98,7 @@ then the file ~/.hm--html-configuration.
also the variable `init-file-user' will be respected."
:group 'hm--html-files
:type '(choice (const :tag "No user config file" :value nil)
- (const :tag "~/.hm--html-configuration.el"
+ (const :tag "~/.hm--html-configuration.el"
:value "~/.hm--html-configuration.el")
file))
@@ -116,7 +116,7 @@ This variable will only be used, if no e
"*t : Use the HTML expert popup menu,
nil : Use the HTML novice (simple) menu.
-NOTE: In the Emacs 19 you should set this variable only before
+NOTE: In the Emacs 19 you should set this variable only before
loading the mode."
:group 'hm--html-menus
:type '(choice (const :tag "Use Expert Popup Menu" :value t)
@@ -124,7 +124,7 @@ NOTE: In the Emacs 19 you should set thi
;;; Your Signature
-(defcustom hm--html-signature-file nil
+(defcustom hm--html-signature-file nil
"*Your Signature file.
For example: \"http://www.tnt.uni-hannover.de:80/data/info/www/tnt/info/tnt/whois/muenkel.html\"."
:group 'hm--html-document-information
@@ -191,7 +191,7 @@ For example: \"http://www.tnt.uni-hannov
:group 'hm--html-links
:type 'string)
-(defcustom hm--html-wais-servername:port-alist
+(defcustom hm--html-wais-servername:port-alist
'(("wais.tnt.uni-hannover.de:210")
("daedalus.tnt.uni-hannover.de:21408")
("ikarus.tnt.uni-hannover.de:21401"))
@@ -433,7 +433,7 @@ this alist."
These commands needs no parameter."
:group 'hm--html-links
:type '(repeat string))
-
+
(defcustom hm--html-server-side-include-command-with-parameter-alist
'(("/usr/bin/man")
("/usr/bin/finger")
@@ -443,22 +443,22 @@ These commands needs no parameter."
These commands needs parameters."
:group 'hm--html-links
:type '(repeat string))
-
+
;;; Alist with URL'S for FORMS and IMAGE tags
-(defcustom hm--html-url-alist
+(defcustom hm--html-url-alist
(list
'("http://hoohoo.ncsa.uiuc.edu/htbin-post/post-query"
POST)
'("http://hoohoo.ncsa.uiuc.edu/htbin/query"
GET)
- (list
- (concat "http://"
+ (list
+ (concat "http://"
hm--html-favorite-http-server-host-name
"/")
'IMAGE))
- "*Alist with URL's for FORMS and IMAGE tags.
+ "*Alist with URL's for FORMS and IMAGE tags.
The cdr of each list contains symbols, which specify the use of the
URL."
:group 'hm--html-links
@@ -528,7 +528,7 @@ which is distributed with the package hm
(defcustom hm--html-delete-wrong-path-prefix '("/tmp_mnt" "/phys/[^/]+")
"If non nil, it specifies path-prefixes, which should be deleted in paths.
The Sun automounter adds a temporary prefix to the automounted directories
- (At our site the prefix is /tmp_mnt). But you can't select such a path, if
+ (At our site the prefix is /tmp_mnt). But you can't select such a path, if
the automounter has currently not mounted the directory and so you can't
follow a html-link, which consists of such a path. To overcome this behaviour,
you can set this variable to the prefix (eg. \"/tmp_mnt\"). After that, the
@@ -562,14 +562,14 @@ nil => No automatic update of the date."
;;; variable hm--html-log-date-format instead
;(defcustom hm--hmtl-include-time-after-date nil
-; "*t => The time of day will be appended to the date
-;in the created and changed comment lines, as well as in the
+; "*t => The time of day will be appended to the date
+;in the created and changed comment lines, as well as in the
;visible modified line if these lines are present; the time
;will never be appended to the date in the title. The separator
;between date and title is defined with hm--html-date-time-separator."
; :group 'hm--html-document-information
; :type 'boolean)
-
+
;(defcustom hm--html-date-time-separator " at "
; "The value of the separator between date and time in the
;created and modified comment lines and in the visible modified
@@ -583,175 +583,175 @@ WARNING: Don't use the character `<' in
The log lines are the lines with the created and changed comments.
The format is used as argument of the function `format-time-string'.
`%a'
- This stands for the abbreviated name of the day of week.
+ This stands for the abbreviated name of the day of week.
`%A'
- This stands for the full name of the day of week.
+ This stands for the full name of the day of week.
`%b'
- This stands for the abbreviated name of the month.
+ This stands for the abbreviated name of the month.
`%B'
- This stands for the full name of the month.
+ This stands for the full name of the month.
`%c'
- This is a synonym for `%x %X'.
+ This is a synonym for `%x %X'.
`%C'
- This has a locale-specific meaning. In the default locale
- (named C), it is equivalent to `%A, %B %e, %Y'.
+ This has a locale-specific meaning. In the default locale
+ (named C), it is equivalent to `%A, %B %e, %Y'.
`%d'
- This stands for the day of month, zero-padded.
+ This stands for the day of month, zero-padded.
`%D'
- This is a synonym for `%m/%d/%y'.
+ This is a synonym for `%m/%d/%y'.
`%e'
- This stands for the day of month, blank-padded.
+ This stands for the day of month, blank-padded.
`%h'
- This is a synonym for `%b'.
+ This is a synonym for `%b'.
`%H'
- This stands for the hour (00-23).
+ This stands for the hour (00-23).
`%I'
- This stands for the hour (00-12).
+ This stands for the hour (00-12).
`%j'
- This stands for the day of the year (001-366).
+ This stands for the day of the year (001-366).
`%k'
- This stands for the hour (0-23), blank padded.
+ This stands for the hour (0-23), blank padded.
`%l'
- This stands for the hour (1-12), blank padded.
+ This stands for the hour (1-12), blank padded.
`%m'
- This stands for the month (01-12).
+ This stands for the month (01-12).
`%M'
- This stands for the minute (00-59).
+ This stands for the minute (00-59).
`%n'
- This stands for a newline.
+ This stands for a newline.
`%p'
- This stands for `AM' or `PM', as appropriate.
+ This stands for `AM' or `PM', as appropriate.
`%r'
- This is a synonym for `%I:%M:%S %p'.
+ This is a synonym for `%I:%M:%S %p'.
`%R'
- This is a synonym for `%H:%M'.
+ This is a synonym for `%H:%M'.
`%S'
- This stands for the seconds (00-60).
+ This stands for the seconds (00-60).
`%t'
- This stands for a tab character.
+ This stands for a tab character.
`%T'
- This is a synonym for `%H:%M:%S'.
+ This is a synonym for `%H:%M:%S'.
`%U'
- This stands for the week of the year (01-52), assuming that
- weeks start on Sunday.
+ This stands for the week of the year (01-52), assuming that
+ weeks start on Sunday.
`%w'
- This stands for the numeric day of week (0-6). Sunday is day
- 0.
+ This stands for the numeric day of week (0-6). Sunday is day
+ 0.
`%W'
- This stands for the week of the year (01-52), assuming that
- weeks start on Monday.
+ This stands for the week of the year (01-52), assuming that
+ weeks start on Monday.
`%x'
- This has a locale-specific meaning. In the default locale
- (named C), it is equivalent to `%D'.
+ This has a locale-specific meaning. In the default locale
+ (named C), it is equivalent to `%D'.
`%X'
- This has a locale-specific meaning. In the default locale
- (named C), it is equivalent to `%T'.
+ This has a locale-specific meaning. In the default locale
+ (named C), it is equivalent to `%T'.
`%y'
- This stands for the year without century (00-99).
+ This stands for the year without century (00-99).
`%Y'
- This stands for the year with century.
+ This stands for the year with century.
`%Z'
- This stands for the time zone abbreviation."
+ This stands for the time zone abbreviation."
:group 'hm--html-document-information
:type '(choice (const :tag "22-Feb-1997" :value "%d-%b-%Y")
(const :tag "22.02.97" :value "%d.%m.%y")
(const :tag "02/22/97" :value "%D")
- (const :tag "97-02-22" :value "%y-%m-%d")
- (const :tag "22-Feb-1997 22:30:07" :value "%d-%b-%Y %T")
+ (const :tag "97-02-22" :value "%y-%m-%d")
+ (const :tag "22-Feb-1997 22:30:07" :value "%d-%b-%Y %T")
(const :tag "22-Feb-1997 22:30" :value "%d-%b-%Y %R")
(const :tag "22-Feb-1997 at 22:30" :value "%d-%b-%Y at %R")
- (const :tag "22.02.97 22:30:07" :value "%d.%m.%y %T")
+ (const :tag "22.02.97 22:30:07" :value "%d.%m.%y %T")
(const :tag "02/22/97 22:30:07" :value "%D %T")
(const :tag "02/22/97 10:30:07 PM" :value "%D %r")
- (const :tag "97-02-22 22:30:07" :value "%y-%m-%d %T")
- string))
+ (const :tag "97-02-22 22:30:07" :value "%y-%m-%d %T")
+ string))
(defcustom hm--html-title-date-format "%d-%b-%Y"
"Default output format for date and time in the title and main header line.
WARNING: Don't use the character `<' in this string!
The format is used as argument of the function `format-time-string'.
`%a'
- This stands for the abbreviated name of the day of week.
+ This stands for the abbreviated name of the day of week.
`%A'
- This stands for the full name of the day of week.
+ This stands for the full name of the day of week.
`%b'
- This stands for the abbreviated name of the month.
+ This stands for the abbreviated name of the month.
`%B'
- This stands for the full name of the month.
+ This stands for the full name of the month.
`%c'
- This is a synonym for `%x %X'.
+ This is a synonym for `%x %X'.
`%C'
- This has a locale-specific meaning. In the default locale
- (named C), it is equivalent to `%A, %B %e, %Y'.
+ This has a locale-specific meaning. In the default locale
+ (named C), it is equivalent to `%A, %B %e, %Y'.
`%d'
- This stands for the day of month, zero-padded.
+ This stands for the day of month, zero-padded.
`%D'
- This is a synonym for `%m/%d/%y'.
+ This is a synonym for `%m/%d/%y'.
`%e'
- This stands for the day of month, blank-padded.
+ This stands for the day of month, blank-padded.
`%h'
- This is a synonym for `%b'.
+ This is a synonym for `%b'.
`%H'
- This stands for the hour (00-23).
+ This stands for the hour (00-23).
`%I'
- This stands for the hour (00-12).
+ This stands for the hour (00-12).
`%j'
- This stands for the day of the year (001-366).
+ This stands for the day of the year (001-366).
`%k'
- This stands for the hour (0-23), blank padded.
+ This stands for the hour (0-23), blank padded.
`%l'
- This stands for the hour (1-12), blank padded.
+ This stands for the hour (1-12), blank padded.
`%m'
- This stands for the month (01-12).
+ This stands for the month (01-12).
`%M'
- This stands for the minute (00-59).
+ This stands for the minute (00-59).
`%n'
- This stands for a newline.
+ This stands for a newline.
`%p'
- This stands for `AM' or `PM', as appropriate.
+ This stands for `AM' or `PM', as appropriate.
`%r'
- This is a synonym for `%I:%M:%S %p'.
+ This is a synonym for `%I:%M:%S %p'.
`%R'
- This is a synonym for `%H:%M'.
+ This is a synonym for `%H:%M'.
`%S'
- This stands for the seconds (00-60).
+ This stands for the seconds (00-60).
`%t'
- This stands for a tab character.
+ This stands for a tab character.
`%T'
- This is a synonym for `%H:%M:%S'.
+ This is a synonym for `%H:%M:%S'.
`%U'
- This stands for the week of the year (01-52), assuming that
- weeks start on Sunday.
+ This stands for the week of the year (01-52), assuming that
+ weeks start on Sunday.
`%w'
- This stands for the numeric day of week (0-6). Sunday is day
- 0.
+ This stands for the numeric day of week (0-6). Sunday is day
+ 0.
`%W'
- This stands for the week of the year (01-52), assuming that
- weeks start on Monday.
+ This stands for the week of the year (01-52), assuming that
+ weeks start on Monday.
`%x'
- This has a locale-specific meaning. In the default locale
- (named C), it is equivalent to `%D'.
+ This has a locale-specific meaning. In the default locale
+ (named C), it is equivalent to `%D'.
`%X'
- This has a locale-specific meaning. In the default locale
- (named C), it is equivalent to `%T'.
+ This has a locale-specific meaning. In the default locale
+ (named C), it is equivalent to `%T'.
`%y'
- This stands for the year without century (00-99).
+ This stands for the year without century (00-99).
`%Y'
- This stands for the year with century.
+ This stands for the year with century.
`%Z'
- This stands for the time zone abbreviation."
+ This stands for the time zone abbreviation."
:group 'hm--html-document-information
:type '(choice (const :tag "22-Feb-1997" :value "%d-%b-%Y")
(const :tag "22.02.97" :value "%d.%m.%y")
(const :tag "02/22/97" :value "%D")
- (const :tag "97-02-22" :value "%y-%m-%d")
- (const :tag "22-Feb-1997 22:30:07" :value "%d-%b-%Y %T")
+ (const :tag "97-02-22" :value "%y-%m-%d")
+ (const :tag "22-Feb-1997 22:30:07" :value "%d-%b-%Y %T")
(const :tag "22-Feb-1997 22:30" :value "%d-%b-%Y %R")
- (const :tag "22.02.97 22:30:07" :value "%d.%m.%y %T")
+ (const :tag "22.02.97 22:30:07" :value "%d.%m.%y %T")
(const :tag "02/22/97 22:30:07" :value "%D %T")
(const :tag "02/22/97 10:30:07 PM" :value "%D %r")
- (const :tag "97-02-22 22:30:07" :value "%y-%m-%d %T")
- string))
+ (const :tag "97-02-22 22:30:07" :value "%y-%m-%d %T")
+ string))
(defcustom hm--html-automatic-changed-comment t
"*t => A \"changed comment\" line will be added before filesaving.
@@ -845,7 +845,7 @@ The search will be done from the end to
(defcustom hm--html-bind-latin-1-char-entities t
"Set this to nil, if you don't want to use the ISO Latin 1 character entities.
-This is only useful, if `hm--html-use-old-keymap' is set to nil. It is only
+This is only useful, if `hm--html-use-old-keymap' is set to nil. It is only
used during loading the html package the first time."
:group 'hm--html-keys
:type 'boolean)
@@ -879,7 +879,7 @@ drag and drop."
"The action list for the destination mode `hm--html-mode'.
Look at the description of the variable idd-actions."
:group 'hm--html-keys
-:type 'list)
+:type 'sexp)
;;; The font lock keywords
@@ -890,7 +890,7 @@ Look at the description of the variable
'("<[^>]*>" . font-lock-keyword-face)
; '("<[^>=]*href[ \t\n]*=[ \t\n]*\"\\([^\"]*\\)\"" 1 font-lock-string-face t)
; '("<[^>=]src[ \t\n]*=[ \t\n]*\"\\([^\"]*\\)\"" 1 font-lock-string-face t)
- '("<[^>=]*\\(href\\|src\\)[ \t\n]*=[ \t\n]*\"\\([^\"]*\\)\""
+ '("<[^>=]*\\(href\\|src\\)[ \t\n]*=[ \t\n]*\"\\([^\"]*\\)\""
2 font-lock-string-face t))
"Subdued level highlighting for hm--html-mode."
:group 'hm--html-display
@@ -963,9 +963,9 @@ Look at the description of the variable
file))
(defcustom html-sigusr1-signal-value 16
- "Value for the SIGUSR1 signal on your system.
+ "Value for the SIGUSR1 signal on your system.
See, usually, /usr/include/sys/signal.h.
- SunOS 4.1.x : (setq html-sigusr1-signal-value 30)
+ SunOS 4.1.x : (setq html-sigusr1-signal-value 30)
SunOS 5.x : (setq html-sigusr1-signal-value 16)
Linux : (setq html-sigusr1-signal-value 10))"
:group 'hm--html-display
@@ -1263,4 +1263,3 @@ Use lower case characters in this list!!
;;; Announce the feature hm--html-configuration
(provide 'hm--html-configuration)
-
More information about the XEmacs-CVS
mailing list