emacs-pretest-bug
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: eval-print-last-sexp and newline


From: Stefan Monnier
Subject: Re: eval-print-last-sexp and newline
Date: Sat, 31 May 2003 19:30:19 -0400

If I do

        emacs -q --no-site-file
        then insert the code below
        then M-x eval-buffer
        then M-x customize-variable RET latex-block-args-alist RET

I get a customization buffer where the line underneath each "Interactor"
is indented twice as much as it should.  Does anyone know how
I can remedy/fix that without introducing an extra line between
"Interactor" and the list of elements ?


        Stefan


(defconst skeleton-custom-type
  `(cons :format "%v" ;; :indent 3
         (choice :tag "Interactor"
                 (const :tag "None" nil)
                 (string :tag "Prompt")
                 (repeat (string :tag "Prompt"))
                 (sexp :tag "Expression"))
         (repeat :format "%v%i\n"
                 ;; :entry-format "%d %v"
                 (choice :format "%[Value Menu%] %v":tag "Element"
                         string
                         character
                         (const :tag "Indent" >)
                         (const :tag "Newline" \n)
                         (const :tag "Place point and region" _)
                         (const :tag "Place point" -)
                         (const :tag "Remembered location" @)
                         (list :tag "Side effecting expression"
                               (const :format "" quote) (sexp :format "%v"))
                         (sexp :tag "Expression")))))

(defcustom latex-block-args-alist
  '(("array" nil ?\{ (skeleton-read "[options]: ") ?\})
    ("tabular" nil ?\{ (skeleton-read "[options]: ") ?\}))
  "Skeleton element to use for arguments to particular environments.
Every element of the list has the form (NAME . SKEL-ELEM) where NAME is
the name of the environment and SKEL-ELEM is an element to use in
a skeleton (see `skeleton-insert')."
  :type `(repeat :entry-format "%d %v"
                 (cons :format "%v" :indent 4
                       (string :tag "Environment")
                       ,skeleton-custom-type)))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]