mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-04 11:40:22 +00:00
The tedious game of whack-a-mole with compiler warnings continues
* lisp/abbrev.el (edit-abbrevs-map): * lisp/emacs-lock.el (emacs-lock-from-exiting): * lisp/htmlfontify.el (hfy-optimisations): * lisp/ielm.el (inferior-emacs-lisp-mode-hook) (inferior-emacs-lisp-mode-map): * lisp/isearch.el (isearch-lazy-highlight-word): * lisp/select.el (x-select-enable-clipboard, x-select-enable-primary): * lisp/shell.el (shell-dirtrack-mode): * lisp/skeleton.el (skeleton-transformation, skeleton-filter): * lisp/startup.el (inhibit-splash-screen, inhibit-startup-message): * lisp/window.el (even-window-heights): * lisp/calendar/timeclock.el (timeclock-modeline-display): * lisp/cedet/semantic/db-mode.el (semanticdb-mode-hook) (semanticdb-global-mode): * lisp/emacs-lisp/edebug.el (gud-inhibit-global-bindings): * lisp/emacs-lisp/warnings.el (display-warning-minimum-level) (log-warning-minimum-level): * lisp/erc/erc-dcc.el (erc-dcc-chat-filter-hook): * lisp/gnus/nnspool.el (news-path): * lisp/org/org-agenda.el (org-agenda-search-view-search-words-only) (org-agenda-remove-tags-when-in-prefix) (org-agenda-align-tags-to-column, org-agenda-keymap): * lisp/org/org.el (org-special-ctrl-a) (org-log-state-notes-into-drawer) (org-agenda-multi-occur-extra-files): * lisp/progmodes/flymake-proc.el (flymake-err-line-patterns) (flymake-check-file-limit): * lisp/progmodes/make-mode.el (makefile-query-one-target-method): * lisp/progmodes/octave.el (inferior-octave-startup-hook): * lisp/progmodes/python.el (python-buffer) (python-preoutput-result): * lisp/progmodes/sql.el (sql-dialect): * lisp/textmodes/artist.el (artist-text-renderer): * lisp/textmodes/bibtex.el (bibtex-autokey-name-case-convert) (bibtex-autokey-titleword-case-convert): * lisp/textmodes/flyspell.el (flyspell-generic-check-word-p): * lisp/textmodes/ispell.el (ispell-format-word): * lisp/textmodes/rst.el (rst-preferred-decorations): * lisp/textmodes/sgml-mode.el (sgml-transformation): Move aliases before targets, to silence new compiler warning. * lisp/term/ns-win.el (ns-option-modifier, ns-right-option-modifier): Silence warning.
This commit is contained in:
Glenn Morris
parent
495963cfaf
commit
9c3eeba4db
@ -68,6 +68,8 @@ be replaced by its expansion."
|
||||
(put 'abbrev-mode 'safe-local-variable 'booleanp)
|
||||
|
||||
|
||||
(define-obsolete-variable-alias 'edit-abbrevs-map
|
||||
'edit-abbrevs-mode-map "24.4")
|
||||
(defvar edit-abbrevs-mode-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map "\C-x\C-s" 'abbrev-edit-save-buffer)
|
||||
@ -75,8 +77,6 @@ be replaced by its expansion."
|
||||
(define-key map "\C-c\C-c" 'edit-abbrevs-redefine)
|
||||
map)
|
||||
"Keymap used in `edit-abbrevs'.")
|
||||
(define-obsolete-variable-alias 'edit-abbrevs-map
|
||||
'edit-abbrevs-mode-map "24.4")
|
||||
|
||||
(defun kill-all-abbrevs ()
|
||||
"Undefine all defined abbrevs."
|
||||
|
||||
@ -144,6 +144,9 @@ This variable only has effect if set with \\[customize]."
|
||||
(defvar timeclock-update-timer nil
|
||||
"The timer used to update `timeclock-mode-string'.")
|
||||
|
||||
(define-obsolete-variable-alias 'timeclock-modeline-display
|
||||
'timeclock-mode-line-display "24.3")
|
||||
|
||||
;; For byte-compiler.
|
||||
(defvar display-time-hook)
|
||||
(defvar timeclock-mode-line-display)
|
||||
@ -271,8 +274,6 @@ The time is bracketed by <> if you are clocked in, otherwise by [].")
|
||||
|
||||
(define-obsolete-function-alias 'timeclock-modeline-display
|
||||
'timeclock-mode-line-display "24.3")
|
||||
(define-obsolete-variable-alias 'timeclock-modeline-display
|
||||
'timeclock-mode-line-display "24.3")
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode timeclock-mode-line-display
|
||||
|
||||
@ -50,6 +50,9 @@
|
||||
(member (car (car semanticdb-hooks))
|
||||
(symbol-value (car (cdr (car semanticdb-hooks))))))
|
||||
|
||||
(defvaralias 'semanticdb-mode-hook 'global-semanticdb-minor-mode-hook)
|
||||
(defvaralias 'semanticdb-global-mode 'global-semanticdb-minor-mode)
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode global-semanticdb-minor-mode
|
||||
"Toggle Semantic DB mode.
|
||||
@ -67,8 +70,6 @@ database, which can be saved for future Emacs sessions."
|
||||
(dolist (elt semanticdb-hooks)
|
||||
(remove-hook (cadr elt) (car elt)))))
|
||||
|
||||
(defvaralias 'semanticdb-mode-hook 'global-semanticdb-minor-mode-hook)
|
||||
(defvaralias 'semanticdb-global-mode 'global-semanticdb-minor-mode)
|
||||
(semantic-varalias-obsolete 'semanticdb-mode-hooks
|
||||
'global-semanticdb-minor-mode-hook "23.2")
|
||||
|
||||
|
||||
@ -3546,14 +3546,14 @@ This prints the value into current buffer."
|
||||
|
||||
;;; Edebug Minor Mode
|
||||
|
||||
(define-obsolete-variable-alias 'gud-inhibit-global-bindings
|
||||
'edebug-inhibit-emacs-lisp-mode-bindings "24.3")
|
||||
|
||||
(defvar edebug-inhibit-emacs-lisp-mode-bindings nil
|
||||
"If non-nil, inhibit Edebug bindings on the C-x C-a key.
|
||||
By default, loading the `edebug' library causes these bindings to
|
||||
be installed in `emacs-lisp-mode-map'.")
|
||||
|
||||
(define-obsolete-variable-alias 'gud-inhibit-global-bindings
|
||||
'edebug-inhibit-emacs-lisp-mode-bindings "24.3")
|
||||
|
||||
;; Global GUD bindings for all emacs-lisp-mode buffers.
|
||||
(unless edebug-inhibit-emacs-lisp-mode-bindings
|
||||
(define-key emacs-lisp-mode-map "\C-x\C-a\C-s" 'edebug-step-mode)
|
||||
|
||||
@ -68,6 +68,7 @@ Each element looks like (ALIAS . LEVEL) and defines ALIAS as
|
||||
equivalent to LEVEL. LEVEL must be defined in `warning-levels';
|
||||
it may not itself be an alias.")
|
||||
|
||||
(defvaralias 'display-warning-minimum-level 'warning-minimum-level)
|
||||
(defcustom warning-minimum-level :warning
|
||||
"Minimum severity level for displaying the warning buffer.
|
||||
If a warning's severity level is lower than this,
|
||||
@ -77,8 +78,8 @@ is not immediately displayed. See also `warning-minimum-log-level'."
|
||||
:type '(choice (const :emergency) (const :error)
|
||||
(const :warning) (const :debug))
|
||||
:version "22.1")
|
||||
(defvaralias 'display-warning-minimum-level 'warning-minimum-level)
|
||||
|
||||
(defvaralias 'log-warning-minimum-level 'warning-minimum-log-level)
|
||||
(defcustom warning-minimum-log-level :warning
|
||||
"Minimum severity level for logging a warning.
|
||||
If a warning severity level is lower than this,
|
||||
@ -89,7 +90,6 @@ because warnings not logged aren't displayed either."
|
||||
:type '(choice (const :emergency) (const :error)
|
||||
(const :warning) (const :debug))
|
||||
:version "22.1")
|
||||
(defvaralias 'log-warning-minimum-level 'warning-minimum-log-level)
|
||||
|
||||
(defcustom warning-suppress-log-types nil
|
||||
"List of warning types that should not be logged.
|
||||
|
||||
@ -88,6 +88,9 @@ The functions get one argument, the first locked buffer found."
|
||||
:group 'emacs-lock
|
||||
:version "24.3")
|
||||
|
||||
(define-obsolete-variable-alias 'emacs-lock-from-exiting
|
||||
'emacs-lock-mode "24.1")
|
||||
|
||||
(defvar-local emacs-lock-mode nil
|
||||
"If non-nil, the current buffer is locked.
|
||||
It can be one of the following values:
|
||||
@ -182,9 +185,6 @@ Return a value appropriate for `kill-buffer-query-functions' (which see)."
|
||||
;; anything else (turn off)
|
||||
mode))))
|
||||
|
||||
(define-obsolete-variable-alias 'emacs-lock-from-exiting
|
||||
'emacs-lock-mode "24.1")
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode emacs-lock-mode
|
||||
"Toggle Emacs Lock mode in the current buffer.
|
||||
|
||||
@ -1094,14 +1094,14 @@ Possible values are: ask, auto, ignore."
|
||||
(pcomplete-here '("auto" "ask" "ignore")))
|
||||
(defalias 'pcomplete/erc-mode/SREQ 'pcomplete/erc-mode/CREQ)
|
||||
|
||||
(define-obsolete-variable-alias 'erc-dcc-chat-filter-hook
|
||||
'erc-dcc-chat-filter-functions "24.3")
|
||||
|
||||
(defvar erc-dcc-chat-filter-functions '(erc-dcc-chat-parse-output)
|
||||
"Abnormal hook run after parsing (and maybe inserting) a DCC message.
|
||||
Each function is called with two arguments: the ERC process and
|
||||
the unprocessed output.")
|
||||
|
||||
(define-obsolete-variable-alias 'erc-dcc-chat-filter-hook
|
||||
'erc-dcc-chat-filter-functions "24.3")
|
||||
|
||||
(defvar erc-dcc-chat-mode-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map (kbd "RET") 'erc-send-current-line)
|
||||
|
||||
@ -35,11 +35,11 @@
|
||||
;; It's only used to init nnspool-spool-directory, so why not just
|
||||
;; set that variable's default directly?
|
||||
(eval-and-compile
|
||||
(defvaralias 'news-path 'news-directory)
|
||||
(defvar news-directory (if (file-exists-p "/usr/spool/news/")
|
||||
"/usr/spool/news/"
|
||||
"/var/spool/news/")
|
||||
"The root directory below which all news files are stored.")
|
||||
(defvaralias 'news-path 'news-directory))
|
||||
"The root directory below which all news files are stored."))
|
||||
|
||||
;; Ditto re obsolescence.
|
||||
(defvar news-inews-program
|
||||
|
||||
@ -448,6 +448,7 @@ and so on."
|
||||
(background (choice (const :tag "Dark" dark )
|
||||
(const :tag "Bright" light ))) ))
|
||||
|
||||
(define-obsolete-variable-alias 'hfy-optimisations 'hfy-optimizations "25.1")
|
||||
(defcustom hfy-optimizations (list 'keep-overlays)
|
||||
"Optimizations to turn on: So far, the following have been implemented:\n
|
||||
merge-adjacent-tags: If two (or more) span tags are adjacent, identical and
|
||||
@ -483,7 +484,6 @@ which can never slow you down, but may result in incomplete fontification."
|
||||
(const :tag "body-text-only" body-text-only ))
|
||||
:group 'htmlfontify
|
||||
:tag "optimizations")
|
||||
(define-obsolete-variable-alias 'hfy-optimisations 'hfy-optimizations "25.1")
|
||||
|
||||
(defvar hfy-tags-cache nil
|
||||
"Alist of the form:\n
|
||||
|
||||
@ -115,12 +115,12 @@ such as `edebug-defun' to work with such inputs."
|
||||
:type 'boolean
|
||||
:group 'ielm)
|
||||
|
||||
(defvaralias 'inferior-emacs-lisp-mode-hook 'ielm-mode-hook)
|
||||
(defcustom ielm-mode-hook nil
|
||||
"Hooks to be run when IELM (`inferior-emacs-lisp-mode') is started."
|
||||
:options '(eldoc-mode)
|
||||
:type 'hook
|
||||
:group 'ielm)
|
||||
(defvaralias 'inferior-emacs-lisp-mode-hook 'ielm-mode-hook)
|
||||
|
||||
(defvar * nil
|
||||
"Most recent value evaluated in IELM.")
|
||||
@ -165,6 +165,7 @@ This variable is buffer-local.")
|
||||
"*** Welcome to IELM *** Type (describe-mode) for help.\n"
|
||||
"Message to display when IELM is started.")
|
||||
|
||||
(defvaralias 'inferior-emacs-lisp-mode-map 'ielm-map)
|
||||
(defvar ielm-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map "\t" 'ielm-tab)
|
||||
@ -183,7 +184,6 @@ This variable is buffer-local.")
|
||||
(define-key map "\C-c\C-v" 'ielm-print-working-buffer)
|
||||
map)
|
||||
"Keymap for IELM mode.")
|
||||
(defvaralias 'inferior-emacs-lisp-mode-map 'ielm-map)
|
||||
|
||||
(easy-menu-define ielm-menu ielm-map
|
||||
"IELM mode menu."
|
||||
|
||||
@ -3181,9 +3181,9 @@ since they have special meaning in a regexp."
|
||||
(defvar isearch-lazy-highlight-regexp nil)
|
||||
(defvar isearch-lazy-highlight-lax-whitespace nil)
|
||||
(defvar isearch-lazy-highlight-regexp-lax-whitespace nil)
|
||||
(defvar isearch-lazy-highlight-regexp-function nil)
|
||||
(define-obsolete-variable-alias 'isearch-lazy-highlight-word
|
||||
'isearch-lazy-highlight-regexp-function "25.1")
|
||||
(defvar isearch-lazy-highlight-regexp-function nil)
|
||||
(defvar isearch-lazy-highlight-forward nil)
|
||||
(defvar isearch-lazy-highlight-error nil)
|
||||
|
||||
|
||||
@ -1401,6 +1401,9 @@ current display in the agenda."
|
||||
:group 'org-agenda-daily/weekly
|
||||
:type 'plist)
|
||||
|
||||
(defvaralias 'org-agenda-search-view-search-words-only
|
||||
'org-agenda-search-view-always-boolean)
|
||||
|
||||
(defcustom org-agenda-search-view-always-boolean nil
|
||||
"Non-nil means the search string is interpreted as individual parts.
|
||||
|
||||
@ -1429,9 +1432,6 @@ boolean search."
|
||||
:version "24.1"
|
||||
:type 'boolean)
|
||||
|
||||
(defvaralias 'org-agenda-search-view-search-words-only
|
||||
'org-agenda-search-view-always-boolean)
|
||||
|
||||
(defcustom org-agenda-search-view-force-full-words nil
|
||||
"Non-nil means, search words must be matches as complete words.
|
||||
When nil, they may also match part of a word."
|
||||
@ -1873,6 +1873,9 @@ Nil means don't hide any tags."
|
||||
(const :tag "Hide none" nil)
|
||||
(string :tag "Regexp ")))
|
||||
|
||||
(defvaralias 'org-agenda-remove-tags-when-in-prefix
|
||||
'org-agenda-remove-tags)
|
||||
|
||||
(defcustom org-agenda-remove-tags nil
|
||||
"Non-nil means remove the tags from the headline copy in the agenda.
|
||||
When this is the symbol `prefix', only remove tags when
|
||||
@ -1883,8 +1886,7 @@ When this is the symbol `prefix', only remove tags when
|
||||
(const :tag "Never" nil)
|
||||
(const :tag "When prefix format contains %T" prefix)))
|
||||
|
||||
(defvaralias 'org-agenda-remove-tags-when-in-prefix
|
||||
'org-agenda-remove-tags)
|
||||
(defvaralias 'org-agenda-align-tags-to-column 'org-agenda-tags-column)
|
||||
|
||||
(defcustom org-agenda-tags-column 'auto
|
||||
"Shift tags in agenda items to this column.
|
||||
@ -1902,8 +1904,6 @@ character screen."
|
||||
:package-version '(Org . "9.1")
|
||||
:version "26.1")
|
||||
|
||||
(defvaralias 'org-agenda-align-tags-to-column 'org-agenda-tags-column)
|
||||
|
||||
(defcustom org-agenda-fontify-priorities 'cookies
|
||||
"Non-nil means highlight low and high priorities in agenda.
|
||||
When t, the highest priority entries are bold, lowest priority italic.
|
||||
@ -2067,9 +2067,9 @@ works you probably want to add it to `org-agenda-custom-commands' for good."
|
||||
|
||||
;;; Define the org-agenda-mode
|
||||
|
||||
(defvaralias 'org-agenda-keymap 'org-agenda-mode-map)
|
||||
(defvar org-agenda-mode-map (make-sparse-keymap)
|
||||
"Keymap for `org-agenda-mode'.")
|
||||
(defvaralias 'org-agenda-keymap 'org-agenda-mode-map)
|
||||
|
||||
(defvar org-agenda-menu) ; defined later in this file.
|
||||
(defvar org-agenda-restrict nil) ; defined later in this file.
|
||||
|
||||
@ -1490,6 +1490,8 @@ time in Emacs."
|
||||
:group 'org-edit-structure
|
||||
:type 'boolean)
|
||||
|
||||
(defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e)
|
||||
|
||||
(defcustom org-special-ctrl-a/e nil
|
||||
"Non-nil means `C-a' and `C-e' behave specially in headlines and items.
|
||||
|
||||
@ -1527,7 +1529,6 @@ This may also be a cons cell where the behavior for `C-a' and
|
||||
(const :tag "off" nil)
|
||||
(const :tag "on: before tags first" t)
|
||||
(const :tag "reversed: after tags first" reversed)))))
|
||||
(defvaralias 'org-special-ctrl-a 'org-special-ctrl-a/e)
|
||||
|
||||
(defcustom org-special-ctrl-k nil
|
||||
"Non-nil means `C-k' will behave specially in headlines.
|
||||
@ -3005,6 +3006,8 @@ because Agenda Log mode depends on the format of these entries."
|
||||
(unless (assq 'note org-log-note-headings)
|
||||
(push '(note . "%t") org-log-note-headings))
|
||||
|
||||
(defvaralias 'org-log-state-notes-into-drawer 'org-log-into-drawer)
|
||||
|
||||
(defcustom org-log-into-drawer nil
|
||||
"Non-nil means insert state change notes and time stamps into a drawer.
|
||||
When nil, state changes notes will be inserted after the headline and
|
||||
@ -3036,8 +3039,6 @@ function `org-log-into-drawer' instead."
|
||||
(const :tag "LOGBOOK" t)
|
||||
(string :tag "Other")))
|
||||
|
||||
(defvaralias 'org-log-state-notes-into-drawer 'org-log-into-drawer)
|
||||
|
||||
(defun org-log-into-drawer ()
|
||||
"Name of the log drawer, as a string, or nil.
|
||||
This is the value of `org-log-into-drawer'. However, if the
|
||||
@ -3798,6 +3799,9 @@ regular expression will be included."
|
||||
:group 'org-agenda
|
||||
:type 'regexp)
|
||||
|
||||
(defvaralias 'org-agenda-multi-occur-extra-files
|
||||
'org-agenda-text-search-extra-files)
|
||||
|
||||
(defcustom org-agenda-text-search-extra-files nil
|
||||
"List of extra files to be searched by text search commands.
|
||||
These files will be searched in addition to the agenda files by the
|
||||
@ -3815,9 +3819,6 @@ scope."
|
||||
(const :tag "Agenda Archives" agenda-archives)
|
||||
(repeat :inline t (file))))
|
||||
|
||||
(defvaralias 'org-agenda-multi-occur-extra-files
|
||||
'org-agenda-text-search-extra-files)
|
||||
|
||||
(defcustom org-agenda-skip-unavailable-files nil
|
||||
"Non-nil means to just skip non-reachable files in `org-agenda-files'.
|
||||
A nil value means to remove them, after a query, from the list."
|
||||
|
||||
@ -158,6 +158,9 @@ Convert it to Flymake internal format."
|
||||
(setq converted-list (cons (list regexp file line col) converted-list)))))
|
||||
converted-list))
|
||||
|
||||
(define-obsolete-variable-alias 'flymake-err-line-patterns
|
||||
'flymake-proc-err-line-patterns "26.1")
|
||||
|
||||
(defvar flymake-proc-err-line-patterns ; regexp file-idx line-idx col-idx (optional) text-idx(optional), match-end to end of string is error text
|
||||
(append
|
||||
'(
|
||||
@ -335,6 +338,9 @@ to the beginning of the list (File.h -> File.cpp moved to top)."
|
||||
(file-name-base file-one))
|
||||
(not (equal file-one file-two))))
|
||||
|
||||
(define-obsolete-variable-alias 'flymake-check-file-limit
|
||||
'flymake-proc-check-file-limit "26.1")
|
||||
|
||||
(defvar flymake-proc-check-file-limit 8192
|
||||
"Maximum number of chars to look at when checking possible master file.
|
||||
Nil means search the entire file.")
|
||||
@ -1148,12 +1154,8 @@ Use CREATE-TEMP-F for creating temp copy."
|
||||
|
||||
;;;;
|
||||
|
||||
(define-obsolete-variable-alias 'flymake-check-file-limit
|
||||
'flymake-proc-check-file-limit "26.1")
|
||||
(define-obsolete-function-alias 'flymake-reformat-err-line-patterns-from-compile-el
|
||||
'flymake-proc-reformat-err-line-patterns-from-compile-el "26.1")
|
||||
(define-obsolete-variable-alias 'flymake-err-line-patterns
|
||||
'flymake-proc-err-line-patterns "26.1")
|
||||
(define-obsolete-function-alias 'flymake-parse-line
|
||||
'flymake-proc-parse-line "26.1")
|
||||
(define-obsolete-function-alias 'flymake-get-include-dirs
|
||||
|
||||
@ -557,6 +557,9 @@ This should identify a `make' command that can handle the `-q' option."
|
||||
:type 'string
|
||||
:group 'makefile)
|
||||
|
||||
(defvaralias 'makefile-query-one-target-method
|
||||
'makefile-query-one-target-method-function)
|
||||
|
||||
(defcustom makefile-query-one-target-method-function
|
||||
'makefile-query-by-make-minus-q
|
||||
"Function to call to determine whether a make target is up to date.
|
||||
@ -574,8 +577,6 @@ The function must satisfy this calling convention:
|
||||
makefile, any nonzero integer value otherwise."
|
||||
:type 'function
|
||||
:group 'makefile)
|
||||
(defvaralias 'makefile-query-one-target-method
|
||||
'makefile-query-one-target-method-function)
|
||||
|
||||
(defcustom makefile-up-to-date-buffer-name "*Makefile Up-to-date overview*"
|
||||
"Name of the Up-to-date overview buffer."
|
||||
|
||||
@ -639,6 +639,9 @@ mode, include \"-q\" and \"--traditional\"."
|
||||
:type '(repeat string)
|
||||
:version "24.4")
|
||||
|
||||
(define-obsolete-variable-alias 'inferior-octave-startup-hook
|
||||
'inferior-octave-mode-hook "24.4")
|
||||
|
||||
(defcustom inferior-octave-mode-hook nil
|
||||
"Hook to be run when Inferior Octave mode is started."
|
||||
:type 'hook)
|
||||
@ -693,9 +696,6 @@ mode, include \"-q\" and \"--traditional\"."
|
||||
(defvar inferior-octave-output-string nil)
|
||||
(defvar inferior-octave-receive-in-progress nil)
|
||||
|
||||
(define-obsolete-variable-alias 'inferior-octave-startup-hook
|
||||
'inferior-octave-mode-hook "24.4")
|
||||
|
||||
(defvar inferior-octave-dynamic-complete-functions
|
||||
'(inferior-octave-completion-at-point comint-filename-completion)
|
||||
"List of functions called to perform completion for inferior Octave.
|
||||
|
||||
@ -2923,11 +2923,17 @@ be asked for their values."
|
||||
"Instead call `python-shell-get-process' and create one if returns nil."
|
||||
"25.1")
|
||||
|
||||
(define-obsolete-variable-alias
|
||||
'python-buffer 'python-shell-internal-buffer "24.3")
|
||||
|
||||
(defvar python-shell-internal-buffer nil
|
||||
"Current internal shell buffer for the current buffer.
|
||||
This is really not necessary at all for the code to work but it's
|
||||
there for compatibility with CEDET.")
|
||||
|
||||
(define-obsolete-variable-alias
|
||||
'python-preoutput-result 'python-shell-internal-last-output "24.3")
|
||||
|
||||
(defvar python-shell-internal-last-output nil
|
||||
"Last output captured by the internal shell.
|
||||
This is really not necessary at all for the code to work but it's
|
||||
@ -2943,12 +2949,6 @@ there for compatibility with CEDET.")
|
||||
(define-obsolete-function-alias
|
||||
'python-proc 'python-shell-internal-get-or-create-process "24.3")
|
||||
|
||||
(define-obsolete-variable-alias
|
||||
'python-buffer 'python-shell-internal-buffer "24.3")
|
||||
|
||||
(define-obsolete-variable-alias
|
||||
'python-preoutput-result 'python-shell-internal-last-output "24.3")
|
||||
|
||||
(defun python-shell--save-temp-file (string)
|
||||
(let* ((temporary-file-directory
|
||||
(if (file-remote-p default-directory)
|
||||
|
||||
@ -691,6 +691,8 @@ making new SQLi sessions."
|
||||
:version "24.1"
|
||||
:group 'SQL)
|
||||
|
||||
(defvaralias 'sql-dialect 'sql-product)
|
||||
|
||||
(defcustom sql-product 'ansi
|
||||
"Select the SQL database product used.
|
||||
This allows highlighting buffers properly when you open them."
|
||||
@ -703,7 +705,6 @@ This allows highlighting buffers properly when you open them."
|
||||
sql-product-alist))
|
||||
:group 'SQL
|
||||
:safe 'symbolp)
|
||||
(defvaralias 'sql-dialect 'sql-product)
|
||||
|
||||
;; misc customization of sql.el behavior
|
||||
|
||||
|
||||
@ -86,6 +86,8 @@ After the communication, this variable is set to nil.")
|
||||
;; Only declared obsolete in 23.3.
|
||||
(define-obsolete-function-alias 'x-selection 'x-get-selection "at least 19.34")
|
||||
|
||||
(define-obsolete-variable-alias 'x-select-enable-clipboard
|
||||
'select-enable-clipboard "25.1")
|
||||
(defcustom select-enable-clipboard t
|
||||
"Non-nil means cutting and pasting uses the clipboard.
|
||||
This can be in addition to, but in preference to, the primary selection,
|
||||
@ -94,9 +96,9 @@ if applicable (i.e. under X11)."
|
||||
:group 'killing
|
||||
;; The GNU/Linux version changed in 24.1, the MS-Windows version did not.
|
||||
:version "24.1")
|
||||
(define-obsolete-variable-alias 'x-select-enable-clipboard
|
||||
'select-enable-clipboard "25.1")
|
||||
|
||||
(define-obsolete-variable-alias 'x-select-enable-primary
|
||||
'select-enable-primary "25.1")
|
||||
(defcustom select-enable-primary nil
|
||||
"Non-nil means cutting and pasting uses the primary selection.
|
||||
The existence of a primary selection depends on the underlying GUI you use.
|
||||
@ -104,8 +106,6 @@ E.g. it doesn't exist under MS-Windows."
|
||||
:type 'boolean
|
||||
:group 'killing
|
||||
:version "25.1")
|
||||
(define-obsolete-variable-alias 'x-select-enable-primary
|
||||
'select-enable-primary "25.1")
|
||||
|
||||
;; We keep track of the last text selected here, so we can check the
|
||||
;; current selection against it, and avoid passing back our own text
|
||||
|
||||
@ -315,6 +315,8 @@ for Shell mode only."
|
||||
"List of directories saved by pushd in this buffer's shell.
|
||||
Thus, this does not include the shell's current directory.")
|
||||
|
||||
(defvaralias 'shell-dirtrack-mode 'shell-dirtrackp)
|
||||
|
||||
(defvar shell-dirtrackp t
|
||||
"Non-nil in a shell buffer means directory tracking is enabled.")
|
||||
|
||||
@ -961,7 +963,6 @@ Environment variables are expanded, see function `substitute-in-file-name'."
|
||||
(and (string-match "^\\+[1-9][0-9]*$" str)
|
||||
(string-to-number str)))
|
||||
|
||||
(defvaralias 'shell-dirtrack-mode 'shell-dirtrackp)
|
||||
(define-minor-mode shell-dirtrack-mode
|
||||
"Toggle directory tracking in this shell buffer (Shell Dirtrack mode).
|
||||
With a prefix argument ARG, enable Shell Dirtrack mode if ARG is
|
||||
|
||||
@ -37,13 +37,13 @@
|
||||
;; page 2: paired insertion
|
||||
;; page 3: mirror-mode, an example for setting up paired insertion
|
||||
|
||||
(defvaralias 'skeleton-transformation 'skeleton-transformation-function)
|
||||
|
||||
(defvar skeleton-transformation-function 'identity
|
||||
"If non-nil, function applied to literal strings before they are inserted.
|
||||
It should take strings and characters and return them transformed, or nil
|
||||
which means no transformation.
|
||||
Typical examples might be `upcase' or `capitalize'.")
|
||||
(defvaralias 'skeleton-transformation 'skeleton-transformation-function)
|
||||
|
||||
; this should be a fourth argument to defvar
|
||||
(put 'skeleton-transformation-function 'variable-interactive
|
||||
@ -65,11 +65,11 @@ region.")
|
||||
"Hook called at end of skeleton but before going to point of interest.
|
||||
The variables `v1' and `v2' are still set when calling this.")
|
||||
|
||||
(defvaralias 'skeleton-filter 'skeleton-filter-function)
|
||||
|
||||
;;;###autoload
|
||||
(defvar skeleton-filter-function 'identity
|
||||
"Function for transforming a skeleton proxy's aliases' variable value.")
|
||||
(defvaralias 'skeleton-filter 'skeleton-filter-function)
|
||||
|
||||
(defvar skeleton-untabify nil ; bug#12223
|
||||
"When non-nil untabifies when deleting backwards with element -ARG.")
|
||||
|
||||
@ -63,6 +63,9 @@ string or function value that this variable has."
|
||||
:version "23.1"
|
||||
:group 'initialization)
|
||||
|
||||
(defvaralias 'inhibit-splash-screen 'inhibit-startup-screen)
|
||||
(defvaralias 'inhibit-startup-message 'inhibit-startup-screen)
|
||||
|
||||
(defcustom inhibit-startup-screen nil
|
||||
"Non-nil inhibits the startup screen.
|
||||
|
||||
@ -71,9 +74,6 @@ once you are familiar with the contents of the startup screen."
|
||||
:type 'boolean
|
||||
:group 'initialization)
|
||||
|
||||
(defvaralias 'inhibit-splash-screen 'inhibit-startup-screen)
|
||||
(defvaralias 'inhibit-startup-message 'inhibit-startup-screen)
|
||||
|
||||
(defvar startup-screen-inhibit-startup-screen nil)
|
||||
|
||||
;; The mechanism used to ensure that only end users can disable this
|
||||
|
||||
@ -549,8 +549,9 @@ the last file dropped is selected."
|
||||
(defvar ns-right-control-modifier)
|
||||
|
||||
;; You say tomAYto, I say tomAHto..
|
||||
(defvaralias 'ns-option-modifier 'ns-alternate-modifier)
|
||||
(defvaralias 'ns-right-option-modifier 'ns-right-alternate-modifier)
|
||||
(with-no-warnings
|
||||
(defvaralias 'ns-option-modifier 'ns-alternate-modifier)
|
||||
(defvaralias 'ns-right-option-modifier 'ns-right-alternate-modifier))
|
||||
|
||||
(defun ns-do-hide-emacs ()
|
||||
(interactive)
|
||||
|
||||
@ -351,13 +351,12 @@ Example:
|
||||
(defvar artist-pointer-shape (if (eq window-system 'x) x-pointer-crosshair nil)
|
||||
"If in X Windows, use this pointer shape while drawing with the mouse.")
|
||||
|
||||
(defvaralias 'artist-text-renderer 'artist-text-renderer-function)
|
||||
|
||||
(defcustom artist-text-renderer-function 'artist-figlet
|
||||
"Function for doing text rendering."
|
||||
:group 'artist-text
|
||||
:type 'symbol)
|
||||
(defvaralias 'artist-text-renderer 'artist-text-renderer-function)
|
||||
|
||||
|
||||
(defcustom artist-figlet-program "figlet"
|
||||
"Program to run for `figlet'."
|
||||
|
||||
@ -1038,6 +1038,9 @@ See `bibtex-generate-autokey' for details."
|
||||
:type '(repeat (cons (regexp :tag "Old")
|
||||
(string :tag "New"))))
|
||||
|
||||
(defvaralias 'bibtex-autokey-name-case-convert
|
||||
'bibtex-autokey-name-case-convert-function)
|
||||
|
||||
(defcustom bibtex-autokey-name-case-convert-function 'downcase
|
||||
"Function called for each name to perform case conversion.
|
||||
See `bibtex-generate-autokey' for details."
|
||||
@ -1049,8 +1052,6 @@ See `bibtex-generate-autokey' for details."
|
||||
(function :tag "Conversion function")))
|
||||
(put 'bibtex-autokey-name-case-convert-function 'safe-local-variable
|
||||
(lambda (x) (memq x '(upcase downcase capitalize identity))))
|
||||
(defvaralias 'bibtex-autokey-name-case-convert
|
||||
'bibtex-autokey-name-case-convert-function)
|
||||
|
||||
(defcustom bibtex-autokey-name-length 'infty
|
||||
"Number of characters from name to incorporate into key.
|
||||
@ -1113,6 +1114,9 @@ Case is significant. See `bibtex-generate-autokey' for details."
|
||||
:group 'bibtex-autokey
|
||||
:type '(repeat regexp))
|
||||
|
||||
(defvaralias 'bibtex-autokey-titleword-case-convert
|
||||
'bibtex-autokey-titleword-case-convert-function)
|
||||
|
||||
(defcustom bibtex-autokey-titleword-case-convert-function 'downcase
|
||||
"Function called for each titleword to perform case conversion.
|
||||
See `bibtex-generate-autokey' for details."
|
||||
@ -1122,8 +1126,6 @@ See `bibtex-generate-autokey' for details."
|
||||
(const :tag "Capitalize" capitalize)
|
||||
(const :tag "Upcase" upcase)
|
||||
(function :tag "Conversion function")))
|
||||
(defvaralias 'bibtex-autokey-titleword-case-convert
|
||||
'bibtex-autokey-titleword-case-convert-function)
|
||||
|
||||
(defcustom bibtex-autokey-titleword-abbrevs nil
|
||||
"Determines exceptions to the usual abbreviation mechanism.
|
||||
|
||||
@ -321,14 +321,16 @@ If this variable is nil, all regions are treated as small."
|
||||
;;* (lambda () (setq flyspell-generic-check-word-predicate */
|
||||
;;* 'mail-mode-flyspell-verify))) */
|
||||
;;*---------------------------------------------------------------------*/
|
||||
|
||||
(define-obsolete-variable-alias 'flyspell-generic-check-word-p
|
||||
'flyspell-generic-check-word-predicate "25.1")
|
||||
|
||||
(defvar flyspell-generic-check-word-predicate nil
|
||||
"Function providing per-mode customization over which words are flyspelled.
|
||||
Returns t to continue checking, nil otherwise.
|
||||
Flyspell mode sets this variable to whatever is the `flyspell-mode-predicate'
|
||||
property of the major mode name.")
|
||||
(make-variable-buffer-local 'flyspell-generic-check-word-predicate)
|
||||
(define-obsolete-variable-alias 'flyspell-generic-check-word-p
|
||||
'flyspell-generic-check-word-predicate "25.1")
|
||||
|
||||
;;*--- mail mode -------------------------------------------------------*/
|
||||
(put 'mail-mode 'flyspell-mode-predicate 'mail-mode-flyspell-verify)
|
||||
|
||||
@ -318,12 +318,13 @@ The following values are supported:
|
||||
:type 'boolean
|
||||
:group 'ispell)
|
||||
|
||||
(defvaralias 'ispell-format-word 'ispell-format-word-function)
|
||||
|
||||
(defcustom ispell-format-word-function (function upcase)
|
||||
"Formatting function for displaying word being spell checked.
|
||||
The function must take one string argument and return a string."
|
||||
:type 'function
|
||||
:group 'ispell)
|
||||
(defvaralias 'ispell-format-word 'ispell-format-word-function)
|
||||
|
||||
(defcustom ispell-use-framepop-p nil
|
||||
"When non-nil ispell uses framepop to display choices in a dedicated frame.
|
||||
|
||||
@ -796,6 +796,9 @@ Return ADO if so or signal an error otherwise."
|
||||
|
||||
;; Public class methods
|
||||
|
||||
(define-obsolete-variable-alias
|
||||
'rst-preferred-decorations 'rst-preferred-adornments "rst 1.0.0")
|
||||
|
||||
(defvar rst-preferred-adornments) ; Forward declaration.
|
||||
|
||||
(defun rst-Hdr-preferred-adornments ()
|
||||
@ -1481,8 +1484,6 @@ for modes derived from Text mode, like Mail mode."
|
||||
:group 'rst
|
||||
:version "21.1")
|
||||
|
||||
(define-obsolete-variable-alias
|
||||
'rst-preferred-decorations 'rst-preferred-adornments "rst 1.0.0")
|
||||
;; FIXME: Default must match suggestion in
|
||||
;; http://sphinx-doc.org/rest.html#sections for Python documentation.
|
||||
(defcustom rst-preferred-adornments '((?= over-and-under 1)
|
||||
|
||||
@ -76,6 +76,8 @@ a DOCTYPE or an XML declaration."
|
||||
:version "22.1"
|
||||
:group 'sgml)
|
||||
|
||||
(defvaralias 'sgml-transformation 'sgml-transformation-function)
|
||||
|
||||
(defcustom sgml-transformation-function 'identity
|
||||
"Default value for `skeleton-transformation-function' in SGML mode."
|
||||
:type 'function
|
||||
@ -92,7 +94,6 @@ a DOCTYPE or an XML declaration."
|
||||
|
||||
(put 'sgml-transformation-function 'variable-interactive
|
||||
"aTransformation function: ")
|
||||
(defvaralias 'sgml-transformation 'sgml-transformation-function)
|
||||
|
||||
(defcustom sgml-mode-hook nil
|
||||
"Hook run by command `sgml-mode'.
|
||||
|
||||
@ -6641,6 +6641,7 @@ represents a live window, nil otherwise."
|
||||
))
|
||||
frame))))
|
||||
|
||||
(defvaralias 'even-window-heights 'even-window-sizes)
|
||||
(defcustom even-window-sizes t
|
||||
"If non-nil `display-buffer' will try to even window sizes.
|
||||
Otherwise `display-buffer' will leave the window configuration
|
||||
@ -6654,7 +6655,6 @@ any of them."
|
||||
(const :tag "Always" t))
|
||||
:version "25.1"
|
||||
:group 'windows)
|
||||
(defvaralias 'even-window-heights 'even-window-sizes)
|
||||
|
||||
(defun window--even-window-sizes (window)
|
||||
"Even sizes of WINDOW and selected window.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user