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

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

Re: minibuffer-prompt-properties badly initialized


From: Kim F. Storm
Subject: Re: minibuffer-prompt-properties badly initialized
Date: Sun, 25 Feb 2007 23:09:26 +0100
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.94 (gnu/linux)

"Lennart Borgman (gmail)" <address@hidden> writes:

> There is something wrong with the initialization of
> minibuffer-prompt-properties. Custom complains that it is
>
>   CHANGED outside Customize; ...
>

I don't understand why minibuffer-prompt-properties need to be
a defcustom.  What properties would a user want to add???


C-code initializes it like this:

  Vminibuffer_prompt_properties
    = Fcons (intern ("read-only"), Fcons (Qt, Qnil));

faces.el has this to add:

(setq minibuffer-prompt-properties
      (append minibuffer-prompt-properties (list 'face 'minibuffer-prompt)))

simple.el completely overrides the value (but furtunately commented out):

;(setq minibuffer-prompt-properties
;  (list 'modification-hooks '(minibuffer-prompt-modification)
;       'insert-in-front-hooks '(minibuffer-prompt-insertion)))


The defcustom comes from cus-start.el:

             (minibuffer-prompt-properties
              minibuffer
              (list
               (checklist :inline t
                          (const :tag "Read-Only"
                                 :doc "Prevent prompt from being modified"
                                 :format "%t%n%h"
                                 :inline t
                                 (read-only t))
                          (const :tag "Don't Enter"
                                 :doc "Prevent point from ever entering prompt"
                                 :format "%t%n%h"
                                 :inline t
                                 (point-entered minibuffer-avoid-prompt)))
               (repeat :inline t
                       :tag "Other Properties"
                       (list :inline t
                             :format "%v"
                             (symbol :tag "Property")
                             (sexp :tag "Value"))))
              "21.1")

-- 
Kim F. Storm <address@hidden> http://www.cua.dk





reply via email to

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