     ;; This should never happened since this is only called when
     ;; running under Emacs 19.
     (error (error (concat "This command needs the package `advice', "
-			  "please upgrade your Emacs."))))
+                          "please upgrade your Emacs."))))
   (require 'man)
   (defadvice Man-notify-when-ready
-    (after erlang-Man-notify-when-ready activate)
+      (after erlang-Man-notify-when-ready activate)
     "Set point at the documentation of the function name in
 `erlang-man-function-name' when the man page is displayed."
     (if erlang-man-function-name
-	(erlang-man-find-function (ad-get-arg 0) erlang-man-function-name))
+        (erlang-man-find-function (ad-get-arg 0) erlang-man-function-name))
     (setq erlang-man-function-name nil)))
 
 

  "Return STR, possibly with quotes."
  (let ((case-fold-search nil)) ; force string matching to be case sensitive
    (if (and (stringp str)
	     (not (string-match (eval-when-compile
				  (concat "\\`" erlang-atom-regexp "\\'")) str)))
	(progn (if (fboundp 'replace-regexp-in-string)
		   (setq str (replace-regexp-in-string "'" "\\'" str t t )))
	       (concat "'" str "'"))
      str)))



works under XEmacs.)"
  (interactive)
  (cond ((= erlang-emacs-major-version 18)
         (require 'tags)
         (erlang-tags-define-keys (current-local-map))
         (setq erlang-tags-installed t))
        (t
         (require 'etags)
         (set (make-local-variable 'find-tag-default-function)
              'erlang-find-tag-for-completion)
         (if (>= emacs-major-version 25)
