Re: Mode loaded twice with Local Variables

["Stuart D. Herring" <herring@lanl.gov>]

>   I propose this, maybe naive, change:
> [patch to `normal-mode']

How about this?  It seems simpler to me.

Davis

PS - I copied the manual implementation of `indirect-function' from
`set-auto-mode-0'.  Is there some reason i-f isn't used?  Is it just to
avoid errors for unfbound symbols?  What if the major mode was itself an
alias, or does that not happen?

***************
*** 2724,2733 ****
  		      ok)))))))

  (defun hack-one-local-variable (var val)
!   "Set local variable VAR with value VAL."
    (cond ((eq var 'mode)
! 	 (funcall (intern (concat (downcase (symbol-name val))
! 				  "-mode"))))
  	((eq var 'eval)
  	 (save-excursion (eval val)))
  	(t (make-local-variable var)
--- 2738,2753 ----
  		      ok)))))))

  (defun hack-one-local-variable (var val)
!   "Set local variable VAR with value VAL.
! If VAR is `mode', call `VAL-mode' as a
! function unless it's already the major mode."
    (cond ((eq var 'mode)
! 	 (let ((mode (intern (concat (downcase (symbol-name val)) "-mode"))))
! 	   (while (symbolp (symbol-function mode))
! 	     (setq mode (symbol-function mode)))
! 	   (if (eq mode major-mode)
! 	       (setq mode nil))
! 	   (when mode (funcall mode))))
  	((eq var 'eval)
  	 (save-excursion (eval val)))
  	(t (make-local-variable var)

-- 
This product is sold by volume, not by mass.  If it appears too dense or
too sparse, it is because mass-energy conversion has occurred during
shipping.