From 4638cb55ee84a65b552a989699673652cef6acb9 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sat, 20 Feb 2016 13:07:33 +0100 Subject: [PATCH] update popup. --- bba.org | 2 +- elpa/popup-20150626.711/popup-pkg.el | 1 - .../popup-autoloads.el | 2 +- elpa/popup-20151222.1339/popup-pkg.el | 1 + .../popup.el | 21 ++++++++++++------- 5 files changed, 17 insertions(+), 10 deletions(-) delete mode 100644 elpa/popup-20150626.711/popup-pkg.el rename elpa/{popup-20150626.711 => popup-20151222.1339}/popup-autoloads.el (82%) create mode 100644 elpa/popup-20151222.1339/popup-pkg.el rename elpa/{popup-20150626.711 => popup-20151222.1339}/popup.el (98%) diff --git a/bba.org b/bba.org index 0fc6b448..31bd9c07 100644 --- a/bba.org +++ b/bba.org @@ -211,7 +211,7 @@ Keep track of your important stuff! (if (>= emacs-major-version 24) (progn (add-to-list 'load-path "~/.emacs.d/elpa") - (add-to-list 'load-path "~/.emacs.d/elpa/popup-20150626.711") + (add-to-list 'load-path "~/.emacs.d/elpa/popup-20151222.1339") (require 'package) (package-initialize) (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/")) diff --git a/elpa/popup-20150626.711/popup-pkg.el b/elpa/popup-20150626.711/popup-pkg.el deleted file mode 100644 index f28de5ec..00000000 --- a/elpa/popup-20150626.711/popup-pkg.el +++ /dev/null @@ -1 +0,0 @@ -(define-package "popup" "20150626.711" "Visual Popup User Interface" '((cl-lib "0.3")) :keywords '("lisp")) diff --git a/elpa/popup-20150626.711/popup-autoloads.el b/elpa/popup-20151222.1339/popup-autoloads.el similarity index 82% rename from elpa/popup-20150626.711/popup-autoloads.el rename to elpa/popup-20151222.1339/popup-autoloads.el index a5b5b884..8b86d291 100644 --- a/elpa/popup-20150626.711/popup-autoloads.el +++ b/elpa/popup-20151222.1339/popup-autoloads.el @@ -3,7 +3,7 @@ ;;; Code: (add-to-list 'load-path (or (file-name-directory #$) (car load-path))) -;;;### (autoloads nil nil ("popup.el") (21908 14202 623366 0)) +;;;### (autoloads nil nil ("popup.el") (22215 5356 951539 0)) ;;;*** diff --git a/elpa/popup-20151222.1339/popup-pkg.el b/elpa/popup-20151222.1339/popup-pkg.el new file mode 100644 index 00000000..751942ac --- /dev/null +++ b/elpa/popup-20151222.1339/popup-pkg.el @@ -0,0 +1 @@ +(define-package "popup" "20151222.1339" "Visual Popup User Interface" '((cl-lib "0.5")) :keywords '("lisp")) diff --git a/elpa/popup-20150626.711/popup.el b/elpa/popup-20151222.1339/popup.el similarity index 98% rename from elpa/popup-20150626.711/popup.el rename to elpa/popup-20151222.1339/popup.el index 74369801..c206c1f3 100644 --- a/elpa/popup-20150626.711/popup.el +++ b/elpa/popup-20151222.1339/popup.el @@ -4,9 +4,9 @@ ;; Author: Tomohiro Matsuyama ;; Keywords: lisp -;; Package-Version: 20150626.711 +;; Package-Version: 20151222.1339 ;; Version: 0.5.3 -;; Package-Requires: ((cl-lib "0.3")) +;; Package-Requires: ((cl-lib "0.5")) ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -888,13 +888,19 @@ Pages up through POPUP." (defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help "Function used for showing quick help by `popup-menu*'.") +(defcustom popup-isearch-regexp-builder-function #'regexp-quote + "Function used to construct a regexp from a pattern. You may for instance + provide a function that replaces spaces by '.+' if you like helm or ivy style + of completion." + :type 'function) + (defsubst popup-isearch-char-p (char) (and (integerp char) (<= 32 char) (<= char 126))) (defun popup-isearch-filter-list (pattern list) - (cl-loop with regexp = (regexp-quote pattern) + (cl-loop with regexp = (funcall popup-isearch-regexp-builder-function pattern) for item in list do (unless (stringp item) @@ -1024,8 +1030,9 @@ HELP-DELAY is a delay of displaying helps." prompt &aux tip lines) "Show a tooltip of STRING at POINT. This function is -synchronized unless NOWAIT specified. Almost arguments are same -as `popup-create' except for TRUNCATE, NOWAIT, and PROMPT. +synchronized unless NOWAIT specified. Almost all arguments are +the same as in `popup-create', except for TRUNCATE, NOWAIT, and +PROMPT. If TRUNCATE is non-nil, the tooltip can be truncated. @@ -1320,8 +1327,8 @@ PROMPT is a prompt string when reading events during event loop." initial-index &aux menu event) "Show a popup menu of LIST at POINT. This function returns a -value of the selected item. Almost arguments are same as -`popup-create' except for KEYMAP, FALLBACK, HELP-DELAY, PROMPT, +value of the selected item. Almost all arguments are the same as in +`popup-create', except for KEYMAP, FALLBACK, HELP-DELAY, PROMPT, ISEARCH, ISEARCH-FILTER, ISEARCH-CURSOR-COLOR, ISEARCH-KEYMAP, and ISEARCH-CALLBACK. -- 2.47.3