[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110250: Remove purecopy's that are n
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110250: Remove purecopy's that are no longer needed following previous change |
Date: |
Sat, 29 Sep 2012 11:30:52 -0700 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 110250
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2012-09-29 11:30:52 -0700
message:
Remove purecopy's that are no longer needed following previous change
modified:
lisp/hippie-exp.el
lisp/progmodes/inf-lisp.el
=== modified file 'lisp/hippie-exp.el'
--- a/lisp/hippie-exp.el 2012-09-29 18:15:57 +0000
+++ b/lisp/hippie-exp.el 2012-09-29 18:30:52 +0000
@@ -243,7 +243,7 @@
integer)
:group 'hippie-expand)
-(defcustom hippie-expand-ignore-buffers (list (purecopy "^ \\*.*\\*$")
'dired-mode)
+(defcustom hippie-expand-ignore-buffers '("^ \\*.*\\*$" dired-mode)
"A list specifying which buffers not to search (if not current).
Can contain both regexps matching buffer names (as strings) and major modes
\(as atoms)"
=== modified file 'lisp/progmodes/inf-lisp.el'
--- a/lisp/progmodes/inf-lisp.el 2012-09-29 18:20:12 +0000
+++ b/lisp/progmodes/inf-lisp.el 2012-09-29 18:30:52 +0000
@@ -70,7 +70,7 @@
:version "22.1")
(defcustom inferior-lisp-filter-regexp
- (purecopy "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'")
+ "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'"
"What not to save on inferior Lisp's input history.
Input matching this regexp is not saved on the input history in Inferior Lisp
mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword
@@ -136,12 +136,12 @@
(define-key inferior-lisp-mode-map "\C-cv"
'lisp-show-variable-documentation))
-(defcustom inferior-lisp-program (purecopy "lisp")
+(defcustom inferior-lisp-program "lisp"
"Program name for invoking an inferior Lisp in Inferior Lisp mode."
:type 'string
:group 'inferior-lisp)
-(defcustom inferior-lisp-load-command (purecopy "(load \"%s\")\n")
+(defcustom inferior-lisp-load-command "(load \"%s\")\n"
"Format-string for building a Lisp expression to load a file.
This format string should use `%s' to substitute a file name
and should result in a Lisp expression that will command the inferior Lisp
@@ -152,7 +152,7 @@
:type 'string
:group 'inferior-lisp)
-(defcustom inferior-lisp-prompt (purecopy "^[^> \n]*>+:? *")
+(defcustom inferior-lisp-prompt "^[^> \n]*>+:? *"
"Regexp to recognize prompts in the Inferior Lisp mode.
Defaults to \"^[^> \\n]*>+:? *\", which works pretty good for Lucid, kcl,
and franz. This variable is used to initialize `comint-prompt-regexp' in the
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110250: Remove purecopy's that are no longer needed following previous change,
Glenn Morris <=