diff options
| author | Glenn Morris | 2018-04-20 18:34:39 -0400 |
|---|---|---|
| committer | Glenn Morris | 2018-04-20 18:34:39 -0400 |
| commit | 9c3eeba4db26ddaeead100beea7a96f9fa640918 (patch) | |
| tree | e30a07e6fd48f518c24f5abffb3974ebdef30ec1 /lisp/progmodes | |
| parent | 495963cfaf535646350051f47c085b84319572f0 (diff) | |
| download | emacs-9c3eeba4db26ddaeead100beea7a96f9fa640918.tar.gz emacs-9c3eeba4db26ddaeead100beea7a96f9fa640918.zip | |
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.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/flymake-proc.el | 10 | ||||
| -rw-r--r-- | lisp/progmodes/make-mode.el | 5 | ||||
| -rw-r--r-- | lisp/progmodes/octave.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/python.el | 12 | ||||
| -rw-r--r-- | lisp/progmodes/sql.el | 3 |
5 files changed, 20 insertions, 16 deletions
diff --git a/lisp/progmodes/flymake-proc.el b/lisp/progmodes/flymake-proc.el index f842563be24..9bb328d6a69 100644 --- a/lisp/progmodes/flymake-proc.el +++ b/lisp/progmodes/flymake-proc.el | |||
| @@ -158,6 +158,9 @@ Convert it to Flymake internal format." | |||
| 158 | (setq converted-list (cons (list regexp file line col) converted-list))))) | 158 | (setq converted-list (cons (list regexp file line col) converted-list))))) |
| 159 | converted-list)) | 159 | converted-list)) |
| 160 | 160 | ||
| 161 | (define-obsolete-variable-alias 'flymake-err-line-patterns | ||
| 162 | 'flymake-proc-err-line-patterns "26.1") | ||
| 163 | |||
| 161 | (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 | 164 | (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 |
| 162 | (append | 165 | (append |
| 163 | '( | 166 | '( |
| @@ -335,6 +338,9 @@ to the beginning of the list (File.h -> File.cpp moved to top)." | |||
| 335 | (file-name-base file-one)) | 338 | (file-name-base file-one)) |
| 336 | (not (equal file-one file-two)))) | 339 | (not (equal file-one file-two)))) |
| 337 | 340 | ||
| 341 | (define-obsolete-variable-alias 'flymake-check-file-limit | ||
| 342 | 'flymake-proc-check-file-limit "26.1") | ||
| 343 | |||
| 338 | (defvar flymake-proc-check-file-limit 8192 | 344 | (defvar flymake-proc-check-file-limit 8192 |
| 339 | "Maximum number of chars to look at when checking possible master file. | 345 | "Maximum number of chars to look at when checking possible master file. |
| 340 | Nil means search the entire file.") | 346 | Nil means search the entire file.") |
| @@ -1148,12 +1154,8 @@ Use CREATE-TEMP-F for creating temp copy." | |||
| 1148 | 1154 | ||
| 1149 | ;;;; | 1155 | ;;;; |
| 1150 | 1156 | ||
| 1151 | (define-obsolete-variable-alias 'flymake-check-file-limit | ||
| 1152 | 'flymake-proc-check-file-limit "26.1") | ||
| 1153 | (define-obsolete-function-alias 'flymake-reformat-err-line-patterns-from-compile-el | 1157 | (define-obsolete-function-alias 'flymake-reformat-err-line-patterns-from-compile-el |
| 1154 | 'flymake-proc-reformat-err-line-patterns-from-compile-el "26.1") | 1158 | 'flymake-proc-reformat-err-line-patterns-from-compile-el "26.1") |
| 1155 | (define-obsolete-variable-alias 'flymake-err-line-patterns | ||
| 1156 | 'flymake-proc-err-line-patterns "26.1") | ||
| 1157 | (define-obsolete-function-alias 'flymake-parse-line | 1159 | (define-obsolete-function-alias 'flymake-parse-line |
| 1158 | 'flymake-proc-parse-line "26.1") | 1160 | 'flymake-proc-parse-line "26.1") |
| 1159 | (define-obsolete-function-alias 'flymake-get-include-dirs | 1161 | (define-obsolete-function-alias 'flymake-get-include-dirs |
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el index a1a66c09c63..ba2b1cb94a3 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." | |||
| 557 | :type 'string | 557 | :type 'string |
| 558 | :group 'makefile) | 558 | :group 'makefile) |
| 559 | 559 | ||
| 560 | (defvaralias 'makefile-query-one-target-method | ||
| 561 | 'makefile-query-one-target-method-function) | ||
| 562 | |||
| 560 | (defcustom makefile-query-one-target-method-function | 563 | (defcustom makefile-query-one-target-method-function |
| 561 | 'makefile-query-by-make-minus-q | 564 | 'makefile-query-by-make-minus-q |
| 562 | "Function to call to determine whether a make target is up to date. | 565 | "Function to call to determine whether a make target is up to date. |
| @@ -574,8 +577,6 @@ The function must satisfy this calling convention: | |||
| 574 | makefile, any nonzero integer value otherwise." | 577 | makefile, any nonzero integer value otherwise." |
| 575 | :type 'function | 578 | :type 'function |
| 576 | :group 'makefile) | 579 | :group 'makefile) |
| 577 | (defvaralias 'makefile-query-one-target-method | ||
| 578 | 'makefile-query-one-target-method-function) | ||
| 579 | 580 | ||
| 580 | (defcustom makefile-up-to-date-buffer-name "*Makefile Up-to-date overview*" | 581 | (defcustom makefile-up-to-date-buffer-name "*Makefile Up-to-date overview*" |
| 581 | "Name of the Up-to-date overview buffer." | 582 | "Name of the Up-to-date overview buffer." |
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el index f5d764e16c3..984bb73c73e 100644 --- a/lisp/progmodes/octave.el +++ b/lisp/progmodes/octave.el | |||
| @@ -639,6 +639,9 @@ mode, include \"-q\" and \"--traditional\"." | |||
| 639 | :type '(repeat string) | 639 | :type '(repeat string) |
| 640 | :version "24.4") | 640 | :version "24.4") |
| 641 | 641 | ||
| 642 | (define-obsolete-variable-alias 'inferior-octave-startup-hook | ||
| 643 | 'inferior-octave-mode-hook "24.4") | ||
| 644 | |||
| 642 | (defcustom inferior-octave-mode-hook nil | 645 | (defcustom inferior-octave-mode-hook nil |
| 643 | "Hook to be run when Inferior Octave mode is started." | 646 | "Hook to be run when Inferior Octave mode is started." |
| 644 | :type 'hook) | 647 | :type 'hook) |
| @@ -693,9 +696,6 @@ mode, include \"-q\" and \"--traditional\"." | |||
| 693 | (defvar inferior-octave-output-string nil) | 696 | (defvar inferior-octave-output-string nil) |
| 694 | (defvar inferior-octave-receive-in-progress nil) | 697 | (defvar inferior-octave-receive-in-progress nil) |
| 695 | 698 | ||
| 696 | (define-obsolete-variable-alias 'inferior-octave-startup-hook | ||
| 697 | 'inferior-octave-mode-hook "24.4") | ||
| 698 | |||
| 699 | (defvar inferior-octave-dynamic-complete-functions | 699 | (defvar inferior-octave-dynamic-complete-functions |
| 700 | '(inferior-octave-completion-at-point comint-filename-completion) | 700 | '(inferior-octave-completion-at-point comint-filename-completion) |
| 701 | "List of functions called to perform completion for inferior Octave. | 701 | "List of functions called to perform completion for inferior Octave. |
diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index adf7b33ccbb..32d645cfcc9 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el | |||
| @@ -2923,11 +2923,17 @@ be asked for their values." | |||
| 2923 | "Instead call `python-shell-get-process' and create one if returns nil." | 2923 | "Instead call `python-shell-get-process' and create one if returns nil." |
| 2924 | "25.1") | 2924 | "25.1") |
| 2925 | 2925 | ||
| 2926 | (define-obsolete-variable-alias | ||
| 2927 | 'python-buffer 'python-shell-internal-buffer "24.3") | ||
| 2928 | |||
| 2926 | (defvar python-shell-internal-buffer nil | 2929 | (defvar python-shell-internal-buffer nil |
| 2927 | "Current internal shell buffer for the current buffer. | 2930 | "Current internal shell buffer for the current buffer. |
| 2928 | This is really not necessary at all for the code to work but it's | 2931 | This is really not necessary at all for the code to work but it's |
| 2929 | there for compatibility with CEDET.") | 2932 | there for compatibility with CEDET.") |
| 2930 | 2933 | ||
| 2934 | (define-obsolete-variable-alias | ||
| 2935 | 'python-preoutput-result 'python-shell-internal-last-output "24.3") | ||
| 2936 | |||
| 2931 | (defvar python-shell-internal-last-output nil | 2937 | (defvar python-shell-internal-last-output nil |
| 2932 | "Last output captured by the internal shell. | 2938 | "Last output captured by the internal shell. |
| 2933 | This is really not necessary at all for the code to work but it's | 2939 | This is really not necessary at all for the code to work but it's |
| @@ -2943,12 +2949,6 @@ there for compatibility with CEDET.") | |||
| 2943 | (define-obsolete-function-alias | 2949 | (define-obsolete-function-alias |
| 2944 | 'python-proc 'python-shell-internal-get-or-create-process "24.3") | 2950 | 'python-proc 'python-shell-internal-get-or-create-process "24.3") |
| 2945 | 2951 | ||
| 2946 | (define-obsolete-variable-alias | ||
| 2947 | 'python-buffer 'python-shell-internal-buffer "24.3") | ||
| 2948 | |||
| 2949 | (define-obsolete-variable-alias | ||
| 2950 | 'python-preoutput-result 'python-shell-internal-last-output "24.3") | ||
| 2951 | |||
| 2952 | (defun python-shell--save-temp-file (string) | 2952 | (defun python-shell--save-temp-file (string) |
| 2953 | (let* ((temporary-file-directory | 2953 | (let* ((temporary-file-directory |
| 2954 | (if (file-remote-p default-directory) | 2954 | (if (file-remote-p default-directory) |
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index ebbef8d89ee..4d291c3bde8 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el | |||
| @@ -691,6 +691,8 @@ making new SQLi sessions." | |||
| 691 | :version "24.1" | 691 | :version "24.1" |
| 692 | :group 'SQL) | 692 | :group 'SQL) |
| 693 | 693 | ||
| 694 | (defvaralias 'sql-dialect 'sql-product) | ||
| 695 | |||
| 694 | (defcustom sql-product 'ansi | 696 | (defcustom sql-product 'ansi |
| 695 | "Select the SQL database product used. | 697 | "Select the SQL database product used. |
| 696 | This allows highlighting buffers properly when you open them." | 698 | This allows highlighting buffers properly when you open them." |
| @@ -703,7 +705,6 @@ This allows highlighting buffers properly when you open them." | |||
| 703 | sql-product-alist)) | 705 | sql-product-alist)) |
| 704 | :group 'SQL | 706 | :group 'SQL |
| 705 | :safe 'symbolp) | 707 | :safe 'symbolp) |
| 706 | (defvaralias 'sql-dialect 'sql-product) | ||
| 707 | 708 | ||
| 708 | ;; misc customization of sql.el behavior | 709 | ;; misc customization of sql.el behavior |
| 709 | 710 | ||