diff options
| author | Miles Bader <miles@gnu.org> | 2007-12-06 09:51:45 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-12-06 09:51:45 +0000 |
| commit | 0bd508417142ff377f34aec8dcec9438d9175c2c (patch) | |
| tree | 4d60fe09e5cebf7d79766b11e9cda8cc1c9dbb9b /lisp/obsolete | |
| parent | 98fe991da804a42f53f6a5e84cd5eab18a82e181 (diff) | |
| parent | 9fb1ba8090da3528de56158a79bd3527d31c7f2f (diff) | |
| download | emacs-0bd508417142ff377f34aec8dcec9438d9175c2c.tar.gz emacs-0bd508417142ff377f34aec8dcec9438d9175c2c.tar.bz2 emacs-0bd508417142ff377f34aec8dcec9438d9175c2c.zip | |
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/fast-lock.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/mlsupport.el | 9 | ||||
| -rw-r--r-- | lisp/obsolete/rnews.el | 13 |
3 files changed, 3 insertions, 21 deletions
diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el index e2fb338242f..f34427c3140 100644 --- a/lisp/obsolete/fast-lock.el +++ b/lisp/obsolete/fast-lock.el @@ -183,6 +183,8 @@ (require 'font-lock) +(declare-function msdos-long-file-names "msdos.c") + ;; Make sure fast-lock.el is supported. (if (and (eq system-type 'ms-dos) (not (msdos-long-file-names))) (error "`fast-lock' was written for long file name systems")) diff --git a/lisp/obsolete/mlsupport.el b/lisp/obsolete/mlsupport.el index 2465ea4eabd..7e2663ed903 100644 --- a/lisp/obsolete/mlsupport.el +++ b/lisp/obsolete/mlsupport.el @@ -127,13 +127,6 @@ (defun ml-message (&rest args) (message "%s" (apply 'concat args))) -(defun kill-to-end-of-line () - (ml-prefix-argument-loop - (if (eolp) - (kill-region (point) (1+ (point))) - (kill-region (point) (if (search-forward ?\n nil t) - (1- (point)) (point-max)))))) - (defun set-auto-fill-hook (arg) (setq auto-fill-function (intern arg))) @@ -351,7 +344,7 @@ (setq count (1+ count))))) (defun ml-next-page () - (previous-page (- (ml-prefix-argument)))) + (ml-previous-page (- (ml-prefix-argument)))) (defun page-next-window (&optional arg) (let ((count (or arg (ml-prefix-argument)))) diff --git a/lisp/obsolete/rnews.el b/lisp/obsolete/rnews.el index bca9ea4824a..df1d386c77f 100644 --- a/lisp/obsolete/rnews.el +++ b/lisp/obsolete/rnews.el @@ -272,19 +272,6 @@ Type \\[describe-mode] once reading news to get a list of rnews commands." (news-push (cons news-current-news-group news-current-certifiable) news-current-certifications)))) -(defun news-set-minor-modes () - "Creates a minor mode list that has group name, total articles, -and attribute for current article." - (setq news-minor-modes (list (cons 'foo - (concat news-current-message-number - "/" - news-total-current-group - (news-get-attribute-string))))) - ;; Detect Emacs versions 18.16 and up, which display - ;; directly from news-minor-modes by using a list for mode-name. - (or (boundp 'minor-mode-alist) - (setq minor-modes news-minor-modes))) - (defun news-set-message-counters () "Scan through current news-groups filelist to figure out how many messages are there. Set counters for use with minor mode display." |