[h-e-w] html-helper-mode problems!(2)

[Max Mazza]

oooops sorry, there is my .emacs file!
:D

(set-background-color "black")
(set-foreground-color "gray70")
(set-cursor-color "gray70")
;(global-font-lock-mode t)
(setq default-frame-alist
  '((top . 200) (left . 400)
    (width . 100) (height . 40)
    (cursor-color . "white")
    (cursor-type . box)
    (foreground-color . "gray80")
    (background-color . "black")
    (font . "-*-Courier-normal-r-*-*-13-97-*-*-c-*-*-iso8859-1-")))

(setq initial-frame-alist '((top . 10) (left . 30)))

(cond ((fboundp 'global-font-lock-mode)
      ;; Customize face attributes
      (setq font-lock-face-attributes
           ;; Symbol-for-Face Foreground Background Bold Italic Underline
          '((font-lock-comment-face      "green")
           (font-lock-string-face        "orange")
           (font-lock-keyword-face       "yellow")
           (font-lock-function-name-face "cyan")
           (font-lock-variable-name-face "NavajoWhite1")
           (font-lock-type-face          "IndianRed1")
           (font-lock-reference-face     "Purple")
           ))
      ;; Load the font-lock package.
      (require 'font-lock)
      ;; Maximum colors
      (setq font-lock-maximum-decoration t)
      ;; Turn on font-lock in all modes that support it
      (global-font-lock-mode t)))

(setq dos-printer "lpt4")

(add-hook 'c-mode-common-hook
  (function(lambda()
     (c-set-style "stroustrup")
     (setq c-basic-offset 3)
     (setq c-auto-newline t))))

(setq transient-mark-mode t)
(setq grep-null-device "c:\\nullfile")

;; the following IS REQUIRED or DOS shell don't work!!!!!!
;; Addition suggested by Voelker
(setq process-coding-system-alist
   '(("cmdproxy" . (raw-text-dos . raw-text-dos))))

(load "desktop")
(desktop-load-default)
(desktop-read)

;(load "vc-hooks")
;(setq vc-path "c:/programmi/ComponentSoftware/cs-rcs/system")

; show all chars above 128
;(standard-display-8bit 128 255)
;(standard-display-european 1)

; enable column indicator
(setq column-number-mode t)
; enable time display
(setq display-time 1)

(set-face-background 'modeline "IndianRed1")
(set-face-foreground 'modeline "black")

(setq-default indent-tabs-mode nil)

(custom-set-faces)

; my addition 30/6/2002
(load "visual-basic-mode")

; addition suggested by Chris Lott (address@hidden) 
/added 30/6/2002
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
; additions suggested by Gian Uberto Lauri (address@hidden) - added 29/6/2002

(setq auto-mode-alist
     (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist
     (cons '("\\.htm$" . html-helper-mode) auto-mode-alist))
(setq auto-mode-alist
     (cons '("\\.asp$" . html-helper-mode) auto-mode-alist))
;; Di solito .inc lo usa LaTeX, ma in ufficio a LaTeX pensano
;; che sia roba da preservativi
(setq auto-mode-alist
     (cons '("\\.inc$" . html-helper-mode) auto-mode-alist))

;; nil if you DO NOT use visual-basic-mode as alternate mode for <% %>
;; blocks
(setq html-helper-mode-uses-visual-basic nil)

;; t if you want some 'electric' behaviour with templates...
(setq tempo-interactive t)

;; font-lock anything you can :)
(global-font-lock-mode t)


; --> linee aggiunte dal pacchetto html-helper-mode.tar, file hhm-config.el

;;; ALPHA ALPHA ALPHA
;;;
;;; load and eval this buffer (i.e. in your .emacs) to enable
;;; html-helper-mode customization even if the mode is not loaded.
;;;
;;; For Emacs 20.5.1 or newer (better: for those Emacsen supporting
;;; configuration

(defgroup html-helper nil
 "Customizing html-helper-mode"
 :group 'languages
 :group 'hypermedia
 :group 'local)

(defgroup html-helper-faces nil
 "Customizing html-helper-mode custom faces"
 :group 'html-helper
 :group 'faces)

;; Default distribution doesn't include visual-basic-mode
(defcustom html-helper-mode-uses-visual-basic t
 "Non nil to require visual-basic-mode"
 :type 'boolean
 :initialize 'custom-initialize-default
 :group 'html-helper
 :require 'html-helper-mode)

(defcustom html-helper-mode-uses-JDE nil
 "No nil to use jde instead of java-mode"
 :type 'boolean
 :initialize 'custom-initialize-default
 :group 'html-helper
 :require 'html-helper-mode)

(defcustom html-helper-mode-uses-bold-italic nil
 "Non nil to use the bold-italic font (if your font supports it)"
 :type 'boolean
 :initialize 'custom-initialize-default
 :group 'html-helper
 :require 'html-helper-mode)

(defcustom html-helper-mode-uses-KG-style t
 "Non nil to make Emacs consider PHP/ASP code blocks beginning in
the first column"
 :type 'boolean
 :initialize 'custom-initialize-default
 :group 'html-helper
 :require 'html-helper-mode)

(defcustom html-helper-mode-global-JSP-not-ASP nil
 "Non nil to make Emacs consider <% %> blocks as JSP (global default 
behaviour)"
 :type 'boolean
 :initialize 'custom-initialize-default
 :group 'html-helper
 :require 'html-helper-mode)

(progn
 (defvar html-tag-face
   (defface html-tag-face
     '((((class color)
     (background dark))
    (:foreground "deep sky blue" :bold t))
   (((class color)
     (background light))
    (:foreground "dodger blue" :bold t))
   (t
    (:foreground "dodger blue" :bold t)))
     "Face to use for HTML tags."
     :group 'html-helper-faces))
 (defvar html-helper-bold-face
   (defface html-helper-bold-face
     '((((class color)
     (background dark))
    (:foreground "wheat" :bold t))
   (((class color)
     (background light))
    (:foreground "peru" :bold t))
   (t
    (:foreground "peru" :bold t)))
     "Custom bold face."
     :group 'html-helper-faces))
 (defvar html-helper-italic-face
   (defface html-helper-italic-face
     '((((class color)
     (background dark))
    (:foreground "spring green" :italic t))
   (((class color)
     (background light))
    (:foreground "medium sea green" :italic t))
   (t
    (:foreground "medium sea green" :italic t)))
     "Custom italic face."
     :group 'html-helper-faces))
 (cond (html-helper-mode-uses-bold-italic
    (defvar html-helper-bold-italic-face
      (defface html-helper-bold-italic-face
        '((((class color)
        (background dark))
       (:foreground "peachpuff" :bold t:italic t))
          (((class color)
        (background light))
       (:foreground "orange" :bold t :italic t))
          (t
       (:foreground "orange" :bold t :italic t)))
        "Custom bold italic face."
        :group 'html-helper-faces))))
 (defvar html-helper-underline-face
   (defface html-helper-underline-face
     '((((class color)
     (background dark))
    (:foreground "cornsilk" :underline t))
   (((class color)
     (background light))
    (:foreground "goldenrod" :underline t))
   (t
    (:foreground "goldenrod" :underline t)))
     "Custom underline face."
     :group 'html-helper-faces)))

----------------------------------------------------------

awaiting for a reply..............
Max