aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/desktop.el5
-rw-r--r--lisp/ffap.el10
-rw-r--r--lisp/files.el14
-rw-r--r--lisp/progmodes/cc-defs.el2
-rw-r--r--lisp/simple.el1
-rw-r--r--lisp/skeleton.el12
6 files changed, 26 insertions, 18 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 063208fee69..a88d39a5e62 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -380,7 +380,10 @@ modes are restored automatically; they should not be listed here."
380 :group 'desktop) 380 :group 'desktop)
381 381
382(defcustom desktop-buffers-not-to-save "\\` " 382(defcustom desktop-buffers-not-to-save "\\` "
383 "Regexp identifying buffers that are to be excluded from saving." 383 "Regexp identifying buffers that are to be excluded from saving.
384This is in effect only for buffers that don't visit files.
385To exclude buffers that visit files, use `desktop-files-not-to-save'
386or `desktop-modes-not-to-save'."
384 :type '(choice (const :tag "None" nil) 387 :type '(choice (const :tag "None" nil)
385 regexp) 388 regexp)
386 :version "24.4" ; skip invisible temporary buffers 389 :version "24.4" ; skip invisible temporary buffers
diff --git a/lisp/ffap.el b/lisp/ffap.el
index 99bb65faafe..a7983f08395 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -32,7 +32,7 @@
32;; (`ffap-require-prefix' swaps these behaviors). This is useful for 32;; (`ffap-require-prefix' swaps these behaviors). This is useful for
33;; following references in situations such as mail or news buffers, 33;; following references in situations such as mail or news buffers,
34;; README's, MANIFEST's, and so on. Submit bugs or suggestions with 34;; README's, MANIFEST's, and so on. Submit bugs or suggestions with
35;; M-x ffap-bug. 35;; M-x report-emacs-bug.
36;; 36;;
37;; For the default installation, add this line to your init file: 37;; For the default installation, add this line to your init file:
38;; 38;;
@@ -162,8 +162,12 @@ schemes (e.g. \"ftp\"); in that case, only convert those URLs."
162 :group 'ffap 162 :group 'ffap
163 :version "24.3") 163 :version "24.3")
164 164
165(defcustom ffap-lax-url nil 165(defcustom ffap-lax-url t
166 "If non-nil, allow lax URL matching." 166 "If non-nil, allow lax URL matching.
167The default non-nil value might produce false URLs in C++ code
168with symbols like \"std::find\". On the other hand, setting
169this to nil will disable recognition of URLs that are not
170well-formed, such as \"user@host\" or \"<user@host>\"."
167 :type 'boolean 171 :type 'boolean
168 :group 'ffap 172 :group 'ffap
169 :version "25.1") 173 :version "25.1")
diff --git a/lisp/files.el b/lisp/files.el
index 790f6cedfd6..71398227407 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -716,13 +716,13 @@ The path separator is colon in GNU and GNU-like systems."
716 ;; (which will lead to the use of B/a). 716 ;; (which will lead to the use of B/a).
717 (minibuffer-with-setup-hook 717 (minibuffer-with-setup-hook
718 (lambda () 718 (lambda ()
719 (setq minibuffer-completion-table 719 (setq-local minibuffer-completion-table
720 (apply-partially #'locate-file-completion-table 720 (apply-partially #'locate-file-completion-table
721 cd-path nil)) 721 cd-path nil))
722 (setq minibuffer-completion-predicate 722 (setq-local minibuffer-completion-predicate
723 (lambda (dir) 723 (lambda (dir)
724 (locate-file dir cd-path nil 724 (locate-file dir cd-path nil
725 (lambda (f) (and (file-directory-p f) 'dir-ok)))))) 725 (lambda (f) (and (file-directory-p f) 'dir-ok))))))
726 (unless cd-path 726 (unless cd-path
727 (setq cd-path (or (parse-colon-path (getenv "CDPATH")) 727 (setq cd-path (or (parse-colon-path (getenv "CDPATH"))
728 (list "./")))) 728 (list "./"))))
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index ab4baa247b9..f1943a82163 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -94,7 +94,7 @@
94 94
95;;; Variables also used at compile time. 95;;; Variables also used at compile time.
96 96
97(defconst c-version "5.33" 97(defconst c-version "5.32.99"
98 "CC Mode version number.") 98 "CC Mode version number.")
99 99
100(defconst c-version-sym (intern c-version)) 100(defconst c-version-sym (intern c-version))
diff --git a/lisp/simple.el b/lisp/simple.el
index 0ee2f060e5e..b72e75d169b 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1699,6 +1699,7 @@ If the value is non-nil and not a number, we wait 2 seconds."
1699 ;; Don't show the help message if the binding isn't 1699 ;; Don't show the help message if the binding isn't
1700 ;; significantly shorter than the M-x command the user typed. 1700 ;; significantly shorter than the M-x command the user typed.
1701 (< len (- max 5)))) 1701 (< len (- max 5))))
1702 (input-pending-p) ;Dummy call to trigger input-processing, bug#23002.
1702 (let ((candidate (pop candidates))) 1703 (let ((candidate (pop candidates)))
1703 (when (equal name 1704 (when (equal name
1704 (car-safe (completion-try-completion 1705 (car-safe (completion-try-completion
diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 0e81e2d74c6..c563a9cd0cd 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -59,8 +59,7 @@ region.")
59(make-obsolete-variable 'skeleton-autowrap nil "24.5") 59(make-obsolete-variable 'skeleton-autowrap nil "24.5")
60 60
61(defvar skeleton-end-newline t 61(defvar skeleton-end-newline t
62 "If non-nil, make sure that the skeleton inserted ends with a newline. 62 "If non-nil, make sure that the skeleton inserted ends with a newline.")
63This just influences the way the default `skeleton-end-hook' behaves.")
64 63
65(defvar skeleton-end-hook nil 64(defvar skeleton-end-hook nil
66 "Hook called at end of skeleton but before going to point of interest. 65 "Hook called at end of skeleton but before going to point of interest.
@@ -187,6 +186,10 @@ The optional third argument STR, if specified, is the value for the
187variable `str' within the skeleton. When this is non-nil, the 186variable `str' within the skeleton. When this is non-nil, the
188interactor gets ignored, and this should be a valid skeleton element. 187interactor gets ignored, and this should be a valid skeleton element.
189 188
189When done with skeleton, but before going back to `_'-point, add
190a newline (unless `skeleton-end-newline' is nil) and run the hook
191`skeleton-end-hook'.
192
190SKELETON is made up as (INTERACTOR ELEMENT ...). INTERACTOR may be nil if 193SKELETON is made up as (INTERACTOR ELEMENT ...). INTERACTOR may be nil if
191not needed, a prompt-string or an expression for complex read functions. 194not needed, a prompt-string or an expression for complex read functions.
192 195
@@ -235,10 +238,7 @@ available:
235 then: insert previously read string once more 238 then: insert previously read string once more
236 help help-form during interaction with the user or nil 239 help help-form during interaction with the user or nil
237 input initial input (string or cons with index) while reading str 240 input initial input (string or cons with index) while reading str
238 v1, v2 local variables for memorizing anything you want 241 v1, v2 local variables for memorizing anything you want"
239
240When done with skeleton, but before going back to `_'-point call
241`skeleton-end-hook' if that is non-nil."
242 (let ((skeleton-regions regions)) 242 (let ((skeleton-regions regions))
243 (and skeleton-regions 243 (and skeleton-regions
244 (setq skeleton-regions 244 (setq skeleton-regions