Commits

Anonymous committed cde8d9f

Misuse of the list widget type

Comments (0)

Files changed (3)

+2007-09-04  Didier Verna  <didier@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@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.23 released.
 
 1999-07-22  Jan Vroonhof  <vroonhof@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@xemacs.org>
 
 	* Update the package to hm--html-menus 5.9.
 	  Create the subdirectories etc/template and
 	  etc/idd.
-	
+
 
 1998-01-25  SL Baur  <steve@altair.xemacs.org>
 

hm--html-configuration.el

 ;;;  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.
 ;;;	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/"
 ;;;
 (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,
 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))
 
   "*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)
 
 ;;; 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
   :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"))
 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")
 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
 (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
 ;;; 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
 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.
 
 (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)
   "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
    '("<[^>]*>" . 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
 		 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
 
 ;;; Announce the feature hm--html-configuration
 (provide 'hm--html-configuration)
-

internal-drag-and-drop.el

 ;; 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
 ;;	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)
 ;;	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)
 
 
 (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
 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.
 
   "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.
 
 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
   "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.
 
 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
 (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))
   "*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>)
+				    :
      )
     :
     )
   '([(<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
 
 <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)
 
   :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
   :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)
 
 (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.")
     (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
 			    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
        (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)))
 (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)))
 		     (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)
 
 (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")
 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
 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)
 (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)
     (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)
 				     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