(if (featurep 'xemacs)                                                                                                                             
    (add-to-list 'Info-directory-list (expand-file-name "~/code/emacs-w3m/doc"))                                                                   
  (add-to-list 'Info-default-directory-list                                                                                                        
               (expand-file-name "~/code/emacs-w3m/doc")))

(setq Info-directory-list (append '("/home/terranpro/code/emacs-w3m/doc")                                                                          
                                  Info-directory-list))
(setq Info-directory-list (append  Info-directory-list                                                                                             
                                   '("/home/terranpro/code/emacs-w3m/doc")))




Info-default-directory-list is a variable defined in `paths.el'.
Its value is
("/home/terranpro/code/emacs-w3m/doc" "/home/terranpro/code/cedet-1.0/semantic/doc" "/usr/local/share/info/" "/usr/local/info/" "/usr/local/gnu/in\
fo/" "/usr/local/gnu/lib/info/" "/usr/local/gnu/lib/emacs/info/" "/usr/local/emacs/info/" "/usr/local/lib/info/" "/usr/local/lib/emacs/info/" "/us\
r/share/info/emacs-23" "/usr/share/info/" "/usr/share/info/")



Info-directory-list's value is
("/home/terranpro/code/emacs-w3m/doc" "/home/terranpro/code/gnus/texi/" "/home/terranpro/code/cedet-1.0/cogre" "/home/terranpro/code/cedet-1.0/spe\
edbar" "/home/terranpro/code/cedet-1.0/ede" "/home/terranpro/code/cedet-1.0/srecode" "/home/terranpro/code/cedet-1.0/semantic/doc" "/home/terranpr\
o/code/cedet-1.0/eieio" "/home/terranpro/code/cedet-1.0/common" "/usr/local/share/info/" "/usr/local/info/" "/usr/share/info/emacs-23" "/usr/share\
/info/" "/usr/share/info/" "/home/terranpro/code/emacs-w3m/doc")