(defun hack-local-variables (&optional force) "\ Parse, and bind or evaluate as appropriate, any local variables for current buffer." (byte-code "dbdZe]##U \"?$ ?UU \"H=>H=HU SÂUً*    !lz` `\" !bn` `\"   G  !   !P  !!  ! !!!` !!!! `\"!!\"É!!p!!! : !;lA!=X!!P!!=x \"q@A!u!B!L+-)" [case-fold-search t ignore nil emacs-version inhibit-local-variables force enable-local-variables continue prefix prefixlen suffix beg selective-display str var val search-backward " " 3000 move search-forward "Local Variables:" string-match "^19\\." ((byte-code "p! `\")!\"!" [buffer-file-name switch-to-buffer beginning-of-line set-window-start selected-window y-or-n-p format "Set local variables as specified at end of %s? " file-name-nondirectory] 9)) skip-chars-forward " " buffer-substring end-of-line match-beginning 0 beginning-of-line regexp-quote "$" re-search-forward "[ ]" forward-line 1 looking-at forward-char error "Local variables entry is missing the prefix" "^ " skip-chars-backward ":" "[ ]*:" "Missing colon in local variables entry" read string-equal downcase "end" "^:" " " "Local variables entry is terminated incorrectly" mode funcall intern symbol-name "-mode" eval string= user-login-name "root" message "Ignoring `eval:' in file's local variables" make-local-variable] 45)) (provide (quote hlvar))