Elisp -- Check if a buffer has a valid `Local Variables' block

Elisp -- Check if a buffer has a valid `Local Variables' block

[Leo]

Dear all,

Emacs has some rules regarding the Local Variables block. I wonder if
there is a function to validate that block or go to that block etc. if
not could you help me create one?

#v+
(defun sdl:goto-local-variables ()
  (interactive)
  (let (pt pos)
    (save-excursion
      (goto-char (point-max))
      (save-restriction
        (narrow-to-page)
        (if (> (- (point-max) (point-min)) 3000)
            (setq pt (- (point-max) 3000))
          (setq pt (point-min))))
      (goto-char pt)
      (when (re-search-forward ".*Local Variables:\n\\(.*\n\\)*.*End:" nil t)
        (beginning-of-line 2)
        (setq pos (point))))
    (if pos
        (goto-char pos))))
#v-

-- 
Leo <sdl.web AT gmail.com>                         (GPG Key: 9283AA3F)

         Gnus is one component of the Emacs operating system.

Re: Elisp -- Check if a buffer has a valid `Local Variables' block

[Kevin Rodgers]

Leo wrote:
> Dear all,
> 
> Emacs has some rules regarding the Local Variables block. I wonder if
> there is a function to validate that block or go to that block etc. if
> not could you help me create one?
> 
> #v+
> (defun sdl:goto-local-variables ()
>   (interactive)
>   (let (pt pos)
>     (save-excursion
>       (goto-char (point-max))
>       (save-restriction
>         (narrow-to-page)
>         (if (> (- (point-max) (point-min)) 3000)
>             (setq pt (- (point-max) 3000))
>           (setq pt (point-min))))
>       (goto-char pt)
>       (when (re-search-forward ".*Local Variables:\n\\(.*\n\\)*.*End:" nil t)
>         (beginning-of-line 2)
>         (setq pos (point))))
>     (if pos
>         (goto-char pos))))

(condition-case nil
     (progn (hack-local-variables t) t)
   (error nil))

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: Elisp -- Check if a buffer has a valid `Local Variables' block

[Leo]

On 2007-09-03 15:27 +0100, Kevin Rodgers wrote:
> Leo wrote:
>> Dear all,
>>
>> Emacs has some rules regarding the Local Variables block. I wonder if
>
>> there is a function to validate that block or go to that block etc. if
>> not could you help me create one?
>>
>> #v+
>> (defun sdl:goto-local-variables ()
>>   (interactive)
>>   (let (pt pos)
>>     (save-excursion
>>       (goto-char (point-max))
>>       (save-restriction
>>         (narrow-to-page)
>>         (if (> (- (point-max) (point-min)) 3000)
>>             (setq pt (- (point-max) 3000))
>>           (setq pt (point-min))))
>>       (goto-char pt)
>>       (when (re-search-forward ".*Local Variables:\n\\(.*\n\\)*.*End:" nil t)
>>         (beginning-of-line 2)
>>         (setq pos (point))))
>>     (if pos
>>         (goto-char pos))))
>
> (condition-case nil
>     (progn (hack-local-variables t) t)
>   (error nil))

This looks neat. Thanks.

-- 
Leo <sdl.web AT gmail.com>                (GPG Key: 9283AA3F)

      Gnus is one component of the Emacs operating system.