mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

Drop Gnus compat functions

Browse Source 
* lisp/gnus/gnus-ems.el (gnus-mule-max-width-function): Remove.

* lisp/gnus/gnus-util.el (gnus-kill-all-overlays): Move here.

* lisp/gnus/gnus.el (gnus-mode-line-modified): Remove.
This commit is contained in:
Lars Ingebrigtsen 2016-02-10 14:34:22 +11:00
parent a3c2634f90
commit f962e3cde2
5 changed files with 12 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/gnus/gnus-ems.el
View File

@ -34,36 +34,6 @@
(defvar gnus-down-mouse-3 [down-mouse-3])
(defvar gnus-down-mouse-2 [down-mouse-2])
(defvar gnus-widget-button-keymap nil)
(defvar gnus-mode-line-modified
(if (featurep 'xemacs)
'("--**-" . "-----")
'("**" "--")))
(eval-and-compile
(autoload 'gnus-xmas-define "gnus-xmas")
(autoload 'gnus-xmas-redefine "gnus-xmas"))
(autoload 'gnus-get-buffer-create "gnus")
(autoload 'nnheader-find-etc-directory "nnheader")
(autoload 'smiley-region "smiley")
(defun gnus-kill-all-overlays ()
"Delete all overlays in the current buffer."
(let* ((overlayss (overlay-lists))
(buffer-read-only nil)
(overlays (delq nil (nconc (car overlayss) (cdr overlayss)))))
(while overlays
(delete-overlay (pop overlays)))))
;;; Mule functions.
(defun gnus-mule-max-width-function (el max-width)
`(let* ((val (eval (, el)))
(valstr (if (numberp val)
(int-to-string val) val)))
(if (> (length valstr) ,max-width)
(truncate-string-to-width valstr ,max-width)
valstr)))
(provide 'gnus-ems)

5
lisp/gnus/gnus-group.el
View File

@ -633,7 +633,7 @@ simple manner.")
"\M-e" gnus-group-edit-group-method
"^" gnus-group-enter-server-mode
gnus-mouse-2 gnus-mouse-pick-group
[follow-link] mouse-face
[follow-link] 'mouse-face
"<" beginning-of-buffer
">" end-of-buffer
"\C-c\C-b" gnus-bug
@ -1800,8 +1800,7 @@ already. If INFO-UNCHANGED is non-nil, dribble buffer is not updated."
(mode-string (eval gformat)))
;; Say whether the dribble buffer has been modified.
(setq mode-line-modified
(if modified (car gnus-mode-line-modified)
(cdr gnus-mode-line-modified)))
(if modified "**" "--"))
;; If the line is too long, we chop it off.
(when (> (length mode-string) max-len)
(setq mode-string (substring mode-string 0 (- max-len 4))))

2
lisp/gnus/gnus-spec.el
View File

@ -227,7 +227,7 @@ Return a list of updated types."
(defun gnus-mouse-face-function (form type)
`(gnus-put-text-property
(point) (progn ,@form (point))
mouse-face
'mouse-face
,(if (equal type 0)
'gnus-mouse-face
`(quote ,(symbol-value (intern (format "gnus-mouse-face-%d" type)))))))

8
lisp/gnus/gnus-util.el
View File

@ -2069,6 +2069,14 @@ lists of strings."
(setq start end
end nil))))))
(defun gnus-kill-all-overlays ()
"Delete all overlays in the current buffer."
(let* ((overlayss (overlay-lists))
(buffer-read-only nil)
(overlays (delq nil (nconc (car overlayss) (cdr overlayss)))))
(while overlays
(delete-overlay (pop overlays)))))
(provide 'gnus-util)
;;; gnus-util.el ends here

2
lisp/gnus/gnus.el
View File

@ -3448,7 +3448,7 @@ that that variable is buffer-local to the summary buffers."
(defun gnus-simplify-mode-line ()
"Make mode lines a bit simpler."
(setq mode-line-modified (cdr gnus-mode-line-modified))
(setq mode-line-modified "--")
(when (listp mode-line-format)
(make-local-variable 'mode-line-format)
(setq mode-line-format (copy-sequence mode-line-format))