(defun hack-local-variables (&optional force) "\ Parse, and bind or evaluate as appropriate, any local variables for current buffer." (byte-code "ŠdbˆÏÐdÑZe]Ò#ˆÁÓÔÂÁ#…# ?†# †#Õ‹)…RÁ  Ö×!ˆl†HØ`Ù ˆ`\"‰ ˆÚÛ!bˆn†\\Ø`Ü ˆ`\"‰ˆ…nGÝ!‰ˆ …}Ý !ÞP‰ ˆ…Q ƒŽßà!‚‘áâ!ˆ…¨ã!ƒ¥ä!‚¨åæ!ˆÖ×!ˆ`‰ ˆÖç!ˆèé!ˆãê!†Ãåë!ˆØ `\" ì ! Âíî !ï\"ƒå‰‚LÖð!ˆäâ!ˆìp!‰ˆèñ!ˆÖ×!ˆ ƒã !‚ l†åò!ˆ ó=ƒ&ôõîö!!÷P!!‚L ø=ƒBùú û\"ƒ;üý!‚?ø!‚Lþ !ˆ L+ˆ‚~-)‡" [case-fold-search t nil inhibit-local-variables force buffer-file-name continue prefix prefixlen suffix beg selective-display str var val search-backward " " 3000 move search-forward "Local Variables:" ((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] 43)) (provide (quote hlvar))