[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el [emacs-unicode-2] |
Date: |
Thu, 04 Nov 2004 04:07:00 -0500 |
Index: emacs/lisp/gnus/gnus-spec.el
diff -c emacs/lisp/gnus/gnus-spec.el:1.5.24.2
emacs/lisp/gnus/gnus-spec.el:1.5.24.3
*** emacs/lisp/gnus/gnus-spec.el:1.5.24.2 Thu Sep 9 09:36:26 2004
--- emacs/lisp/gnus/gnus-spec.el Thu Nov 4 08:55:29 2004
***************
*** 32,43 ****
--- 32,45 ----
(defcustom gnus-use-correct-string-widths (featurep 'xemacs)
"*If non-nil, use correct functions for dealing with wide characters."
+ :version "21.4"
:group 'gnus-format
:type 'boolean)
(defcustom gnus-make-format-preserve-properties (featurep 'xemacs)
"*If non-nil, use a replacement `format' function which preserves
text properties. This is only needed on XEmacs, as FSF Emacs does this
anyway."
+ :version "21.4"
:group 'gnus-format
:type 'boolean)
***************
*** 183,189 ****
(insert (gnus-pp-to-string spec))))
(defun gnus-update-format-specifications (&optional force &rest types)
! "Update all (necessary) format specifications."
;; Make the indentation array.
;; See whether all the stored info needs to be flushed.
(when (or force
--- 185,192 ----
(insert (gnus-pp-to-string spec))))
(defun gnus-update-format-specifications (&optional force &rest types)
! "Update all (necessary) format specifications.
! Return a list of updated types."
;; Make the indentation array.
;; See whether all the stored info needs to be flushed.
(when (or force
***************
*** 195,207 ****
(setq gnus-format-specs nil))
;; Go through all the formats and see whether they need updating.
! (let (new-format entry type val)
(while (setq type (pop types))
;; Jump to the proper buffer to find out the value of the
;; variable, if possible. (It may be buffer-local.)
(save-excursion
! (let ((buffer (intern (format "gnus-%s-buffer" type)))
! val)
(when (and (boundp buffer)
(setq val (symbol-value buffer))
(gnus-buffer-exists-p val))
--- 198,209 ----
(setq gnus-format-specs nil))
;; Go through all the formats and see whether they need updating.
! (let (new-format entry type val updated)
(while (setq type (pop types))
;; Jump to the proper buffer to find out the value of the
;; variable, if possible. (It may be buffer-local.)
(save-excursion
! (let ((buffer (intern (format "gnus-%s-buffer" type))))
(when (and (boundp buffer)
(setq val (symbol-value buffer))
(gnus-buffer-exists-p val))
***************
*** 231,240 ****
(setcar (cdr entry) val)
(setcar entry new-format))
(push (list type new-format val) gnus-format-specs))
! (set (intern (format "gnus-%s-line-format-spec" type)) val)))))
! (unless (assq 'version gnus-format-specs)
! (push (cons 'version emacs-version) gnus-format-specs)))
(defvar gnus-mouse-face-0 'highlight)
(defvar gnus-mouse-face-1 'highlight)
--- 233,244 ----
(setcar (cdr entry) val)
(setcar entry new-format))
(push (list type new-format val) gnus-format-specs))
! (set (intern (format "gnus-%s-line-format-spec" type)) val)
! (push type updated))))
! (unless (assq 'version gnus-format-specs)
! (push (cons 'version emacs-version) gnus-format-specs))
! updated))
(defvar gnus-mouse-face-0 'highlight)
(defvar gnus-mouse-face-1 'highlight)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el [emacs-unicode-2],
Miles Bader <=