[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 9c3eeba: The tedious game of whack-a-mole with comp

From: Glenn Morris
Subject: [Emacs-diffs] master 9c3eeba: The tedious game of whack-a-mole with compiler warnings continues
Date: Fri, 20 Apr 2018 18:34:50 -0400 (EDT)

branch: master
commit 9c3eeba4db26ddaeead100beea7a96f9fa640918
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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)
    * 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)
    * lisp/emacs-lisp/edebug.el (gud-inhibit-global-bindings):
    * lisp/emacs-lisp/warnings.el (display-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-align-tags-to-column, org-agenda-keymap):
    * lisp/org/org.el (org-special-ctrl-a)
    * lisp/progmodes/flymake-proc.el (flymake-err-line-patterns)
    * lisp/progmodes/make-mode.el (makefile-query-one-target-method):
    * lisp/progmodes/octave.el (inferior-octave-startup-hook):
    * lisp/progmodes/python.el (python-buffer)
    * lisp/progmodes/sql.el (sql-dialect):
    * lisp/textmodes/artist.el (artist-text-renderer):
    * lisp/textmodes/bibtex.el (bibtex-autokey-name-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.
 lisp/abbrev.el                 |  4 ++--
 lisp/calendar/timeclock.el     |  5 +++--
 lisp/cedet/semantic/db-mode.el |  5 +++--
 lisp/emacs-lisp/edebug.el      |  6 +++---
 lisp/emacs-lisp/warnings.el    |  4 ++--
 lisp/emacs-lock.el             |  6 +++---
 lisp/erc/erc-dcc.el            |  6 +++---
 lisp/gnus/nnspool.el           |  4 ++--
 lisp/htmlfontify.el            |  2 +-
 lisp/ielm.el                   |  4 ++--
 lisp/isearch.el                |  2 +-
 lisp/org/org-agenda.el         | 16 ++++++++--------
 lisp/org/org.el                | 13 +++++++------
 lisp/progmodes/flymake-proc.el | 10 ++++++----
 lisp/progmodes/make-mode.el    |  5 +++--
 lisp/progmodes/octave.el       |  6 +++---
 lisp/progmodes/python.el       | 12 ++++++------
 lisp/progmodes/sql.el          |  3 ++-
 lisp/select.el                 |  8 ++++----
 lisp/shell.el                  |  3 ++-
 lisp/skeleton.el               |  4 ++--
 lisp/startup.el                |  6 +++---
 lisp/term/ns-win.el            |  5 +++--
 lisp/textmodes/artist.el       |  3 +--
 lisp/textmodes/bibtex.el       | 10 ++++++----
 lisp/textmodes/flyspell.el     |  6 ++++--
 lisp/textmodes/ispell.el       |  3 ++-
 lisp/textmodes/rst.el          |  5 +++--
 lisp/textmodes/sgml-mode.el    |  3 ++-
 lisp/window.el                 |  2 +-
 30 files changed, 93 insertions(+), 78 deletions(-)

diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 197276c..fd2f36e 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -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)
   "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."
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 3b96d42..b46e773 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -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")
 (define-minor-mode timeclock-mode-line-display
diff --git a/lisp/cedet/semantic/db-mode.el b/lisp/cedet/semantic/db-mode.el
index 8a13613..e6a2340 100644
--- a/lisp/cedet/semantic/db-mode.el
+++ b/lisp/cedet/semantic/db-mode.el
@@ -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)
 (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")
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 4f97712..e759c5b 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -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)
diff --git a/lisp/emacs-lisp/warnings.el b/lisp/emacs-lisp/warnings.el
index 489611d..6657331 100644
--- a/lisp/emacs-lisp/warnings.el
+++ b/lisp/emacs-lisp/warnings.el
@@ -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 
   :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.
diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el
index 0a6fa9e..b6e28fb 100644
--- a/lisp/emacs-lock.el
+++ b/lisp/emacs-lock.el
@@ -88,6 +88,9 @@ The functions get one argument, the first locked buffer 
   :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)
-(define-obsolete-variable-alias 'emacs-lock-from-exiting
-  'emacs-lock-mode "24.1")
 (define-minor-mode emacs-lock-mode
   "Toggle Emacs Lock mode in the current buffer.
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el
index 5bc8c2f..fdc2099 100644
--- a/lisp/erc/erc-dcc.el
+++ b/lisp/erc/erc-dcc.el
@@ -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)
diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el
index c4dc575..2f16b65 100644
--- a/lisp/gnus/nnspool.el
+++ b/lisp/gnus/nnspool.el
@@ -35,11 +35,11 @@
 ;; It's only used to init nnspool-spool-directory, so why not just
 ;; set that variable's default directly?
+  (defvaralias 'news-path 'news-directory)
   (defvar news-directory (if (file-exists-p "/usr/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
diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index 49a86c4..10cfca3 100644
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -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 
                (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
diff --git a/lisp/ielm.el b/lisp/ielm.el
index 59e333f..b4ad69e 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -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)
   "Keymap for IELM mode.")
-(defvaralias 'inferior-emacs-lisp-mode-map 'ielm-map)
 (easy-menu-define ielm-menu ielm-map
   "IELM mode menu."
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 8519373..0874ebb 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -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)
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index fcd6eac..cbfaf88 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -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.
diff --git a/lisp/org/org.el b/lisp/org/org.el
index b68c68b..7f4c6d5 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -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' 
                        (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 
 (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."
diff --git a/lisp/progmodes/flymake-proc.el b/lisp/progmodes/flymake-proc.el
index f842563..9bb328d 100644
--- a/lisp/progmodes/flymake-proc.el
+++ b/lisp/progmodes/flymake-proc.el
@@ -158,6 +158,9 @@ Convert it to Flymake internal format."
          (setq converted-list (cons (list regexp file line col) 
+(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
@@ -335,6 +338,9 @@ to the beginning of the list (File.h -> File.cpp moved to 
              (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")
   '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
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index a1a66c0..ba2b1cb 100644
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -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
   "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."
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index f5d764e..984bb73 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -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.
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index adf7b33..32d645c 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -2923,11 +2923,17 @@ be asked for their values."
  "Instead call `python-shell-get-process' and create one if returns nil."
+  '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.")
+  '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.")
   'python-proc 'python-shell-internal-get-or-create-process "24.3")
-  'python-buffer 'python-shell-internal-buffer "24.3")
-  '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)
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index ebbef8d..4d291c3 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -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 
   :group 'SQL
   :safe 'symbolp)
-(defvaralias 'sql-dialect 'sql-product)
 ;; misc customization of sql.el behavior
diff --git a/lisp/select.el b/lisp/select.el
index 698be83..bd7fd0c 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -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
diff --git a/lisp/shell.el b/lisp/shell.el
index d4a0556..2321860 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -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 
   (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
diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 90e3819..1d1af82 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -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)
 (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.")
diff --git a/lisp/startup.el b/lisp/startup.el
index f6907a8..bb3e704 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -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 
   :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
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index fa988ad..eff8adc 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -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)
+  (defvaralias 'ns-option-modifier 'ns-alternate-modifier)
+  (defvaralias 'ns-right-option-modifier 'ns-right-alternate-modifier))
 (defun ns-do-hide-emacs ()
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index e9ae6a4..61ca085 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -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'."
diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 79eb22e..89c94eb 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -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 
   :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.
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 2d03078..9747f8e 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -321,14 +321,16 @@ If this variable is nil, all regions are treated as 
 ;;*                 (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)
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index ba98ea5..18bf263 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -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.
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 48c0128..40d75a9 100644
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -796,6 +796,9 @@ Return ADO if so or signal an error otherwise."
 ;; Public class methods
+  '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")
-  '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)
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 811eb66..30ca111 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -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'.
diff --git a/lisp/window.el b/lisp/window.el
index 8c5e441..8055e5b 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -6641,6 +6641,7 @@ represents a live window, nil otherwise."
+(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.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]