Remove some unnecessary references to Emacs 22
* lisp/cedet/semantic/fw.el: * lisp/emacs-lisp/bytecomp.el (byte-compile-from-buffer): * lisp/emulation/viper-util.el (viper-frame-value): * lisp/mail/rmail.el (rmail-delete-headers): * lisp/mh-e/mh-e.el (mh-inc-spool-list): Remove some unnecessary references to Emacs 22.
This commit is contained in:
parent
db56e32d12
commit
c94b81bfc1
5 changed files with 3 additions and 15 deletions
|
@ -66,8 +66,6 @@
|
|||
|
||||
(defalias 'semantic-mode-line-update #'force-mode-line-update)
|
||||
|
||||
;; Since Emacs 22 major mode functions should use `run-mode-hooks' to
|
||||
;; run major mode hooks.
|
||||
(define-obsolete-function-alias 'semantic-run-mode-hooks #'run-mode-hooks "28.1")
|
||||
|
||||
;; Fancy compat usage now handled in cedet-compat
|
||||
|
|
|
@ -2230,8 +2230,7 @@ With argument ARG, insert value in current buffer after the form."
|
|||
(byte-compile-depth 0)
|
||||
(byte-compile-maxdepth 0)
|
||||
(byte-compile-output nil)
|
||||
;; This allows us to get the positions of symbols read; it's
|
||||
;; new in Emacs 22.1.
|
||||
;; This allows us to get the positions of symbols read.
|
||||
(read-with-symbol-positions inbuffer)
|
||||
(read-symbol-positions-list nil)
|
||||
;; #### This is bound in b-c-close-variables.
|
||||
|
|
|
@ -79,9 +79,6 @@
|
|||
(defmacro viper-frame-value (variable)
|
||||
"Return the value of VARIABLE local to the current frame, if there is one.
|
||||
Otherwise return the normal value."
|
||||
;; Frame-local variables are obsolete from Emacs 22.2 onwards,
|
||||
;; so we do it by hand instead.
|
||||
;; Buffer-local values take precedence over frame-local ones.
|
||||
`(if (local-variable-p ',variable)
|
||||
,variable
|
||||
;; Distinguish between no frame parameter and a frame parameter
|
||||
|
|
|
@ -4125,10 +4125,8 @@ typically for purposes of moderating a list."
|
|||
"A regexp that matches the separator before the text of a failed message.")
|
||||
|
||||
(defvar mail-mime-unsent-header "^Content-Type: message/rfc822 *$"
|
||||
"A regexp that matches the header of a MIME body part with a failed message.")
|
||||
"A regexp that matches the header of a MIME body part with a failed message.")
|
||||
|
||||
;; This is a cut-down version of rmail-clear-headers from Emacs 22.
|
||||
;; It doesn't have the same functionality, hence the name change.
|
||||
(defun rmail-delete-headers (regexp)
|
||||
"Delete any mail headers matching REGEXP.
|
||||
The message should be narrowed to just the headers."
|
||||
|
@ -4136,10 +4134,6 @@ The message should be narrowed to just the headers."
|
|||
(goto-char (point-min))
|
||||
(while (re-search-forward regexp nil t)
|
||||
(beginning-of-line)
|
||||
;; This code from Emacs 22 doesn't seem right, since r-n-h is
|
||||
;; just for display.
|
||||
;;; (if (looking-at rmail-nonignored-headers)
|
||||
;;; (forward-line 1)
|
||||
(delete-region (point)
|
||||
(save-excursion
|
||||
(if (re-search-forward "\n[^ \t]" nil t)
|
||||
|
|
|
@ -1607,7 +1607,7 @@ on the \"INS\" button. Enter a \"Spool File\" of \"~/mail/mh-e\", a
|
|||
\"Folder\" of \"mh-e\", and a \"Key Binding\" of \"m\".
|
||||
|
||||
You can use \"xbuffy\" to automate the incorporation of this mail
|
||||
using the Emacs 22 command \"emacsclient\" as follows:
|
||||
using \"emacsclient\" as follows:
|
||||
|
||||
box ~/mail/mh-e
|
||||
title mh-e
|
||||
|
|
Loading…
Add table
Reference in a new issue