mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-06 11:50:51 -08:00
Remove many items obsolete since 24.1
* lisp/allout.el (allout-abbreviate-flattened-numbering) (allout-mode-deactivate-hook): * lisp/ansi-color.el (ansi-color-unfontify-region): * lisp/auth-source.el (auth-source-hide-passwords) (auth-source-user-or-password) (auth-source-forget-user-or-password): * lisp/cedet/data-debug.el (data-debug-map): * lisp/cedet/semantic/grammar.el (semantic-grammar-syntax-table) (semantic-grammar-map): * lisp/chistory.el (command-history-map): * lisp/comint.el (comint-dynamic-complete) (comint-dynamic-complete-as-filename) (comint-dynamic-simple-complete): * lisp/dired-x.el (read-filename-at-point) (dired-x-submit-report): * lisp/dos-fns.el (register-name-alist, make-register) (register-value, set-register-value, intdos, mode25, mode4350): * lisp/emacs-lisp/bytecomp.el (byte-compile-disable-print-circle): * lisp/emacs-lisp/chart.el (chart-map): * lisp/emacs-lisp/package.el (package-menu-view-commentary): * lisp/emacs-lock.el (toggle-emacs-lock, emacs-lock-from-exiting): * lisp/erc/erc.el (erc-complete-word): * lisp/eshell/em-cmpl.el (eshell-cmpl-suffix-list): * lisp/eshell/esh-util.el (eshell-for): * lisp/files.el (inhibit-first-line-modes-regexps) (inhibit-first-line-modes-suffixes): * lisp/gnus/gnus-msg.el (gnus-outgoing-message-group) (gnus-debug-files, gnus-debug-exclude-variables): * lisp/gnus/gnus-registry.el (gnus-registry-user-format-function-M): * lisp/gnus/gnus.el (gnus-local-domain, gnus-carpal): * lisp/gnus/nnimap.el (nnimap-split-rule): * lisp/iimage.el (turn-on-iimage-mode): * lisp/image.el (image-extension-data, image-library-alist): * lisp/mail/emacsbug.el (report-emacs-bug-pretest-address): * lisp/mail/mail-utils.el (rmail-dont-reply-to): * lisp/mail/mailalias.el (mail-complete-function) (mail-completion-at-point-function): * lisp/mail/rmail.el (rmail-dont-reply-to-names) (rmail-default-dont-reply-to-names): * lisp/mail/sendmail.el (mail-mailer-swallows-blank-line) (mail-sent-via): * lisp/menu-bar.el (menu-bar-kill-ring-save): * lisp/minibuffer.el (completion-annotate-function) (minibuffer-local-filename-must-match-map): * lisp/msb.el (msb-after-load-hooks): * lisp/obsolete/eieio-compat.el (eieio-defmethod) (eieio-defgeneric): * lisp/obsolete/info-edit.el (Info-edit-map): * lisp/obsolete/starttls.el (starttls-any-program-available): * lisp/progmodes/cfengine.el (cfengine-mode-abbrevs): * lisp/progmodes/cwarn.el (turn-on-cwarn-mode): * lisp/progmodes/make-mode.el (makefile-complete): * lisp/progmodes/meta-mode.el (meta-complete-symbol) (meta-mode-map): * lisp/progmodes/pascal.el (pascal-toggle-completions) (pascal-last-completions, pascal-show-completions): * lisp/progmodes/prolog.el (prolog-char-quote-workaround): * lisp/progmodes/which-func.el (which-func-mode): [FUNCTION] * lisp/simple.el (count-lines-region, minibuffer-completing-symbol): * lisp/speedbar.el (speedbar-syntax-table, speedbar-key-map): * lisp/strokes.el (strokes-report-bug): * lisp/subr.el (condition-case-no-debug): * lisp/term/ns-win.el (ns-alternatives-map) (ns-store-cut-buffer-internal): * lisp/term/w32-win.el (w32-default-color-map): * lisp/term/x-win.el (x-cut-buffer-or-selection-value): * lisp/textmodes/bibtex.el (bibtex-complete) (bibtex-entry-field-alist): * lisp/textmodes/reftex-index.el (reftex-index-map) (reftex-index-phrases-map): * lisp/textmodes/reftex-sel.el (reftex-select-label-map) (reftex-select-bib-map): * lisp/textmodes/reftex-toc.el (reftex-toc-map): * lisp/textmodes/rst.el (rst-block-face, rst-external-face) (rst-definition-face, rst-directive-face, rst-comment-face) (rst-emphasis1-face, rst-emphasis2-face, rst-literal-face) (rst-reference-face): * lisp/vc/vc-hooks.el (vc-toggle-read-only): * lisp/view.el (view-return-to-alist) (view-return-to-alist-update): Remove many functions and variables obsolete since 24.1. * lisp/textmodes/bibtex.el (bibtex-entry-alist): Don't use above removed variable 'bibtex-entry-field-alist'. * lisp/cedet/data-debug.el (data-debug-edebug-expr) (data-debug-eval-expression): * lisp/emacs-lisp/trace.el (trace--read-args): * lisp/files-x.el (read-file-local-variable-value): * lisp/simple.el (read--expression): Don't use above removed variable 'minibuffer-completing-symbol'. * lisp/textmodes/rst.el (rst-font-lock-keywords): Don't use above removed variables. * src/w32fns.c (Fw32_default_color_map): Delete obsolete function. (syms_of_w32fns): Delete defsubr for above defun. * src/keyboard.c (syms_of_keyboard) <Vdeferred_action_list> <Vdeferred_action_function>: Delete DEFVARs. <Qdeferred_action_function>: Delete DEFSYM. (syms_of_keyboard_for_pdumper): Adjust for above change. (command_loop_1): Don't run deferred-action-function hook. * lisp/subr.el (deferred-action-list, deferred-action-function): Delete obsoletion statements. * lisp/emacs-lisp/ert-x.el (ert-simulate-command): Don't run 'deferred-action-list' hook. * doc/lispref/hooks.texi (Standard Hooks): Delete 'deferred-action-function'. * lisp/emacs-lisp/lisp.el (field-complete): * lisp/eshell/em-cmpl.el (eshell-cmpl-initialize): * lisp/gnus/gnus-msg.el (gnus-inews-insert-gcc): * lisp/gnus/nnmail.el (nnmail-fancy-expiry-target): * lisp/mail/mail-utils.el (mail-dont-reply-to): * lisp/mail/sendmail.el (sendmail-send-it): * lisp/mail/smtpmail.el (smtpmail-send-it): * lisp/minibuffer.el (minibuffer-completion-help): * lisp/progmodes/python.el: Don't use above removed items. * lisp/emacs-lisp/eieio-core.el: * lisp/mail/mailalias.el (mail-complete-alist): Doc fixes; don't refer to above removed items. ; * etc/NEWS: List removed items.
This commit is contained in:
parent
ca7b5dbfca
commit
739e3dbe05
66 changed files with 114 additions and 796 deletions
|
|
@ -164,8 +164,6 @@ Overrides `password-cache-expiry' through a let-binding."
|
|||
(defvar auth-source-creation-prompts nil
|
||||
"Default prompts for token values. Usually let-bound.")
|
||||
|
||||
(make-obsolete 'auth-source-hide-passwords nil "24.1")
|
||||
|
||||
(defcustom auth-source-save-behavior 'ask
|
||||
"If set, auth-source will respect it for save behavior."
|
||||
:version "23.2" ;; No Gnus
|
||||
|
|
@ -2325,89 +2323,6 @@ See `auth-source-search' for details on SPEC."
|
|||
(push item all)))
|
||||
(nreverse all)))
|
||||
|
||||
;;; older API
|
||||
|
||||
;; (auth-source-user-or-password '("login" "password") "imap.myhost.com" t "tzz")
|
||||
|
||||
;; deprecate the old interface
|
||||
(make-obsolete 'auth-source-user-or-password
|
||||
'auth-source-search "24.1")
|
||||
(make-obsolete 'auth-source-forget-user-or-password
|
||||
'auth-source-forget "24.1")
|
||||
|
||||
(defun auth-source-user-or-password
|
||||
(mode host port &optional username create-missing delete-existing)
|
||||
"Find MODE (string or list of strings) matching HOST and PORT.
|
||||
|
||||
DEPRECATED in favor of `auth-source-search'!
|
||||
|
||||
USERNAME is optional and will be used as \"login\" in a search
|
||||
across the Secret Service API (see secrets.el) if the resulting
|
||||
items don't have a username. This means that if you search for
|
||||
username \"joe\" and it matches an item but the item doesn't have
|
||||
a :user attribute, the username \"joe\" will be returned.
|
||||
|
||||
A non-nil DELETE-EXISTING means deleting any matching password
|
||||
entry in the respective sources. This is useful only when
|
||||
CREATE-MISSING is non-nil as well; the intended use case is to
|
||||
remove wrong password entries.
|
||||
|
||||
If no matching entry is found, and CREATE-MISSING is non-nil,
|
||||
the password will be retrieved interactively, and it will be
|
||||
stored in the password database which matches best (see
|
||||
`auth-sources').
|
||||
|
||||
MODE can be \"login\" or \"password\"."
|
||||
(auth-source-do-debug
|
||||
"auth-source-user-or-password: DEPRECATED get %s for %s (%s) + user=%s"
|
||||
mode host port username)
|
||||
|
||||
(let* ((listy (listp mode))
|
||||
(mode (if listy mode (list mode)))
|
||||
;; (cname (if username
|
||||
;; (format "%s %s:%s %s" mode host port username)
|
||||
;; (format "%s %s:%s" mode host port)))
|
||||
(search (list :host host :port port))
|
||||
(search (if username (append search (list :user username)) search))
|
||||
(search (if create-missing
|
||||
(append search (list :create t))
|
||||
search))
|
||||
(search (if delete-existing
|
||||
(append search (list :delete t))
|
||||
search))
|
||||
;; (found (if (not delete-existing)
|
||||
;; (gethash cname auth-source-cache)
|
||||
;; (remhash cname auth-source-cache)
|
||||
;; nil)))
|
||||
(found nil))
|
||||
(if found
|
||||
(progn
|
||||
(auth-source-do-debug
|
||||
"auth-source-user-or-password: DEPRECATED cached %s=%s for %s (%s) + %s"
|
||||
mode
|
||||
;; don't show the password
|
||||
(if (and (member "password" mode) t)
|
||||
"SECRET"
|
||||
found)
|
||||
host port username)
|
||||
found) ; return the found data
|
||||
;; else, if not found, search with a max of 1
|
||||
(let ((choice (nth 0 (apply #'auth-source-search
|
||||
(append '(:max 1) search)))))
|
||||
(when choice
|
||||
(dolist (m mode)
|
||||
(cond
|
||||
((equal "password" m)
|
||||
(push (if (plist-get choice :secret)
|
||||
(funcall (plist-get choice :secret))
|
||||
nil) found))
|
||||
((equal "login" m)
|
||||
(push (plist-get choice :user) found)))))
|
||||
(setq found (nreverse found))
|
||||
(setq found (if listy found (car-safe found)))))
|
||||
|
||||
found))
|
||||
|
||||
(defun auth-source-user-and-password (host &optional user)
|
||||
(let* ((auth-info (car
|
||||
(if user
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue