aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorGlenn Morris2018-04-20 18:34:39 -0400
committerGlenn Morris2018-04-20 18:34:39 -0400
commit9c3eeba4db26ddaeead100beea7a96f9fa640918 (patch)
treee30a07e6fd48f518c24f5abffb3974ebdef30ec1 /lisp/progmodes
parent495963cfaf535646350051f47c085b84319572f0 (diff)
downloademacs-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.el10
-rw-r--r--lisp/progmodes/make-mode.el5
-rw-r--r--lisp/progmodes/octave.el6
-rw-r--r--lisp/progmodes/python.el12
-rw-r--r--lisp/progmodes/sql.el3
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.
340Nil means search the entire file.") 346Nil 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.
2928This is really not necessary at all for the code to work but it's 2931This is really not necessary at all for the code to work but it's
2929there for compatibility with CEDET.") 2932there 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.
2933This is really not necessary at all for the code to work but it's 2939This 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.
696This allows highlighting buffers properly when you open them." 698This 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