home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / hack-locals.el < prev    next >
Encoding:
Text File  |  1991-07-07  |  4.6 KB  |  121 lines
  1. ; Newsgroups: dg.ml.emacs.vm
  2. ; From: mike-w@cs.aukuni.ac.nz
  3. ; Subject: Re: inhibit-local-variables on mailboxes again
  4. ; Organization: University of Auckland, New Zealand.
  5. ; Date: 24 Jun 91 10:10:07
  6. ; 
  7. ;     Here's a modified version of Carl Witty's modified version of
  8. ;   hack-local-variables (Dan suggested I pass it on).  It supports two
  9. ;   additional values for inhibit-local-variables:
  10. ; 
  11. ;       'always    means never obey "Local Variables" section, and don't
  12. ;                 bother querying the user.  (I thought that setting this
  13. ;                 value in vm-mode-hooks would solve Dan's problem, but
  14. ;                 unfortunately vm explicitly let-binds
  15. ;                 inhibit-local-variables to t.)
  16. ; 
  17. ;       'query-other
  18. ;                 means only bother querying the user if the file is owned by
  19. ;                 someone else (helps prevent Trojan Horses without getting
  20. ;                 in the way too much).
  21. ; 
  22. ; --- CUT HERE --------------------------------------------------------------
  23. ;; LCD Archive Entry:
  24. ;; hack-locals|Carl Witty,Mike Williams
  25. ;; |cwitty@csli.stanford.edu,mike-w@cs14b.cs.aukuni.ac.nz
  26. ;; |Show local variables when present, more options for inhibit-local-variables
  27. ;; |91-04-26||~/misc/hack-locals.el.Z
  28.  
  29. ;; Modified by cwitty@csli.Stanford.EDU (Carl Witty) on 12/4/88
  30. ;; to show "Local Variables" section of file on screen before
  31. ;; asking whether to use them (when inhibit-local-variables set).
  32.  
  33. ;; Mike Williams (mike-w@cs14b.cs.aukuni.ac.nz) - Fri Apr 26 15:08:12 1991 
  34. ;; inhibit-local-variables can have the values
  35. ;;    nil         ... always set
  36. ;;    'query, t        ... always query
  37. ;;    'query-other    ... query if not file's owner
  38. ;;    'always        ... always inhibit
  39.  
  40. (provide 'hack-locals)
  41.  
  42. (defun hack-local-variables (&optional force)
  43.   "Parse, and bind or evaluate as appropriate, any local variables
  44. for current buffer."
  45.   ;; Look for "Local variables:" line in last page.
  46.   (save-excursion
  47.     (goto-char (point-max))
  48.     (search-backward "\n\^L" (max (- (point-max) 3000) (point-min)) 'move)
  49.     (if (and 
  50.      (let ((case-fold-search t)) (search-forward "Local Variables:" nil t))
  51.      (or force (not inhibit-local-variables)
  52.          (and (eq inhibit-local-variables 'query-other) 
  53.           buffer-file-name
  54.           (eq (nth 2 (file-attributes (buffer-file-name))) 
  55.               (user-uid)))
  56.          (if (eq inhibit-local-variables 'always) nil
  57.            (save-window-excursion
  58.          (switch-to-buffer (current-buffer) t)
  59.          (recenter 0)
  60.          (y-or-n-p 
  61.           (format 
  62.            "Set local variables as specified at end of %s? "
  63.            (file-name-nondirectory buffer-file-name)))))))
  64.     (let ((continue t)
  65.           prefix prefixlen suffix beg)
  66.       ;; The prefix is what comes before "local variables:" in its line.
  67.       ;; The suffix is what comes after "local variables:" in its line.
  68.       (skip-chars-forward " \t")
  69.       (or (eolp)
  70.           (setq suffix (buffer-substring (point)
  71.                          (progn (end-of-line) (point)))))
  72.       (goto-char (match-beginning 0))
  73.       (or (bolp)
  74.           (setq prefix
  75.             (buffer-substring (point)
  76.                       (progn (beginning-of-line) (point)))))
  77.       (if prefix (setq prefixlen (length prefix)
  78.                prefix (regexp-quote prefix)))
  79.       (if suffix (setq suffix (regexp-quote suffix)))
  80.       (while continue
  81.         ;; Look at next local variable spec.
  82.         (if selective-display (re-search-forward "[\n\C-m]")
  83.           (forward-line 1))
  84.         ;; Skip the prefix, if any.
  85.         (if prefix
  86.         (if (looking-at prefix)
  87.             (forward-char prefixlen)
  88.           (error "Local variables entry is missing the prefix")))
  89.         ;; Find the variable name; strip whitespace.
  90.         (skip-chars-forward " \t")
  91.         (setq beg (point))
  92.         (skip-chars-forward "^:\n")
  93.         (if (eolp) (error "Missing colon in local variables entry"))
  94.         (skip-chars-backward " \t")
  95.         (let* ((str (buffer-substring beg (point)))
  96.            (var (read str))
  97.           val)
  98.           ;; Setting variable named "end" means end of list.
  99.           (if (string-equal (downcase str) "end")
  100.           (setq continue nil)
  101.         ;; Otherwise read the variable value.
  102.         (skip-chars-forward "^:")
  103.         (forward-char 1)
  104.         (setq val (read (current-buffer)))
  105.         (skip-chars-backward "\n")
  106.         (skip-chars-forward " \t")
  107.         (or (if suffix (looking-at suffix) (eolp))
  108.             (error "Local variables entry is terminated incorrectly"))
  109.         ;; Set the variable.  "Variables" mode and eval are funny.
  110.         (cond ((eq var 'mode)
  111.                (funcall (intern (concat (downcase (symbol-name val))
  112.                         "-mode"))))
  113.               ((eq var 'eval)
  114.                (if (string= (user-login-name) "root")
  115.                (message "Ignoring `eval:' in file's local variables")
  116.              (eval val)))
  117.               (t (make-local-variable var)
  118.              (set var val))))))))))
  119.  
  120. ;;=== END of hack-locals.el ===============================================
  121.