Re: How global is a define-global-minor-mode mode?

["Lennart Borgman (gmail)" <lennart.borgman@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 399 bytes --]

Lennart Borgman (gmail) wrote:

> Now back to the tests. If the above was a bit hard to grasp then maybe 
> the test will help. To run the tests first load this file and customize 
> the defcustom, define-minor-mode and define-global-minor-mode, all to t. 
> Then restart Emacs and load the file again and now look in the *Message* 
> buffer for the result.



And here are the tests, sorry ... ;-)

[-- Attachment #2: defcustom-or-minor.el --]
[-- Type: text/plain, Size: 1935 bytes --]

(message "\n\n>>>>>>> defcustom-or-minor.el starting loading, temp-global-mode=%s" 
         (if (boundp 'temp-global-mode)
             temp-global-mode
           "not boundp"))

(message "\n****** Declarations: *********")

(define-minor-mode temp-mode
  "dummy"
  :init-value nil
  :lighter nil
  :global t
  :group 'temp-test
  :initialize 'custom-initialize-set
  :set (lambda(sym val)
         (message "  temp-mode :set => sym=%s, val=%s" sym val)
         (set-default sym val))
  (message "  temp-mode body => temp-mode=%s, current-buffer=%s" temp-mode (current-buffer)))

(define-global-minor-mode temp-global-mode temp-mode
  (lambda()
    ;;(message "here %s" (substring (buffer-name) 0 1))
    (when (cond
           ((member (substring (buffer-name) 0 1) '(" " "*" "."))
            nil)
           (t t))
      (message "  temp-global-mode turn on called")
      (temp-mode 1)))
  :group 'temp-test
  :initialize 'custom-initialize-set
  :set (lambda(sym val)
         (message "  temp-global-mode :set => sym=%s, val=%s" sym val)
         (set-default sym val)))

(defcustom temp-defcustom nil
  "doc"
  :type 'boolean
  :group 'temp-test
  :set (lambda(sym val)
         (message "  temp-defcustom :set => sym=%s, val=%s" sym val)
         (set-default sym val)))


(message "\n****** Running tests: *********")

(message "*** (customize-set-variable 'temp-defcustom t) =>")
(customize-set-variable 'temp-defcustom t)

(message "\n*** (customize-set-variable 'temp-mode t) =>")
(customize-set-variable 'temp-mode t)
(message "*** (temp-mode 1) =>")
(temp-mode 1)

(message "\n*** (customize-set-variable 'temp-global-mode t) =>")
(temp-global-mode 1)
(message "*** (temp-global-mode 1) =>")
(customize-set-variable 'temp-global-mode t)

(message "\n<<<<<<<<< defcustom-or-minor.el loaded: temp-global-mode=%s, temp-mode=%s, temp-defcustom=%s\n\n"
         temp-global-mode
         temp-mode
         temp-defcustom)

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel