[ELPA-diffs] UNNAMED PROJECT branch, master, updated. c94a27a3ba6fb7d4dd74c80b4f6390a5bd480120
This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "UNNAMED PROJECT". The branch, master has been updated via c94a27a3ba6fb7d4dd74c80b4f6390a5bd480120 (commit) via c339792129f96eb9554cd7dcb063cb069efdf90c (commit) via b00707ade8ad89c5f310a4e068b7a5191f7746fd (commit) via eb350a68507dc58085f785bb72e9250df97bf5c4 (commit) from b72e08e1b156722f3149255394d7b8a9f04da685 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log - commit c94a27a3ba6fb7d4dd74c80b4f6390a5bd480120 Merge: b72e08e c339792 Author: Stefan Monnier Date: Mon Aug 12 09:48:50 2013 -0400 Merge remote-tracking branch 'repo.or.cz/elpa' commit c339792129f96eb9554cd7dcb063cb069efdf90c Author: Stefan Monnier Date: Fri Aug 9 17:55:12 2013 -0400 * packages/eldoc-eval/eldoc-eval.el (eldoc-mode-in-minibuffer): Operate on current buffer rather than minibuffer-completion-contents. diff --git a/packages/eldoc-eval/eldoc-eval.el b/packages/eldoc-eval/eldoc-eval.el index b6c4f59..6d20da2 100644 --- a/packages/eldoc-eval/eldoc-eval.el +++ b/packages/eldoc-eval/eldoc-eval.el @@ -149,21 +149,15 @@ See `with-eldoc-in-minibuffer'." (defun eldoc-mode-in-minibuffer () "Show eldoc for current minibuffer input." - (let ((buf (with-selected-window (minibuffer-window) - (buffer-name + (let ((buf (window-buffer (minibuffer-window ;; If this minibuffer have been started with ;;`with-eldoc-in-minibuffer' give it eldoc support ;; and update mode-line, otherwise do nothing. (when (member buf eldoc-active-minibuffers-list) - (let* ((str-all (with-current-buffer buf -(minibuffer-completion-contents))) - (sym (when str-all -(with-temp-buffer - (insert str-all) - (goto-char (point-max)) - (unless (looking-back ")\\|\"") -(forward-char -1)) - (eldoc-current-symbol + (let* ((sym (with-current-buffer buf +(unless (looking-back ")\\|\"") + (forward-char -1)) +(eldoc-current-symbol))) (info-fn (eldoc-fnsym-in-current-sexp)) (doc (or (eldoc-get-var-docstring sym) (eldoc-get-fnsym-args-string commit b00707ade8ad89c5f310a4e068b7a5191f7746fd Author: Stefan Monnier Date: Fri Aug 9 17:52:50 2013 -0400 * packages/auctex/tex.el (TeX--call-3/2): New auxiliary function. (ConTeXt-Omega-engine, TeX-Omega-mode, TeX-source-specials-mode): Use it to provide the obsolescence version when possible. diff --git a/packages/auctex/tex.el b/packages/auctex/tex.el index e11f16b..0ff821c 100644 --- a/packages/auctex/tex.el +++ b/packages/auctex/tex.el @@ -1,6 +1,6 @@ ;;; tex.el --- Support for TeX documents. -;; Copyright (C) 1985-1987, 1991, 1993, 1994, 1996, 1997, 1999-2012 +;; Copyright (C) 1985-1987, 1991, 1993, 1994, 1996, 1997, 1999-2013 ;; Free Software Foundation, Inc. ;; Maintainer: auctex-de...@gnu.org @@ -39,6 +39,11 @@ (eval-when-compile (require 'cl)) +(defun TeX--call-3/2 (f arg1 arg2 arg3) + (condition-case nil + (funcall f arg1 arg2 arg3) +(wrong-number-of-arguments (funcall f arg1 arg2 + (defgroup TeX-file nil "Files used by AUCTeX." :group 'AUCTeX) @@ -121,7 +126,8 @@ If nil, none is specified." :type '(choice (const :tag "Unspecified" nil) string)) ;; At least in TeXLive 2009 ConTeXt does not support an omega option anymore. -(make-obsolete-variable 'ConTeXt-Omega-engine 'TeX-engine-alist) +(TeX--call-3/2 #'make-obsolete-variable 'ConTeXt-Omega-engine + 'TeX-engine-alist "before 11.86") (defcustom TeX-queue-command "lpq -P%p" "*Command used to show the status of a printer queue. @@ -1285,8 +1291,9 @@ TYPE can be one of the following symbols:\n" :group 'TeX-command (TeX-engine-set (if TeX-Omega-mode 'omega 'default))) (defalias 'tex-omega-mode 'TeX-Omega-mode) -(make-obsolete 'TeX-Omega-mode 'TeX-engine-set) -(make-obsolete-variable 'TeX-Omega-mode 'TeX-engine) +(TeX--call-3/2 #'make-obsolete 'TeX-Omega-mode 'TeX-engine-set "before 11.86") +(TeX--call-3/2 #'make-obsolete-variable 'TeX-Omega-mode + 'TeX-engine "before 11.86") ;;; Forward and inverse search @@ -1434,7 +1441,8 @@ SyncTeX are recognized." (when TeX-source-correlate-mode 'TeX-synctex-output-page (defalias 'TeX-source-specials-mode 'TeX-source-correlate-mode) -(make-obsolete 'TeX-source-specials-mode 'TeX-source-correlate-mode) +(TeX--call-3/2 #'make-obsolete 'TeX-sourc
[ELPA-diffs] UNNAMED PROJECT branch, externals/dismal, updated. 4eb8eac4cbd8c5e8899ee3950394688d9e86962d
This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "UNNAMED PROJECT". The branch, externals/dismal has been updated via 4eb8eac4cbd8c5e8899ee3950394688d9e86962d (commit) from 629647abbf6587eddf1a7e271e724cd0b6321771 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log - commit 4eb8eac4cbd8c5e8899ee3950394688d9e86962d Author: Stefan Monnier Date: Mon Aug 12 12:24:17 2013 -0400 Clean up simple-menu.el diff --git a/simple-menu.el b/simple-menu.el index 7adadaa..f005522 100644 --- a/simple-menu.el +++ b/simple-menu.el @@ -1,4 +1,4 @@ -;;; simple-menu.el --- Command-line menus made declaratively +;;; simple-menu.el --- Command-line menus made declaratively -*- lexical-binding:t -*- ;; Copyright (C) 1991, 2013 Free Software Foundation, Inc. @@ -130,7 +130,7 @@ ;;; Code: -(require 'cl) +(eval-when-compile (require 'cl-lib)) ;;;vi. Utilities @@ -142,23 +142,26 @@ (interactive) (message "No function to do this menu item yet.")) +(defvar sm-run-menu-flag) +(defvar sm--current-key-map) + ;;*created this function to quit simple-menu ;; allows a cleaner quit with C-g, 19-May-97 -FER (defun sm-quit () - "Quit simple-menu to abort, or after a command has been evaluated." - (if (boundp 'command) - (sm-note-function-key command current-key-map) - (beep) - (message "Quiting simple-menu")) - ;; (beep) (message "hi") (sit-for 1) - (setq sm-run-menu-flag nil) - ;; (keyboard-quit) -) + "Quit simple-menu to abort, or after a command has been evaluated." + (if (boundp 'command) + (sm-note-function-key command sm--current-key-map) +(beep) +(message "Quiting simple-menu")) + ;; (beep) (message "hi") (sit-for 1) + (setq sm-run-menu-flag nil) + ;; (keyboard-quit) + ) (defsubst sm-first-word (menu-item) - "Return the first word of the first part (a string) of MENU-ITEM." - (let ((string (car menu-item))) - (substring string 0 (string-match " " string))) ) + "Return the first word of the first part (a string) of MENU-ITEM." + (let ((string (car menu-item))) +(substring string 0 (string-match " " string))) ) (defsubst sm-first-letter (menu-item) "Return the first letter of the first part (a string) of MENU-ITEM." @@ -168,21 +171,17 @@ ;;*created the following functions for checking menu items with the same ;;*first letter (defsubst sm-first-letter-items (items) - "Return the list of the first letters of the menu ITEMS." - (if (null items) - nil - (let ((item (car items))) -(append (list (sm-first-letter item)) -(sm-first-letter-items (cdr items )) + "Return the list of the first letters of the menu ITEMS." + (mapcar #'sm-first-letter items)) -(defsubst sm-first-letter-tidy (letters) - "Return the list of the first letters of the menu items removing any +(defun sm-first-letter-tidy (letters) + "Return the list of the first letters of the menu items removing any duplicate letter(s)." - (if (null letters) - nil - (let ((menu-letters)) - (setq menu-letters (sm-remove-menu-item-letter (car letters) (cdr letters))) - (append (list (car letters)) (sm-first-letter-tidy menu-letters))) )) + (if (null letters) + nil +(let ((menu-letters (sm-remove-menu-item-letter + (car letters) (cdr letters + (cons (car letters) (sm-first-letter-tidy menu-letters))) )) (defun sm-remove-menu-item-letter (element list) "Return the list of the first-letters of the menu items with @@ -190,8 +189,8 @@ the first-letter referred to by element removed." (cond ( (null list) nil) ( (equal (car list) element) (cdr list)) - (t (append (list (car list)) - (sm-remove-menu-item-letter element (cdr list )) + (t (cons (car list) +(sm-remove-menu-item-letter element (cdr list )) @@ -338,28 +337,28 @@ TO and FROM are ints, FUN is a symbol." "Read input char for menu selection from minibuffer." (read-from-minibuffer prompt nil sm-select-item-map) (cond ;; for backing up one menu level -( (eq last-input-char ?\C-d) +( (eq last-input-event ?\C-d) 'pop-level) ;; for aborting menu (i.e. quit menu) -( (eq last-input-char ?\C-g) +( (eq last-input-event ?\C-g) 'abort) ;; for emacs 18.* -( (or (eq last-input-char ?\r)(eq last-input-char ?\n) - (eq last-input-char ?\t)(eq last-input-char 'return)) +( (or (eq last-input-event ?\r)(eq last-input-event ?\n) + (eq last-input-event ?\t)(eq last-input-event 'return)) 'default) -(t last-input-char)) ) +(t last-inp
